ArrayName(Row No, Column No).Ī screen shot showing the output of the quadratic function is shown below:įortran code for two Cubic functions, and the resulting dll, are included in the download files. Unlike C++, in Fortran the array members are named in the same way as VBA i.e. Retn = QUADA(xa(1, 1), ResA(1, 1), NumRows)Īs for C++ dlls, array parameters are passed by reference by entering the first member of the array. NumRows = UBound(QuadData) – LBound(QuadData) + 1 The dll has been named cubic.dll, since it contains both the quadratic and cubic functions:ĭeclare Function QUADA Lib "D:\Users\.\Cubic\Release\Win32\Cubic.dll" (qdat As Double, ResA As Double, NumRows As Long) As Doubleįunction FQuada(QuadData As Variant) As Variantĭim A As Double, b As Double, c As Double The fortran routine is compiled as a dll as before, and may then be called from a VBA routine.
Parameters specified as Long in VBA are Integers in Fortran.Paramaters that are specified as double in VBA are REAL(2) in Fortran.The arrays qdat and ResA are dynamic, and will be sized at run time to the size specified in NumRows.The function parameters: qdat, ResA, and NumRows are declared as either intent(in) or intent(out) intent(inout) is also allowed.The function is preceded with “F_stdcall”.The Fortran code for the quadratic function (QUADA) is shown below:į_stdcall FUNCTION QUADA(qdat, ResA, NumRows) Compiling a Fortran function to solve cubic equations, and linking from Excel.Writing and compiling a simple Fortran function to solve quadratic equations, and linking to it from Excel.Transferring arrays between VBA and Fortran.
#Simply fortran 2 trial software#
The spreadsheet, fortran source code, and compiled dll described in this code may be downloaded from Cubic.zipĪs always, it is better to use the downloaded code, rather than copying from the post, because the WordPress software changes quotes (“”) and several other characters, so that code copied and pasted from the post will often not run without editing. In this post the procedures described for C++ here will be replicated for Fortran:
0 kommentar(er)
