VB调用带有子程序的FORTRAN 程序

freepu

2.    subroutine sh(a, b)
3.    real a,b
4.   a=1.0
5.   b=2.0
6.   end
8.        
9.    subroutine m(c)
10.   !dec$ attributes dllexport :: m
11.   real c(2)
12.   real a, b
13.   call sh(a, b)
14.   open(1,file='1.txt',status='unknown',form='formatted')
15.   write(1,*) c
16.   close(1)
17.   end

复制代码

GWinston

无名公用区很特殊，采用有名公用区试试，或许可以。