problem with passing function arguments

[zeik]

Hello All,
I'm a newbie and I'm having trouble with passing arguments to external functions in Fortran. Each of the functions has several arguments, all in the same format: real. However, when they're passed, the correct values of only some are passed.
For example:

This is my function call for "clderivatives" inside my main program

Clres(m)=clderivatives(flapave,flap(m),mach(m),alpha(m),
& qhat(m),de(m),Cl,radalt(m),gear(m))

I check the values of all the variables right before the function is called and then inside the function file. All of them are passed correctly except mach(m) and alpha(m).

the mach(m) value should be around: 0.4 and it is passed as: 2x10e-38

Here is the first few statements of my function:

real FUNCTION clderivatives(flapave,flap,mach,alpha,
& qhat,de,Cl,radalt,gear) RESULT(Clres)




real flapave
real flap
real mach
real alpha
real qhat
real de
real Cl
real radalt
real gear


------------------------------
I am not manipulating these variables in any way inside my function. Only using them to find dummy variables and calculate the result.

If anybody knows what the problem might be, I'd really appreciate it if you could reply to this post.

Thank you.

Regards,
Zeik

 

[ArkM]

Check up the actual type of mach array in callee context. It seems it may be integer...