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)