2 guosw 69 guosw_69 于 2016.03.03 15:32 提问

VB 调用fortran函数(已经生成dll),怎么实现数组的传递? 20C

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是单个数,就可以传递     

7个回答

caozhy
caozhy   Ds   Rxr 2016.03.03 15:33

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

guosw_69
guosw_69   2016.03.03 15:42

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

guosw_69
guosw_69   2016.03.03 15:42

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

guosw_69
guosw_69   2016.03.03 15:43

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

guosw_69
guosw_69   2016.03.03 15:42

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

guosw_69
guosw_69   2016.03.03 15:43

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

guosw_69
guosw_69   2016.03.03 15:43

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

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!