问题描述

VB 调用fortran函数（已经生成dll），怎么实现数组的传递？

VB调用fortran生成的dll。传数值，我已经实现，但是传数组地址没成功，
但是用C语言就可以找到数组的首地址，但是VB就不行，请VB的高手指教

fortran 代码如下（生成dll）：

subroutine ComputeFwd_DC1D(Pm,nParams,AB2,nd)
!DEC$ ATTRIBUTES REFERENCE::Pm,nParams,AB2,nd
implicit none
integer i
integer nParams,nd
!real(8),dimension(1:nParams):: Pm
!real(8),allocatable::Pm(:)
!real(8) Pm(10)
real(8) Pm(nParams)

real(8) AB2

do i=1,nParams
Pm(i)=150
enddo

!Pm(1)=0

AB2=AB2+1000

nd=nd+10

return
endsubroutine ComputeFwd_DC1D

VB代码：

前面需声明：
Private Declare Sub COMPUTEFWD_DC1D Lib "TEST1.dll" (ByRef Pm() As Double, ByRef nParams As Integer, ByRef AB22 As Double, ByRef nd As Integer)

    调用时：
        Call COMPUTEFWD_DC1D(Pm, nParams, AB22, nd)

    Pm是数组，但是无法传递数组，AB22是单个数，就可以传递

解决方案

VB也可以，直接传数组名。注意数据类型。

解决方案二：

数组名试过了，类型一致，但还是不行？你有实例？

解决方案三：

数组名试过了，类型一致，但还是不行？你有实例？

解决方案四：

数组名试过了，类型一致，但还是不行？你有实例？

解决方案五：

数组名试过了，类型一致，但还是不行？你有实例？

解决方案六：

数组名试过了，类型一致，但还是不行？你有实例？

解决方案七：

数组名试过了，类型一致，但还是不行？你有实例？