Intel® Fortran Compiler
Build applications that can scale for the future with optimized code designed for Intel® Xeon® and compatible processors.
29275 Discussions

Passing VBA UDT with arrays to Fortran?

jchauvin
Beginner
627 Views
Is it possible to pass a Microsoft Excel 2003VBA User Defined Data Type (UDT) which includes numeric arrays to Fortran with Intel Visual Fortran? I have been able to pass UDT without arrays without any problems but cannot figure out how to pass the structure defined below.
Here is the VBA UDT:
Public Type DataRecord3D
nrows As Long
nr_s As Long
nx1 As Long
x1() As DoubleRedim as 1D array
x1_sOrder As Long
nx2() As Long Redim as 1D array
min_nx2 As Long
max_nx2 As Long
x2() As DoubleRedim as 2D array
x2_sOrder As Long
nx3() As LongRedim as 2D array
min_nx3 As Long
max_nx3 As Long
x3() As Double Redim as 3D array
x3_sOrder As Long
ny As Long
y() As Double Redim as 4D array
isAllSquare As Boolean
isC1C2Square As Boolean
isC2C3Square As Boolean
End Type
0 Kudos
1 Reply
Steven_L_Intel1
Employee
627 Views
I'd guess that the arrays are represented as SAFEARRAY descriptors. You can use the SAFEARRAY routines in module IFCOM to decode them.
0 Kudos
Reply