source/maxlik/src_FPy/test.F

   1       subroutine test_sub(a,b)
   2       integer :: a
   3       double precision :: b(3,2)
   4       a = 3
   5       b(1,1) = 1.0
   6       b(1,2) = 2.0
   7       b(2,1) = 3.0
   8       b(2,2) = 4.0
   9       b(3,1) = 5.0
  10       b(3,2) = 6.0
  11       end subroutine