DOUBLE PRECISION PI, E, EPI PI = 3.14159265358979323846D0 E = -2.71828182845904523536D0 EPI = E * PI WRITE (4,200)EPI 200 FORMAT (1H1,B17.13) STOP END