matlab fortran 文件,matlab 调用fortran生成DLL

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

版本：matlab 2010b，vs2008+IVF11.0

对于简单的问题，例如求个c=a+b的，用vs2008+IVF11.0生成DLL和用matlab调用没什么问题，如下：fortran代码：

subroutine add(x,y,z)

!DEC$ ATTRIBUTES C,DLLEXPORT :: add

!DEC$ ATTRIBUTES REFERENCE ::z !返回值，传地址

implicit none

integer::x,y

integer::z

z=x+y

end subroutine

然后编译成DLL文件

对应的matlab 调用代码如下：

clear all

clc

warning off %#ok

loadlibrary(*test.dll*, *test.h*); %******加载dll及对应的头文件*********

x=0;

A=calllib(*test*, *add*, 5,3,x);%****matlab里的calllib函数返回******

disp(*结果是*);disp(A)

unloadlibrary test

结果当然是3+5=8了，test.h头文件内容为：void add(int,int,int*);

%=======================================

%=======================================

现在问题来了，如果我要求一个矩阵的逆，用的是fortran自己的IMSL库里的函数，VS2008并没有IMSL库，因为用是的IVF,以前的CVF编辑器有，所以下载安装了一个，变量路径也设置了，然后就是fortran代码：

subroutine GJ_inv (A,n)

use imsl

!DEC$ ATTRIBUTES C，DLLEXPORT :: GJ_inv

integer n

double presicion A(n,n)

A=.i.A

end subroutine GJ_inv

在这里，编辑不通过，说是 imsl 路径不对

问题：对于要调用IMSL库的，如何编写？