C
C PAGE 4: NUMERICAL MATHEMATICS AND COMPUTING, CHENEY/KINCAID, 1985
C
C FILE: PI.FOR
C
C SIMPLE CODE TO ILLUSTRATE PROGRAMMING IN DOUBLE PRECISION
C
      DOUBLE PRECISION PI 
      PI = 4.0D0*DATAN(1.0D0) 
      PRINT *,PI
      STOP
      END