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

100

101

Examples of Fortran MEX-Files

3-11

C Check for proper number of arguments.

if(nrhs .ne. 1) then

call mexErrMsgTxt('One input required.')

elseif(nlhs .ne. 1) then

call mexErrMsgTxt('One output required.')

endif

C Get the size of the input array.

m = mxGetM(prhs(1))

n = mxGetN(prhs(1))

size = m*n

C Check to ensure the input is a number.

if(mxIsNumeric(prhs(1)) .eq. 0) then

call mexErrMsgTxt('Input must be a number.')

endif

C Create matrix for the return argument.

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

x_pr = mxGetPr(prhs(1))

y_pr = mxGetPr(plhs(1))

call mxCopyPtrToReal8(x_pr, x, size)

C Call the computational subroutine.

call timestwo(y, x)

C Load the data into y_pr, which is the output to MATLAB.

call mxCopyReal8ToPtr(y, y_pr, size)

return

end

subroutine timestwo(y, x)

real*8 x, y

y = 2.0 * x

return

end

1 2 ... 116 117 118 119 120 121 122 123 124 125 126 ... 407 408

Comentários a estes Manuais

Sem comentários

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

Comentários a estes Manuais

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