MEX fortran help with dummy arguments

Question

Chris 2013-2-18

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/64015-mex-fortran-help-with-dummy-arguments

I receive the following errors when try to compile my mex file:

pitchmex.f90(54): error #6451: A dummy argument name is required in this context.   [NB] 
INTEGER(4), INTENT(IN)      :: NB                                      ! Number of blades. 
-------------------------------^ 
pitchmex.f90(54): error #6279: A specification expression object must be a dummy argument, a COMMON block object, or an object accessible through host or use association   [NB] 
INTEGER(4), INTENT(IN)      :: NB                                      ! Number of blades. 
-------------------------------^ 
compilation aborted for pitchmex.f90 (code 1) 
C:\PROGRA~1\MATLAB\R2012A\BIN\MEX.PL: Error: Compile of 'pitchmex.f90' failed.

*************************************************************

Does mex allow for dummy arguments to be passed? I have my variables declared as follows:

INTEGER(4)      :: NB                                      ! Number of blades.
REAL(ReKi)      :: BlPitch (NB)                            ! Current values of the blade pitch angles (rad)
(-)
REAL(ReKi)      :: HSS_Spd                                 ! HSS speed (rad/s)
REAL(ReKi)      :: TFOutput(NB)                            ! Desired pitch angles returned by this subroutine (rad)
etc...

Is there a problem with making an array with NB size? Is there a way to fix this so I don't have to "hardwire" in a value for NB in the mex routine?

Chris

1 个评论
显示 -1更早的评论隐藏 -1更早的评论

Chris 2013-2-18

在 MATLAB Online 中打开

the NB is declared as follows:

INTEGER(4), INTENT(IN) :: NB

Forgot to include the INTENT(IN)

请先登录，再进行评论。

请先登录，再回答此问题。

Answer 1

James Tursa 2013-2-18

0
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/64015-mex-fortran-help-with-dummy-arguments#answer_75567

编辑：James Tursa 2013-2-18

The compiler is telling you that NB needs to come from an argument list (i.e., a dummy variable). I.e., it is expecting that this statement is inside a subroutine or function and that NB is listed as an argument. Can you post the code above this for the subroutine or function statement? Are BlPitch and TFOutput arguments? Or are they local variables? If local, keep in mind that they will be allocated off of the stack, not the heap, so if NB is very large you will risk a seg fault by blowing your stack size.

5 个评论
显示 3更早的评论隐藏 3更早的评论

Chris 2013-2-25

在 MATLAB Online 中打开

Hi James,

BLPitch is an input argument with TFOutput is the output argument. The code posted above is as follows:

#include <fintrf.h>
SUBROUTINE mexFunction(nlhs, plhs, nrhs, prhs)
USE NWTC_Library
IMPLICIT none
!----------------------------------------------------------------------------------------------
! define right- and left-hand side arguments of the MATLAB function we're creating
!----------------------------------------------------------------------------------------------
   INTEGER                       :: nlhs                   
   INTEGER                       :: nrhs                    
   mwPointer                     :: plhs(*)                 
   mwPointer                     :: prhs(*)

Then I have my pointers declared for the mex file. The goal is to interface with the following subroutine and declarations.

SUBROUTINE PitchCntrl ( BlPitch, ElecPwr, HSS_Spd, GBRatio, TwrAccel, NB, ZTime, DT, DirRoot, TFOutput )
USE                            NWTC_Library
IMPLICIT                        NONE
     ! Passed variables:
INTEGER(4), INTENT(IN )  :: NB                                             
REAL(ReKi), INTENT(IN )  :: BlPitch (NB)                                    
REAL(ReKi), INTENT(IN )   :: DT                                             
REAL(ReKi), INTENT(IN )   :: ElecPwr                                       
REAL(ReKi), INTENT(IN )  :: GBRatio                                         
REAL(ReKi), INTENT(IN )   ::HSS_Spd                                         
REAL(ReKi), INTENT(OUT)  ::TFOutput(NB)                                    
REAL(ReKi), INTENT(IN ) ::TwrAccel                                        
REAL(ReKi), INTENT(IN )   ::ZTime

James Tursa 2013-2-25

在 MATLAB Online 中打开

Last question and then I can post your mex interface code. What do you want the syntax for calling the mex function to be? E.g., would it be this:

function TFOutput = PitchCntrl(BlPitch,DT,ElecPwr,GBRatio,HSS_Spd,TwrAccel,Ztime)

which assumes that NB will be calculated inside mexFunction based on the size of the BlPitch that is passed in from MATLAB.

Chris 2013-5-15

TFOutput = PitchCntrol( BlPitch, ElecPwr, HSS_Spd, GBRatio, TwrAccel, NB, ZTime, DT, DirRoot)

Can NB be passed or is a work around needed?

请先登录，再进行评论。

MEX fortran help with dummy arguments

1 个评论
显示 -1更早的评论隐藏 -1更早的评论

回答（1 个）

5 个评论
显示 3更早的评论隐藏 3更早的评论

另请参阅

类别

标签

Community Treasure Hunt

MEX fortran help with dummy arguments

1 个评论 显示 -1更早的评论隐藏 -1更早的评论

回答（1 个）

5 个评论 显示 3更早的评论隐藏 3更早的评论

另请参阅

类别

标签

Community Treasure Hunt

WeChat

1 个评论
显示 -1更早的评论隐藏 -1更早的评论

5 个评论
显示 3更早的评论隐藏 3更早的评论