PROGRAM COM_F2
       DOUBLE PRECISION A(130), B(130), C
       INTEGER*8 I
       C=2.71828D+00
       DO I=1,120
       A(I) = C*( B(I) + 3.14159D+00 )
       END DO
       PRINT *, A(120)
       END