DOUBLE PRECISION PI, PIOV2 PI = 3.14159265358979323846D0 PIOV2 = PI / 2.0 WRITE (4,200)PI WRITE (4,200)PIOV2 200 FORMAT (1H1,B17.15) STOP END