码迷,mamicode.com
首页 > 其他好文 > 详细

FORTRAN & MATLAB 混合编程

时间:2016-12-09 08:40:11      阅读:521      评论:0      收藏:0      [点我收藏+]

标签:determine   3.1   自己的   failure   env   hand   cte   编译环境   add   

0618bianlong@gmail.com

第一部分:Fortran调用Matlab引擎

1  什么是Matlab引擎

所谓Matlab引擎(engine),是指一组Matlab提供的接口函数,支持C/C++、Fortran等语言,通过这些接口函数,用户可以在其它编程环境中实现对Matlab的控制。可以主要功能有:

★ 打开/关闭一个Matlab对话;

★ 向Matlab环境发送命令字符串;

★ 从Matlab环境中读取数据;

★ 向Matlab环境中写入数据。

与其它各种接口相比,引擎所提供的Matlab功能支持是最全面的。通过引擎方式,应用程序会打开一个新的Matlab进程,可以控制它完成任何计算和绘图操作。对所有的数据结构提供100%的支持。同时,引擎方式打开的Matlab进程会在任务栏显示自己的图标,打开该窗口,可以观察主程序通过engine方式控制Matlab运行的流程,并可在其中输入任何Matlab命令。

注:Fortran程序与在Matlab初次安装时,会自动执行一次:matlab /regserver将自己在系统的控件库中注册。如果因为特殊原因,无法打开Matlab引擎,可以在Dos命令提示符后执行上述命令,重新注册。

2  Fortran调用Matlab语句原理

实际上,Fortran通过引擎函数调用MATLAB,实质是把Matlab作为一个ActiveX服务器,也叫Matlab计算引擎。当Fortran程序调用某个MATLAB函数或命令时,首先通过引擎函数启动Matlab并建立ActiveX通道,然后把这个函数或命令通过ActiveX通道传给Matlab,由Matlab在后台执行(这可以分成两步来完成:第一步将mxArray转换成Matlab可理解的形式。用mxCreate来创建一个和要传递的数据类型大小相同的矩阵mxArray;第二步将矩阵放入Matlab工作区中,用程序engPutVariable和engEvalString来完成。)。

下面给出几个比较重要的Fortran程序可以调用的引擎函数的功能说明,其他函数可以通过Matlab帮助找到:

engOpen:启动MATLAB引擎,建立ActiveX通道;

engClose:关闭MATLAB引擎,即关闭ActiveX通道;

engGetMatrix:从MATLAB引擎得到MATLAB数组值;

engPutMatrix:把一个MATLAB数组传给MATLAB引擎;

engEvalString:执行一个MATLAB命令;

engOutputBuffer:建立一个缓冲区以储存MATLAB的文本输出。

当然,要实现Matlab函数或命令的调用执行,除了调用Matlab语言的引擎函数外,还需要调用Matlab提供的API(应用程序接口)函数。由于Fortran与Matlab语言的计算单元不一样,前者以数位运算单位,而后者以矩阵(mxArray结构体)为基本的运算单位,导致运算的数据类型不能直接匹配。Matlab API函数采用独特的mxArray数据类型进行运算,能将Fortran程序运行的双精度实型变量转化成矩阵类型;也可以将Matlab矩阵类型变化成Fortran程序运行的双精度实型变量。

Fortran调用Matlab引擎编程步骤如下:

(1) 在Fortran编译器中声明引擎函数,API函数等。

(2) 在Fortran编译器中定义指针。在Matlab与Fortran混合编程中,指针是传递数据的唯一方式。因此,每一个传递到Matlab中的Fortran数据都需要一个指针来指向其在Matlab中对应的mxArray结构体。

(3) 通过Matlab引擎函数启动Matlab引擎,让Matlab在后台开始运行。

(4) 创建Matlab矩阵,将Fortran变量传递给Matlab矩阵。

(5) 执行所需的Matlab命令完成运算、函数调用、绘图等。

(6) 将Matlab运算结果返回给Fortran程序。

3  编译器设置

3.1  Compaq Visual Fortran 6.6中的设置

(1)设置头文件目录

在tool->options->Directories里的Include files添加(假设D:\Program Files\MATLAB是Matlab安装路径):

D:\Program Files\MATLAB\R2008a\extern\include

(2)设置库文件目录

Library files里添加(假设D:\Program Files\MATLAB是Matlab安装路径):

D:\Program Files\MATLAB\R2008a\extern\lib\win32\microsoft

(3)添加链接库输入项

在project->setting->link->Object/library modules添加libmx.lib libeng.lib

★ 注意*.lib文件之间用空格分隔,不可用逗号分隔。

(1)和(2)设置一次就可以,而(3)是每新建一个Project都要重新设置。也可以在Compaq Visual Fortran6.6中可以保存(3)中的设置,方法:点击菜单Files->Save Fortran Environment,在Save Fortran Console Environment as:输入一个名字,点击Save Environment。这样就可以在以后直接使用这一编译环境,例如:在新建一个Project后会弹出对话框”Would you like to consider applying options from a Saved Fortran Console Environment?”点击”是(Y)”,在对话框中List of Console Environment中,选择前面save过的环境名称,点击”Apply”按钮并确认,在接下来的对话框中点击”OK”。

3.2  Intel Visual Fortran 10.1中的设置

(1)设置头文件目录

在菜单中选择工具->选项,在对话框左边选择Intel(R) Fortran->Compilers,在右边的Includes里添加:D:\Program Files\MATLAB\R2008a\extern\include,如图1。

 

图  1

(2)设置库文件目录

同理,在右边的Libraries里添加:

D:\Program Files\MATLAB\R2008a\extern\lib\win32\microsoft

(3)添加链接库输入项

在解决方案资源管理器里选择对应的项目单机右键选择最下面的“属性”弹出属性对话框,在右边选择Linker->Input,在Additional Dependencies里添加:libeng.lib libmx.lib,如图2。

★ 注意:*.lib文件之间用空格分隔,不可用逗号分隔。

 

图  2

(4)设置环境变量

现在生成时就没问题出现了,但是运行程序时可能会出现“因为计算机中丢失libeng.dll”等类似问题。第(4)步就解决这个问题的,如图3。

把D:\Program Files\MATLAB\R2008a\bin\win32;添加到PATH里边(如果是64位系统则添加D:\Program Files\MATLAB\R2008a\bin\win64)。

在Win7下具体可以这样做:在桌面上选择“计算机”图标,右键弹出选单,在其中选择“属性”,然后在弹出的窗口中选中左边的高级系统设置,在属性对话框里选择“高级”选项卡,载选择“环境变量”,在新对话框里的系统环境下边找到PATH这一项选中,然后编辑,在后边添加

D:\Program Files\MATLAB\R2008a\bin\win32;

64位系统选择

D:\Program Files\MATLAB\R2008a\bin\win64;

 

图  3

★ 注意:不要删除path里原有的其他路径。

如果设置环境变量前打开了visual studio ,那么需要重启visual studio。

第二部分:Matlab调用Fortran程序

1  创建MEX文件实现对Fortran的调用

1.1  MEX文件介绍

Matlab MEX文件是Matlab系统的外部程序调用接口。MEX文件是由C/Fortran语言编写的,编译后生成Matlab动态链接子程序,可在Matlab环境下导入和执行,如同Matlab的内置函数一样。这样可以使用Fortran语言进行算法设计,然后再Matlab环境下调用,提高Matlab环境中数据处理效率,主要应用有:对已有的C/Fortran程序,可通过MEX方式在Matlab环境中直接调用;对影响Matlab执行速度的FOR循环,可以编写相应的C/Fortran子程序完成相同功能,并编译成MEX,提高运行速度。

MEX文件实际上为一种Matlab专用的动态链接库文件。

1.2  MEX文件调用的基本原理

Matlab和Fortran语言的运算单位不同,Matlab以矩阵(mxArray结构体)为基本数据结构,而在Fortran中,文件是由按顺序排列的记录组成的,而记录是数值或字符的序列,是Fortran程序输入输出的基本单位。记录有两种格式:格式记录和无格式记录。格式记录中,数据在文件中的存放是用ASCII码形式;无格式记录中,数据在文件中存放是用二进制代码形式。由于Fortran和Matlab的数据类型不能直接匹配,故需调用Matlab的API函数来完成二者的数据转换,其基本原理是:Matlab将需要传递的mxArray型数据的内存地址作为一个整型数值传递给Fortran程序,然后在Fortran中,API提供的访问函数(access routiness)使用此整数值来访问mxArray的内容,并将此值作为内存地址,读取相应内容。

1.3  Fortran语言MEX文件源程序的构成

Fortran MEX文件通常由两个显著不同的部分组成:(1)计算子程序,是完成计算功能的纯Fortran程序,通常为现有的Fortran程序代码;(2)入口子程序,是计算子程序与Matlab环境之间的接口,用来完成相互之间的调用。

计算子程序实际上被入口子程序当作子程序来调用,如果非常简单,也可以直接嵌入到入口子程序中,但为了保持可读性,一般不建议这么做。

入口子程序名字为mexFunction,包含4个虚拟参数:

prhs,输入参数的mxArray类型指针;

nrhs,输入参数个数;

plhs,输出参数的mxArray类型指针;

nlhs,输出参数个数。

调用格式为:

subroutine mexFunction ( nlhs, plhs, nrhs, prhs)

入口子程序通过MEX文件的API函数与Matlab进行数据交换。

★ 注意:其实上述输入、输出参数的名称非常容易记忆,lhs代表Left hand parameters,rhs代表right hand parameters,n代表number,p代表pointer。这里的左手和右手如何划分呢?例如在MATLAB中调用求伯特图的函数时,可以这样调用:

[mag,phase,w] = bode(sys)

这里以“=”为分界,左边的参数mag、phase和w为输出参数,即左手参数,而等号右边的参数sys,为输入参数,即右手参数。

1.4  编译器配置

在Matlab命令提示符下键入配置命令:mex  -setup,并按提示进行操作逐步完成。

★:只用mex -setup一次即可,以后运行mex文件等都不用再mex -setup。

1.5  MEX文件的执行流程

以由计算子程序和入口子程序组成的plus.for文件为例。首先,在Matlab环境下输入命令:mex plus.for;即对Fortran文件进行编译。编译完成后会创建出Matlab的MEX文件,即该目录下出现plus.mexw32文件,只需正确的键入该MEX文件名及其所需参数即可使用,例如z=plus(x, y)。可以在Matlab命令行下键入what指令查看当前路径下是否具有MEX文件。

1.6  %val结构

如果你的FORTRAN编译器支持%val结构(如Fortran90),有一种不要入口路径的指针类型,直接用mxGetPr或mxGetPi来取得数据指针,再用%val把指针内容传给Fortrran子程序,在这里把它作为一个FORTRAN的双精度矩阵,这种传递称为“值传递”。如果你的编译器不支持%val结构,就必须采用mxCopy路线(如mxCopyPtrToReal8)获得指针的内容。

%Val结构的定义及语法:

Built-in Function: Changes the form of an actual argument. Passes the argument as an immediate value.

Syntax

result = %VAL (a)

a (Input): An expression, record name, procedure name, array, character array section, or array element.

You must specify %VAL in the actual argument list of a CALL statement or function reference. You cannot use it in any other context.

例,不使用%val结构(Fortran 77)写法:

y_pr=mxGetPr(plhs(1))

x_pr=mxGetPr(prhs(1))

call mxCopyPtrToReal8(x_pr,x,size)

call times2(size,x,y)

call mxCopyReal8ToPtr(y,y_pr,size)

使用%val结构(Fortran 90)写法:

y_pr=mxGetPr(plhs(1))

x_pr=mxGetPr(prhs(1))

call times2(size,%val(x_pr),%val(y_pr))

1.7  Fortran语言MEX文件中对Matlab函数的调用

在Fortran语言MEX文件中,用户不但可以调用Fortran语言的内建函数,而且还可以通过API提供的子程序mexCallMATLAB来完成对Matlab内建函数、运算符、M文件的调用。

 

 

 

2  创建DLL文件实现对Fortran的调用

2.1  DLL文件介绍

动态链接库(Dynamic Link Library,DLL)是一个包含可由多个程序同时使用的代码和数据的库。动态链接提供了一种方法,使进程可以调用不属于其可执行代码的函数。函数的可执行代码位于一个DLL中,该DLL包含一个或多个已被编译、链接并与使用它们的进程分开存储的函数。多个应用程序可同时访问内存中单个DLL副本的内容。使用动态链接库具有如下优点:扩展了应用程序的特性;简化了软件项目的管理与升级;有助于节省内存、实现资源共享;可以用多种编程语言来编写。

2.2  Matlab调用Fortran动态连接库

混合语言程序设计中的主要问题:如何在编程时遵循不同语言中变量和过程的命名约定、堆栈使用约定以及函数调用过程中的参数传递约定。其中堆栈约定确定子过程的参数数目是否可变以及何时进行调用后的清理堆栈工作;命名约定确定标识符是否对大小写敏感及编译后对标识符如何修饰;参数约定确定参数传递时是传值方式还是传址(引用)方式及不同语言之间的数据类型和数据结构如何对应。Fortran语言调用约定有三种,即:STDCALL约定、C约定和Default调用约定。

Matlab可由两种方式调用Fortran语言编写的动态链接库。第一种方式是利用Matlab生成的MEX文件,即第二部分第1章节的内容;第二种方式是利用Fortran编译器,将Fortran语言编写的函数编译成通用32位的动态链接库(后缀名为dll),Matlab通过几个专门的API接口函数调用。

2.3  DLL文件的生成

生成动态链接库具体步骤如下:

(1)创建一个Fortran Dynamic Link Library工程。

(2)在工程中添加已经写好的子程序dll_test.for文件。

(3)在dll_test.for文件中,subroutine add(x,y,z)之后插入伪注释语句:

!DEC$ ATTRIBUTES C,DLLEXPORT :: add

!DEC$ ATTRIBUTES REFERENCE ::z

第一句表明库函数add在动态链接库外可被调用,并按C调用约定,只有声明了DLLEXPORT属性,才能从DLL中导出过程,该过程也才能为外部程序所调用。第二句指定z为引用传递。也可以指定z为值传递,即

!DEC$ ATTRIBUTES VALUE ::z

★ 调用约定规定了过程中所有参数的传递,而REFERENCE和VALUE属性则最终决定参数的传递(在任何情况下,数组参数只能以引用方式进行传递)。

(4)编译生成dll_test.DLL动态链接库文件。

(5)编写和C语言等效的DLL输出函数定义头文件dll_test.h,内容如下:

void add(int,int,int*);回车

void表示“空”,无返回值,int定义对应的变量为整型变量,int*代表指针类型,表示指向整型变量的指针。

★  注意要有回车,语句下要有空行。

2.3  DLL动态链接库的调用

Matlab利用三个内部函数loadlibrary、calllib和unloadlibrary调用Fortran成的通用DLL动态链接库,具体步骤如下:

(1)利用loadlibrary加载动态链接库及对应头文件。

(2)利用calllib调用动态链接库中的输出函数。

(3)利用unloadlibrary释放动态链接库。

在Matlab中编写m文件:

clc

clear

hfile=‘dll_test.h‘;

loadlibrary(‘dll_test.dll‘, hfile);     %加载dll及对应的头文件

x=0;

result=calllib(‘dll_test‘, ‘add‘, 3,5,x);  %matlab里的calllib函数返回

disp(‘result = ‘),disp(result)

unloadlibrary dll_test

第三部分:函数说明

1  引擎函数功能说明

1.1  engOpen:启动MATLAB引擎,建立ActiveX通道。

Fortran Syntax(语法):

Integer*4 function engOpen(startcmd)

Integer*4 ep

Character*(*) startcmd

Arguments(参数):

Startcmd:String to start the MATLAB process. On Windows systems, the startcmd string must be NULL.

Returns(返回值):

A pointer to an engine handle or NULL if the open fails.

1.2  engClose:关闭MATLAB引擎,即关闭ActiveX通道。

Fortran Syntax(语法):

Integer*4 function engClose(ep)

Integer*4 ep

Arguments(参数):

Ep:Engine pointer

Returns(返回值):

0 on success, and 1 otherwise. Possible failure includes attempting to terminate a MATLAB engine session that was already terminated.

1.3  engPutMatrix为旧的写法,现替换为engPutVariable: 把一个变量传给MATLAB引擎。

Fortran Syntax(语法):

Integer*4 function engPutVariable(ep,name,pm)

Integer*4 ep,pm

Character*(*) name

Arguments(参数):

Ep:Engine pointer

Name:Name given to the mxArray in the engine‘s workspace

Pm:mxArray pointer

Returns(返回值):

0 if successful and 1 if an error occurs

1.4  engGetMatrix为旧的写法,现替换为engGetVariable: 从MATLAB引擎得到变量值。

Fortran Syntax(语法):

Integer*4 function engGetVariable(ep,name)

Integer*4 ep

Character*(*) name

Arguments(参数):

Ep:Engine pointer

Name: Name of mxArray to get from MATLAB workspace

Returns(返回值):

A pointer to a newly allocated mxArray structure, or NULL if the attempt fails. engGetVariable fails if the named variable does not exist.

1.5  engEvalString: 执行一个MATLAB命令。

Fortran Syntax(语法):

Integer*4 function engEvalString(ep,string)

Integer*4 ep

Character*(*) string

Arguments(参数):

Ep:Engine pointer

String: String to execute

Returns(返回值):

0 if the command was evaluated by the MATLAB engine session, and nonzero otherwise. Possible reasons for failure include the MATLAB engine session is no longer running or the engine pointer is invalid or NULL.

★ engEvalString也可以当subroutine使用,例如call engEvalString(ep,string)。

 

1.6  engOutputBuffer:建立一个缓冲区以储存Matlab的文本输出。

Fortran Syntax(语法):

Integer*4 function engOutputBuffer(ep,p)

Integer*4 ep

Character*n p

Arguments(参数):

Ep:Engine pointer

P:pointer to character buffer

N:length of buffer p

Returns(返回值):

1 if you pass it a NULL engine pointer. Otherwise, it returns 0.

2  mx函数功能说明

Mx function功能:操作mxArray矩阵(MX Array Manipulation)。

2.1  mxCreateFull为旧的写法,现替换为mxCreateDoubleMatrix: 创建一个二维双精度矩阵。

Fortran Syntax(语法):

Integer*4 function mxCreateDoubleMatrix(m, n, Complexflag)

Integer*4 m, n, Complexflag

Arguments(参数):

m: The desired number of rows

n: The desired number of columns

Complexflag: If the data you plan to put into the mxArray has no imaginary components, specify 0. If the data has some imaginary components, specify 1.

Returns(返回值):

A pointer to the created mxArray, if successful. If unsuccessful returns 0.

2.2  mxCopyReal8ToPtr:复制Fortran中双精度实型数组的值到矩阵。

Fortran Syntax(语法):

subroutine mxCopyReal8ToPtr(y, px, n)

real*8 y(n)

integer*4 px, n

Arguments(参数):

y: real*8 Fortran array

px: Pointer to the real or imaginary data of a double-precision Matlab array

n: Number of elements to copy.

Description:

mxCopyReal8ToPtr copies n REAL*8 values from the Fortran REAL*8 array y into the MATLAB array pointed to by px, either a pr or pi array.

2.3  mxCopyPtrToReal8:把Matlab中的矩阵传给Fortran中的双精度实型数组。

Fortran Syntax(语法):

subroutine mxCopyPtrToReal8 (px, y, n)

real*8 y(n)

integer*4 px, n

Arguments(参数):

y: real*8 Fortran array

px: Pointer to the real or imaginary data of a double-precision Matlab array

n: Number of elements to copy.

Description:

mxCopyPtrToReal8 copies n REAL*8 values from the MATLAB array pointed to by px, either a pr or pi array, into the Fortran REAL*8 array.

2.4  mxCopyComplex16ToPtr:复制Fortran中复型数组的值到矩阵。

Fortran Syntax(语法):

subroutine mxCopyComplex16ToPtr(y, pr, pi, n)

complex*16 y(n)

integer*4 pr, pi, n

Arguments(参数):

y: complex*16 Fortran array

pr: Pointer to the real data of a double-precision Matlab array

pi: Pointer to the imaginary data of a double-precision Matlab array

n: Number of elements to copy.

Description:

mxCopyComplex16ToPtr copies n COMPLEX*16 values from the Fortran COMPLEX*16 array y into the MATLAB arrays pointed to by pr and pi. This subroutine is essential for use with Fortran compilers that do not support the %VAL construct in order to set up standard Fortran arrays for passing as arguments to the computation routine of a MEX-file..

2.5  mxCopyPtrToComplex16:把Matlab中的矩阵传给Fortran中的复型数组。

Fortran Syntax(语法):

subroutine mxCopyPtrToComplex16 (pr, pi, y, n)

complex*16 y(n)

integer*4 pr, pi, n

Arguments(参数):

y: complex*16 Fortran array

pr: Pointer to the real data of a double-precision Matlab array

pi: Pointer to the imaginary data of a double-precision Matlab array

n: Number of elements to copy.

Description:

mxCopyPtrToComplex16 copies n COMPLEX*16 values from the MATLAB arrays pointed to by pr and pi into the Fortran COMPLEX*16 array y. This subroutine is essential for use with Fortran compilers that do not support the %VAL construct in order to set up standard Fortran arrays for passing as arguments to the computation routine of a MEX-file.

2.6  mxGetM:Get number of rows in mxArray.

Fortran Syntax(语法):

Integer*4 function mxGetM(pm)

Integer*4 pm

Arguments(参数):

Pm: Pointer to an mxArray

Returns(返回值):

The number of rows in the mxArray to which pm points.

2.7  mxGetN:Get number of columns in mxArray.

Fortran Syntax(语法):

Integer*4 function mxGetN(pm)

Integer*4 pm

Arguments(参数):

Pm: Pointer to an mxArray

Returns(返回值):

The number of columns in the mxArray.

 

2.8  mxGetPr:得到mxArray中的实型数据。

Fortran Syntax(语法):

Integer*4 function mxGetPr(pm)

Integer*4 pm

Arguments(参数):

pm: Pointer to an mxArray

Returns(返回值):

The address of the first element of the real data. Returns 0 if there is no real data. Once you have the starting address, you can access any other element in the mxArray.

2.9  mxGetPi:得到mxArray中的虚部数据。

Fortran Syntax(语法):

Integer*4 function mxGetPi(pm)

Integer*4 pm

Arguments(参数):

pm: Pointer to an mxArray

Returns(返回值):

The imaginary data elements of the specified mxArray, on success. Returns 0 in Fortran if there is no imaginary data or if there is an error.

2.10  mxGetString: copy string mxArray into character array in Fortran.

Fortran Syntax(语法):

integer*4 function mxGetString(pm, str, strlen)

integer*4 pm, strlen

character*(*) str

Arguments(参数):

pm: Pointer to a string mxArray

str: The starting location into which the string should be written.

strlen: Maximum number of characters to read into str.

Returns(返回值):

0 on success, and 1 on failure.

2.11  mxGetScalar: Get real component of first data element in mxArray.

Fortran Syntax(语法):

real*8 function mxGetScalar(pm)

integer*4 pm

Arguments(参数):

pm: Pointer to an mxArray; cannot be a cell mxArray, a structure mxArray, or an empty mxArray.

Returns(返回值):

The value of the first real (nonimaginary) element of the mxArray.

2.12  mxCreateString: Create 1-by-N string mxArray initialized to specified string.

Fortran Syntax(语法):

integer*4 function mxCreateString(str)

character*(*) str

Arguments(参数):

str: The string that is to serve as the mxArray‘s initial data.

Returns(返回值):

A pointer to the created string mxArray if successful, and 0 in Fortran otherwise.

2.13  mxIsNumeric: Determine whether mxArray is numeric.

Fortran Syntax(语法):

Integer*4 function mxIsNumeric(pm)

Integer*4 pm

Arguments(参数):

Pm: Pointer to an mxArray

Returns(返回值):

Logical 1 (true) if the array can contain numeric data. Logical 0 (false) if the array cannot contain numeric data.

2.14  mxIsDouble: Determine whether mxArray represents data as double-precision, floating-point numbers.

Fortran Syntax(语法):

Integer*4 function mxIsDouble(pm)

Integer*4 pm

Arguments(参数):

Pm: Pointer to an mxArray

Returns(返回值):

Logical 1 (true) if the mxArray stores its data as double-precision, floating-point numbers, and logical 0 (false) otherwise.

2.15  mxIsComplex: Determine whether data is complex.

Fortran Syntax(语法):

Integer*4 function mxIsComplex(pm)

integer*4 pm

Arguments(参数):

pm: Pointer to an mxArray

Return:

Logical 1 (true) if pm is a numeric array containing complex data, and logical 0 (false) otherwise. If pm points to a cell array or a structure array, mxIsComplex returns false.

2.16  mxIsChar: Determine whether input is string mxArray.

Fortran Syntax(语法):

Integer*4 function mxIsChar(pm)

integer*4 pm

Arguments(参数):

pm: Pointer to an mxArray

Return:

Logical 1 (true) if pm points to an array having the class mxCHAR_CLASS, and logical 0 (false) otherwise.

 

2.17  mxDestroyArray:释放了由mxCreate函数创建的动态内存。

Fortran Syntax(语法):

subroutine mxDestroyArray(pm)

integer*4 pm

Arguments(参数):

pm: Pointer to the mxArray you want to free

Description:

mxDestroyArray deallocates the memory occupied by the specified mxArray. mxDestroyArray not only deallocates the memory occupied by the mxArray‘s characteristics fields (such as m and n), but also deallocates all the mxArray‘s associated data arrays.

3  mex函数功能说明

Mex function:即编写MEX文件的API函数。

3.1  mexFunction: MEX文件的入口函数,当在MATLAB命令行中执行MEX函数时,MATLAB解释器将从此函数处开始执行MEX代码。

Fortran Syntax(语法):

mexFunction(nlhs, plhs, nrhs, prhs)

integer*4 nlhs, nrhs

integer*4 plhs(*), prhs(*)

Arguments(参数):

prhs,输入参数的mxArray类型指针;

nrhs,输入参数个数;

plhs,输出参数的mxArray类型指针;

nlhs,输出参数个数。

Returns(返回值):

mexFunction is not a routine you call. Rather, mexFunction is the name of a subroutine in Fortran that you must write in every MEX-file. When you invoke a MEX-function, MATLAB? software finds and loads the corresponding MEX-file of the same name. MATLAB then searches for a symbol named mexFunction within the MEX-file. If it finds one, it calls the MEX-function using the address of the mexFunction symbol. If MATLAB cannot find a routine named mexFunction inside the MEX-file, it issues an error message.

3.2  mexErrMsgTxt: Issue error message and return to Matlab prompt.

Fortran Syntax(语法):

mexErrMsgTxt(errormsg)

character*(*) errormsg

Arguments(参数):

Errormsg: String containing the error message to be displayed

Returns(返回值):

Call mexErrMsgTxt to write an error message to the MATLAB window. After the error message prints, MATLAB terminates the MEX-file and returns control to the MATLAB prompt.

Calling mexErrMsgTxt does not clear the MEX-file from memory. Consequently, mexErrMsgTxt does not invoke the function registered through mexAtExit.

If your application called mxCalloc or one of the mxCreate* routines to allocate memory, mexErrMsgTxt automatically frees the allocated memory.

In addition to the errormsg, the mexerrmsgtxt function determines where the error occurred, and displays the following information. If an error labeled Print my error message occurs in the function foo, mexerrmsgtxt displays:

??? Error using ==> foo

Print my error message

3.3  mexPrintf: Prints a string on the screen and in the diary (if the diary is in use).

Fortran Syntax(语法):

integer*4 mexPrintf(message)

character*(*) message

Arguments(参数):

message: String to be displayed.

Returns(返回值):

The number of characters printed. This includes characters specified with backslash codes, such as \n and \b.

3.4  mexAtExit: Register function to call when MEX-function is cleared or MATLAB software terminates.

mexAtExit函数可以用来向Matlab注册函数,注册的函数将在MEX文件从内存中清除时被自动调用,从而可以完成一些清除内存,释放空间的操作。

Fortran Syntax(语法):

integer*4 function mexAtExit(ExitFcn)

subroutine ExitFcn

Arguments(参数):

ExitFcn: Pointer to function you want to run on exit.

Returns(返回值):

Always returns 0. In Fortran, you must declare the ExitFcn as external in the Fortran routine that calls mexAtExit if it is not within the scope of the file.

3.5  mexIsLocked: Determine whether MEX-file is locked.

Fortran Syntax(语法):

integer*4 function mexIsLocked()

Returns(返回值):

Logical 1 (true) if the MEX-file is locked; logical 0 (false) if the file is unlocked.

3.6  mexLock: 锁定函数。Prevent MEX-file from being cleared from memory.

Fortran Syntax(语法):

mexLock()

Description:

By default, MEX-files are unlocked, meaning that a user can clear them at any time. Call mexLock to prohibit a MEX-file from being cleared.

3.7  mexUnlock: 解锁函数。Allow MEX-file to be cleared from memory.

Fortran Syntax(语法):

mexUnlock()

Description:

By default, MEX-files are unlocked, meaning that a user can clear them at any time.

3.8  mexCallMATLAB: Call MATLAB function or user-defined M-file or MEX-file.

Fortran Syntax(语法):

mexCallMATLAB(nlhs, plhs, nrhs, prhs, name)

integer*4 nlhs, nrhs

integer*4 plhs(*), prhs(*)

character*(*) name

Arguments(参数):

prhs,输入参数的mxArray类型指针;

nrhs,输入参数个数;

plhs,输出参数的mxArray类型指针;

nlhs,输出参数个数。

name, Character string containing the name of the MATLAB built-in, operator, M-file, or MEX-file that you are calling.

★ 注意:这里的nrhs,prhs,nlhs,plhs是真对name函数(或m文件)的输入输出参数,而不是整个接口函数mexFunction的输入输出参数。

Returns(返回值):

0 if successful, and a nonzero value if unsuccessful.

 

Function

Successful

Unsuccessful

engOpen

非0

0

engClose

0

1

engEvalString

0

非0

engPutVariable

0

1

engGetVariable

非0

0

mxCreateDoubleMatrix

非0

0

mxGetPr

非0

0

 

FORTRAN & MATLAB 混合编程

标签:determine   3.1   自己的   failure   env   hand   cte   编译环境   add   

原文地址:http://www.cnblogs.com/momoko/p/6148013.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!