爱气象,爱气象家园! 

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

搜索
查看: 2374|回复: 3

[求助] 帮忙把下面的fortran的程序编译为供C#调用,哪位大神帮帮忙啊

[复制链接]

新浪微博达人勋

发表于 2013-8-21 09:11:40 | 显示全部楼层 |阅读模式

登录后查看更多精彩内容~

您需要 登录 才可以下载或查看,没有帐号?立即注册 新浪微博登陆

x
就是下面的程序,我用C#写了一个控制台应用程序,然后提示出错,不能正常调用,请大家帮帮忙啊,我实在是找不出来哪里出错了这是C#的
class Program
    {
        [DllImport("testDLL.dll", CharSet = CharSet.Unicode, CallingConvention = CallingConvention.Winapi)]
        public static extern void A111();
        [DllImport("testDLL.dll", CharSet = CharSet.Unicode, CallingConvention = CallingConvention.Winapi)]
        public static extern void FCN( double XA,  double F,  int N);
        static void Main(string[] args)
        {
                   //A111();
        }
这是fortran的函数
subroutine A111()
!DEC$ ATTRIBUTES DLLEXPORT::A111
  use IMSL
  implicit none
  external FCN
  real, parameter :: ERRREL = 0.0001
  integer, parameter :: N = 3
  integer, parameter :: ITMAX = 100
  real :: XGUESS(N) = (/ 0.0, 1.0, 2.0 /)
  real X(N), FNORM

  CALL NEQNF (FCN, ERRREL, N, ITMAX, XGUESS, X, FNORM)
  open(unit=11,file='result.txt',status='replace')
  write(11,*) x
  write(*,*) x
  close(11)
  end subroutine
subroutine FCN (XA, F, N)
!DEC$ ATTRIBUTES DLLEXPORT::FCN
  implicit none
  integer N
  real, target :: XA(N)
  real F(N)
  real, pointer :: x,y,z
  ! 在计算时使用x,y,z看起来比较清楚
  x=>XA(1)
  y=>XA(2)
  z=>XA(3)

  F(1) = x*x + y*y + z*z -3
  F(2) = x*y + y*z + x*z -3
  F(3) = exp(x) + exp(y) + exp(z) -3*exp(1.0)

  return
end subroutine



密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2013-8-21 15:26:10 | 显示全部楼层
我已经解决了哈
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2014-9-10 09:44:48 | 显示全部楼层
亲你是怎么做到,如何用c#调用Fortran啊,非常的感谢
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2014-9-19 23:14:18 | 显示全部楼层
亲我也解决了,我调错了dll文件,调dll文件里,没有我要调用的函数,晕
密码修改失败请联系微信:mofangbao
您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

Copyright ©2011-2014 bbs.06climate.com All Rights Reserved.  Powered by Discuz! (京ICP-10201084)

本站信息均由会员发表,不代表气象家园立场,禁止在本站发表与国家法律相抵触言论

快速回复 返回顶部 返回列表