Suggestions for running FORTRAN source code through MATLAB; mex finds too many errors

Hi all,

I am interested in running a FORTRAN source code through MATLAB. I want to use either mex or f2matlab to do this, but in either case, I'm getting errors.

• mex specifically states: "??? Error using ==> mex at 222; Unable to complete successfully."

Does this mean that need to make edits to the FORTRAN code line-by-line, or should I try a different compiler, or something else entirely?

• f2matlab gives me the error:

"??? Attempted to access temp(0); index must be a positive integer or logical. 
Error in ==> changeoperator_f at 69 
temp=find(~isspace(funstr{i}));
temp=temp(temp<loc);
temp=temp(length(temp));"

, etc. I can't find where in particular this is an issue in the FORTRAN code. Am I using this function incorrectly?

I've read through just about all the mathworks questions on this sort of topic, but I just don't have enough experience with running FORTRAN files to know where to start fixing these errors. Anyone have any immediate suggestions for resources or where to go next? (Keeping in mind that I'm not terrible with MATLAB, but the C/FORTRAN side to this is pretty new to me.)

The FORTRAN code in question is a USDA soil model (SHAW) and is located in the zip file at the bottom of this page in the code file: http://www.ars.usda.gov/Research/docs.htm?docid=16931

[James Tursa]

Do you have a supported Fortran compiler installed?

[canally]

Well, I think so. I downloaded compilers from here (<http://www.mathworks.com/support/compilers/R2010b/index.html)>, and I can choose a compiler in mex -setup (as Lcc-win32 C 2.4.1)...

[James Tursa]

LCC is a C compiler that comes with MATLAB. What I mean is have you downloaded and installed a supported 3rd party Fortran compiler (e.g., Intel)? You will need to do that in order to compile Fortran mex routines. What is the available compiler list that shows up when you type mex -setup and then press Enter?

If a Fortran compiler does show up in the list and you can select it, then try something simple first. See if you can compile this do-nothing mex function (e.g., put it in a file called mexfunction.f and try to compile it):

#include "fintrf.h"
subroutine mexFunction(nlhs, plhs, nrhs, prhs)
integer nlhs, nrhs
mwPointer plhs(*), prhs(*)
end subroutine

[canally]

Aha! I finally got the compilers in order, now I can see:

Select a compiler:

[1] Lcc-win32 C 2.4.1 in C:\PROGRA~2\MATLAB\R2010A~1\sys\lcc

[2] Microsoft Visual C++ 2010 Express in C:\Program Files (x86)\Microsoft Visual Studio 10.0

[0] None

Now, using [2], when I run your mexfunction.f, I get:

mex mexfunction.f

cl : Command line warning D9024 : unrecognized source file type 'mexfunction.f', object file assumed

cl : Command line warning D9027 : source file 'mexfunction.f' ignored

cl : Command line warning D9021 : no action performed

C:\PROGRA~2\MATLAB\R2010A~1\BIN\MEX.PL: Error: Compile of 'mexfunction.f' failed.

??? Error using ==> mex at 222 Unable to complete successfully.

[James Tursa]

Congratulations on getting the MSVC Express installed! Unfortunately, the only capability you have added is the ability to compile C++ mex routines (LCC only compiles C code, not C++). MSVC does not include a Fortran compiler. So you still do not have a Fortran compiler installed.

[Jan]

And this means, that it is not a problem of errors in the fortran code, but mex is missing the compiler.

[canally]

Ah! Okay. This makes sense. I had assumed that the compilers listed at http://www.mathworks.com/support/compilers/R2010b/index.html were general, and would cover Fortran as well as C++. It looks like the Fortran compilers (Intel) are only available as expensive commercial packages. I think I'll have to find another workaround besides mex.

Thank you for your help!