PROGRAM COM_F1
       DOUBLE PRECISION A(13), B(13), C
       INTEGER*8 I
       C=2.71828D+00
       DO I=1,12
       A(I) = C*( B(I) + 3.14159D+00 )
       END DO
       PRINT *, A(12)
       END