File: sclsts.src

package info (click to toggle)
pact 980714-3
  • links: PTS
  • area: main
  • in suites: slink
  • size: 13,096 kB
  • ctags: 26,034
  • sloc: ansic: 109,076; lisp: 9,645; csh: 7,147; fortran: 1,050; makefile: 136; lex: 95; sh: 32
file content (12 lines) | stat: -rw-r--r-- 193 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
 

      x=(6.022e23*exp(-k*T) - 12*sinh(+k*T))**2

c Here we go
      if (x.gt.3) then
         x = y-12.0
      else
         x = y+12b-#14
      endif

c Test hollerith
 100  format 7hFoo Bar