已解决: Re: How to create Fortran array referencing SafeArrayAccessData - 第2页

MWind2 · ‎12-30-2021

VBArray INOUT length known
integer(C_INTPTR_T) :: dptr
...
iRes=SafeArrayAccessData(VBArray,dptr)
dptr address is starting point of one dimensional c array of real{8}

I want to put it in a Fortran array so I can see it in debugger for one reason, but I want the Fortran array to reference the underlying data and not be a copy. Intention would be changes to data in Fortran array would be preserved in dptr array.

Steve_Lionel · ‎12-31-2021

Two errors. First, you omitted the size argument I specified to C_F_POINTER. Second, you treated the array as if it were zero-origin, but the array you get from C_F_POINTER is one-origin. (This could be finessed with pointer assignment redeclaring the bounds, but that seems unnecessary.)

I attach my modified df.f90. I didn't change anything else.

在原帖中查看解决方案

MWind2 · ‎01-06-2022

New dll for adding more dimensions with 2d working

Steve_Lionel · ‎01-06-2022

I'm glad to see that you sorted this out.

MWind2 · ‎01-07-2022

Here's general code tested in 2d and 3d. Thanks for help and previous example with strings.