numeric-linalg

1
2
3
4
5
6
7
8

       program intface
       external c_intface
       integer i

       call c_intface(i)

       stop
       end