C++与fortran混编 subroutine和function在module里

cfortran

先贴代码：

[Fortran] 纯文本查看 复制代码

module hydromodelUtil
  implicit none
  double precision, parameter :: pi=3.141593d0
  type singleinfo
    integer :: controlno
    integer :: unittype
    integer :: solid
    double precision :: coearea
    double precision :: volume
    double precision, dimension(3) :: center
    integer :: pointcount, trianglecount
    double precision, dimension(:,:), allocatable :: pointchain
    double precision, dimension(:,:,:), allocatable :: trianglechain
  end type singleinfo
contains
  subroutine cylindermeshing(r, h, cylinderinfo)
    implicit none
    double precision :: r, h
    type(singleinfo) :: cylinderinfo
    integer :: polyedge=60
    double precision, dimension(:,:), allocatable :: point
    double precision :: dtheta
    integer :: meshi

    dtheta=2*pi/real(polyedge)

    cylinderinfo%volume=(0.5d0*polyedge*sin(dtheta)*r**2)*h
    cylinderinfo%center=(/ 0.0d0, 0.0d0, 0.5d0*h /)

    cylinderinfo%pointcount=2*polyedge
    cylinderinfo%trianglecount=4*polyedge
    allocate(point(2,polyedge+1) )

    do meshi=1, polyedge, 1
      point(1,meshi)=r*cos( (real(meshi)-1.0d0)*dtheta)
      point(2,meshi)=r*sin( (real(meshi)-1.0d0)*dtheta)
    end do
    point(:, polyedge+1)=point(:, 1)

    do meshi=1, polyedge, 1
      cylinderinfo%pointchain(1:2,meshi)=point(1:2,meshi)
      cylinderinfo%pointchain(3,meshi)=0.0d0
      cylinderinfo%pointchain(1:2,polyedge+meshi)=point(1:2,meshi)
      cylinderinfo%pointchain(3,polyedge+meshi)=h
    end do

  end subroutine cylindermeshing

  function thirddet(deta)
    double precision, dimension(3,3) :: deta
    double precision :: thirddet
    thirddet=deta(1,1)*(deta(2,2)*deta(3,3)-deta(3,2)*deta(2,3)) &
      & -deta(2,1)*(deta(1,2)*deta(3,3)-deta(3,2)*deta(1,3)) &
      & +deta(3,1)*(deta(1,2)*deta(2,3)-deta(2,2)*deta(1,3))
  end function thirddet

end module hydromodelUtil

请问怎么才能让c++调用生成的dll 里面的子程序和函数啊   我自己改的程序老是出现各种莫名奇妙的错误，拜求大神给看看，多谢了

cfortran

我看你的代码里没有加载动态链接库的代码，现在这样做是不需要做成动态链接库 而采用直接链接的方式混编吗   我用的是ifc的平台   看网上直接混编有个实例是用gfc平台做的。在VS里面具体该怎么做啊这是网上那个gfc平台做的

cfortran

kyra 发表于 2017-7-13 07:51
module中的函数，和普通的外部函数一样的。直接写 Bind( C , Name ) 就可以了。
你目前的设计，最难的地方 ...

我看你的代码里没有加载动态链接库的代码，现在这样做是不需要做成动态链接库 而采用直接链接的方式混编吗   我用的是ifc的平台   看网上直接混编有个实例是用gfc平台做的。在VS里面具体该怎么做啊 ？  这是网上那个gfc平台做的

cfortran

kyra 发表于 2017-7-12 21:03
1. 我的代码是通用代码。不分动态库，静态库。
2. 用静态库的话，fortran编译得到obj或lib文件，加入C++的 ...

嗯  多谢了    我再试试

cfortran

kyra 发表于 2017-7-12 21:03
1. 我的代码是通用代码。不分动态库，静态库。
2. 用静态库的话，fortran编译得到obj或lib文件，加入C++的 ...

链接时出现错误error LNK1104：无法打开文件‘ifconsol.lib’
我在附加依赖项中添加ifconsol.lib后还是不行。请问这个怎么解决   

ps：我已经把fortran编译得到的source1.obj文件添加到了C++的项目里了

cfortran

pasuka 发表于 2017-7-13 16:02
为啥不能先看看ivf帮助文档和范例呢？
Intel® Fortran Compiler XE 12.1 User and Reference GuidesMixed  ...

嗯  也在看modern fortran explained 这本书上的介绍   无奈英语渣的不行   只能一个词一个词的查。。。。。。  

cfortran

pasuka 发表于 2017-7-13 16:22
ivf帮助文档啃不动，ivf自带的sample 代码总归看得懂吧？！

嗯嗯  这个能看懂