User`s manual

3 Creating Fortran MEX-Files

3-26

C $Revision: 1.12 $

C===============================================================

C dblmat.f

C Example for illustrating how to use %val.

C Doubles the input matrix. The demo only handles real part

C of input.

C NOTE: If your Fortran compiler does not support %val,

C use mxCopy_routine.

C NOTE: The subroutine compute() is in the file called

C compute.f.

C This is a MEX-file for MATLAB.

C===============================================================

C Gateway subroutine

subroutine mexfunction(nlhs, plhs, nrhs, prhs)

C---------------------------------------------------------------

C (pointer) Replace integer by integer*8 on the DEC Alpha

C platform.

integer plhs(*), prhs(*)

integer pr_in, pr_out

integer mxGetPr, mxCreateFull

C---------------------------------------------------------------

integer nlhs, nrhs, mxGetM, mxGetN

integer m_in, n_in, size

if(nrhs .ne. 1) then

call mexErrMsgTxt('One input required.')

endif

if(nlhs .gt. 1) then

call mexErrMsgTxt('Cannot return more than one output.')

endif