用Fortran来实现DLL的编程和应用(1)

 

通常我们应用Fortran的时候，都是用Fortran实现一些底层的数值计算，而在图形的输入输出方面是利用其他语言来实现。因此将Fortran部分编译成一个DLL是一个很好的管理方式，因此，我这里来用一个简单例子来说明在Fortran中实现DLL，并在Fortran中调用这个DLL。

一、第一个简单的例子

1           先编写DLL的程序

1.1          生成一个DLL的Project: dlltest

1.2          新建一个dlltest.f文件，输入如下内容：

 

    SUBROUTINE ARRAYTEST(arr)

    !DEC$ ATTRIBUTES DLLEXPORT :: ARRAYTEST

         REAL(4) arr(3, 7)

         INTEGER i, j

            DO i = 1, 3

                  DO j = 1, 7

                         arr (i, j) = 11.0 * i + j

                  END DO

            END DO

    END SUBROUTINE

1.3          编译，连接，生成所需的DLL和lib。

 

2           编写应用这个DLL的EXE。

2.1          新建Windows Console类型的Project：dlluse

2.2          新建一个dlluse.f文件，输入如下内容：

         PROGRAM MAIN

 

         INTERFACE

          SUBROUTINE ARRAYTEST (rarray)

          !DEC$ ATTRIBUTES DLLIMPORT :: ARRAYTEST

                   REAL rarray(3, 7)

          END SUBROUTINE ARRAYTEST

         END INTERFACE

 

 

         REAL*4 RARRAY(3,7)

         INTEGER I,J

 

         CALL ARRAYTEST(RARRAY)

 

         DO I=1 , 3

                   DO J=1 , 7

                            WRITE(*,*) RARRAY(I,J)

                   END DO

         END DO

 

         END

2.3          将1.1中所建立的dlltest.lib文件加入到Project中

2.4          编译连接，能成功建立dlluse.exe文件。

 

3           运行

将dlltest.dll这个文件复制到dlluse.exe文件所在的目录，也就是说，将这两个文件放在一个目录下，从而可以运行dlluse.exe。

 

4           需要注意的是，如果dlltest.dll是用Debug模式建立的，那么dlluse.exe也应该是按Debug模式建立。反之，对于Release模式也应该如此。

 

5           哈哈，也可以不用建立interface，同样可以执行。