[Fortran] 纯文本查看 复制代码
subroutine SUB(S,R)
!程序作用是根据传入的圆的半径R，计算圆的面积S
!DEC$ ATTRIBUTES DLLEXPORT :: SUB
!上面的语句是编译功能语句，DLL中可以被外界调用的函数都要写上面的语句，声明哪些函数可以被外界访问，不然外界无法访问。
implicit none
double precision S,R
write(*,*)"You are using subroutline in DLL"
S=3.141592653*R**2!计算的面积可以通过传址传出去
return
end
[Fortran] 纯文本查看 复制代码
program main
!!DEC$OBJCOMMENT LIB:'Dll1.lib'
! !DEC$OBJCOMMENT LIB:'dllcmd.lib'
!DEC$OBJCOMMENT LIB:'subtest.lib'
implicit none
interface
subroutine SUB(S,R)
!DEC$ ATTRIBUTES DLLEXPORT :: SUB
real*8 s,r
end subroutine
end interface
real*8 rad,area
rad=10.0
call SUB(area,rad)
write(*,*)'计算结果为：',area
end program