Unable to resolve Error 28, when calling a fortran Dll

[Imageek]

I am calling a fortran dll from VB 6.0 and it keeps coming up with error 28. I have only nested the call statment in one procedure, removed all variable to the module level and removed all posible fixed length strings + there are no 'DoEvent' so that can not be the problem. This leaves only an event cascade!?!??! What is it and how would i go about solveing it.

cheers for any help.

 

[chiph]

Can you please post your declare statement that you're using for the DLL? And also post a sample of how you're calling it. No need to submit your entire program, though.

Chip H.

 

[Imageek]

The declare statement

Private Declare Sub COMA Lib "COMA32.dll" (ByRef NoChain As Long, ByRef Decay As Double, ByRef Conv As Long, ByRef NoComp As Long, ByRef InitTime As Double, ByRef NoChgTran As Long, ByRef ChgTranTime As Double, ByRef NoChgSou As Long, ByRef ChgSouTime As Double, ByRef NoSou As Long, ByRef NucSou As Long, ByRef CompSou As Long, ByRef InpSou As Single, ByRef InitInvFlag As Long, ByRef NoChgInv As Long, ByRef ChgInvTime As Double, ByRef NoOutTime As Long, ByRef outTime As Double, ByRef OutOption As Long, ByRef NoOut As Long, ByRef outComp As Long, ByRef IDisc As Long, outVal As Double, ByRef IFail As Long, ByRef InpInitInv As Single, ByRef CompFrom As Integer, ByRef CompTo As Integer, ByRef InpTranRate As Single, ByRef SetInvToZero As Integer, ByRef NoSetComp As Integer, ByRef SetToZeroComp As Integer, ByRef NoOutVal As Integer, ByRef InpNoTran As Integer)



The call statment


Call COMA(NoChain, Decay(1), Conv, NoComp, InitTime, NoChgTran, ChgTranTime(ChgTranTimeArray), NoChgSou, ChgSouTime(ChgSouTimeArray), NoSou, NucSou(NucSouArray), CompSou(CompSouArray), InpSou(InpSouArray, InpSouArray), InitInvFlag, NoChgInv, ChgInvTime(ChgInvTimeArray), NoOutTime, outTime(1), OutOption, NoOut, outComp(1), IDisc, outVal(1, 1, 1, 1), IFail, InpInitInv(1, 1), CompFrom(1), CompTo(1), InpTranRate(1, 1), SetInvToZero, NoSetComp, SetToZeroComp(1), NoOutVal, InpNoTran)

Thats for any help.