(因不知道该在Delphi版提问,还是在Fortran求助,所以就全贴了)
在用Fortran做数值计算时,有时需要输出一些提示信息,用来告诉用户程序运行到了哪一步,在单纯的Fortran程序中可以用Write语句进行如下操作:
     !the following code is Fortran with main program 
     Program Add
         integer A,B
         integer Sum
         A=1
         B=2
         Write(*,*)"The Value of A&B has been set!"
         Sum=A+B
         Write(*,*)"Add Operation has been done!"
     End Program Add
在Delphi里调用Fortran编译好的DLL文件中的函数时,如果需要在DLL中实现同样的功能——即需要显示在DLL内运行的状态提示信息,该如何实现:(如果换成DLL在Delphi里调用,代码中原来的两条Write语句肯定不能用了)
    !the following code is Fortran to DLL 
    Function Add(A,B)
       !DEC$ Dllexport alias:'Add'::Add
       integer A,B
       integer Add
       Add=A+B
     End Function ADD