MATLAB REAL-TIME WORKSHOP 7 - TARGET LANGUAGE COMPILER Manual do Utilizador descarregar pdf (Página 131)

100

101

Examples of Fortran MEX-Files

3-21

endif

C Check to see both inputs are numeric.

if (mxIsNumeric(prhs(1)) .ne. 1) then

call mexErrMsgTxt('Input # 1 is not a numeric.')

elseif (mxIsNumeric(prhs(2)) .ne. 1) then

call mexErrMsgTxt('Input #2 is not a numeric array.')

endif

C Check that input #1 is a scalar.

m = mxGetM(prhs(1))

n = mxGetN(prhs(1))

if(n .ne. 1 .or. m .ne. 1) then

call mexErrMsgTxt('Input #1 is not a scalar.')

endif

C Get the size of the input matrix.

m = mxGetM(prhs(2))

n = mxGetN(prhs(2))

size = m*n

C Create matrix for the return argument.

plhs(1) = mxCreateFull(m, n, 0)

x_pr = mxGetPr(prhs(1))

y_pr = mxGetPr(prhs(2))

z_pr = mxGetPr(plhs(1))

C Load the data into Fortran arrays.

call mxCopyPtrToReal8(x_pr, x, 1)

call mxCopyPtrToReal8(y_pr, y, size)

C Call the computational subroutine.

call xtimesy(x, y, z, m, n)

C Load the output into a MATLAB array.

call mxCopyReal8ToPtr(z, z_pr, size)

return

end

1 2 ... 126 127 128 129 130 131 132 133 134 135 136 ... 407 408

Comentários a estes Manuais

Sem comentários

MATLAB REAL-TIME WORKSHOP 7 - TARGET LANGUAGE COMPILER Manual do Utilizador Página 131

Comentários a estes Manuais

Manuais e produtos relacionados com Software MATLAB REAL-TIME WORKSHOP 7 - TARGET LANGUAGE COMPILER