PROGRAM MATRIX_F
       DOUBLE PRECISION A(11,17), B(17), C(11)
       INTEGER *8 I, J
       DO I=1,11
           C(I)=0
           DO J=1,17
           C(I)=C(I)+A(I,J)*B(J)
           END DO
       END DO
       PRINT *, C(9)
       END