home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchk294s.zip / ftnchek-2.9.4 / test / params.f < prev    next >
Text File  |  1995-12-29  |  204b  |  9 lines
  1.       implicit real*8 (a-h, l, m, o-z)
  2.       parameter (pi = .31415926535897932D+01)
  3.       parameter (minus1 = -.01D2)
  4.       parameter (half = 5.D-1)
  5.       write(*,*) minus1*pi,half
  6.       stop
  7.       end
  8.  
  9.