Source params.f

PROGRAM %MAIN ( )

Source file:	params.f

I/O Operations:

Unit ID  Unit No       Access  Form   Operation
      *                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write

Parameter Variables Used

REAL*8             PI                 (PI = .31415926535897932D+01)
REAL*8             MINUS1             (MINUS1 = -.01D2)
REAL*8             HALF               (HALF = 5.D-1)