ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Caling fortran from excel (https://www.excelbanter.com/excel-programming/401033-caling-fortran-excel.html)

Rafael Tini

Caling fortran from excel
 
Hi, i'm new at using fortran and vba, 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


John Bundy

Caling fortran from excel
 
I don't have a clue, but I do have a black belt in google-fu, try these

http://www.canaimasoft.com/f90vb/onl...nual/TH_44.htm
http://support.microsoft.com/kb/123841
--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"Rafael Tini" wrote:

Hi, i'm new at using fortran and vba, 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




All times are GMT +1. The time now is 01:37 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com