PROGRAM DPPIPROG ! ! Purpose: to find the value of pi. ! ! Here in double precision ! DOUBLE PRECISION:: X,PI ! X=1.D0 PI=4.D0*ATAN(X) WRITE(*,*)PI ! END PROGRAM DPPIPROG
