rafaeltini
Programmer
Hi, i'm new at using fortran, and i'm trying to covert an old progran that i found to a dll, so i can pul it from microsft execel, with the elp of vba.
but i'm having some problens and got lost on how to do this, so i would like a little help from you.
the variables that i want to pass are
READ(10,*) TFRE
READ(10,*) TFRS
READ(10,*) HFR
READ(10,*) CPFF
READ(10,*) TFAE
READ(10,*) TFAS
READ(10,*) HFA
IF(TFAE.EQ.TFAS) THEN
READ(10,*) DENSVAP
END IF
READ(10,*) CPFA
READ(10,*) NCOR
READ(10,*) DTM
READ(10,100) ((A(L,K),L=1,5),K=1,NCOR)
100 FORMAT(F25.12)
READ(10,*)
READ(10,101) ((PROJ(L,K),L=1,6),K=1,NCOR+2)
101 FORMAT(F25.12)
READ(10,*)
READ(10,112) (ESTA(L),L=1,NCOR)
112 FORMAT(F25.12)
they are declared on the code as doulbe precision and dimension.
what i should change , and what lines should i add to the code so i can create the dll
also, how should the vb code be stated?
if you guys could provide me some lnks to other exemples i would really apreciate, because i need to pass a lot of arrays and single vars.
thank you for the help
but i'm having some problens and got lost on how to do this, so i would like a little help from you.
the variables that i want to pass are
READ(10,*) TFRE
READ(10,*) TFRS
READ(10,*) HFR
READ(10,*) CPFF
READ(10,*) TFAE
READ(10,*) TFAS
READ(10,*) HFA
IF(TFAE.EQ.TFAS) THEN
READ(10,*) DENSVAP
END IF
READ(10,*) CPFA
READ(10,*) NCOR
READ(10,*) DTM
READ(10,100) ((A(L,K),L=1,5),K=1,NCOR)
100 FORMAT(F25.12)
READ(10,*)
READ(10,101) ((PROJ(L,K),L=1,6),K=1,NCOR+2)
101 FORMAT(F25.12)
READ(10,*)
READ(10,112) (ESTA(L),L=1,NCOR)
112 FORMAT(F25.12)
they are declared on the code as doulbe precision and dimension.
what i should change , and what lines should i add to the code so i can create the dll
also, how should the vb code be stated?
if you guys could provide me some lnks to other exemples i would really apreciate, because i need to pass a lot of arrays and single vars.
thank you for the help