找回密码
 注册
Simdroid-非首页
查看: 128|回复: 2

[3. Fortran] 求助fortran子程序调用问题

[复制链接]
发表于 2010-1-18 08:47:57 | 显示全部楼层 |阅读模式 来自 安徽合肥
想把子程序和主程序分开在多个文件中,请问如何让主程序和子程序能正常调用所需的子程序。如下例main.f  ; subf1.f 和  subf2.f  
谢谢!

C      main.f
      PROGRAM main
      OPEN(31,FILE='rzlt.txt')
      a=2.0
      CALL f1(a,b)    !调用子程序f1()
      WRITE(31,10)b
   10 FORMAT('b=',F5.1)
      END    ! 主程序结束

C      subf1.f
      SUBROUTINE f1(c,d)
e=1+c
CALL f2(e,f)    !调用子程序f2()
      d=3*f
      return
      END  ! 子程序f1() 结束
  
C      subf2.f
      SUBROUTINE f2(e,f)
      g =3*e
f=g*g
      return
      END  ! 子程序f2() 结束
发表于 2010-2-24 15:19:41 | 显示全部楼层 来自 江苏南京
Simdroid开发平台
用workspace实现,把所有源文件加入Workspace中编译即可

评分

1

查看全部评分

回复 不支持

使用道具 举报

发表于 2010-2-24 17:20:26 | 显示全部楼层 来自 北京海淀
CVF 之类的话,用 project 管理即可,分成几个文件不是问题

编译命令的话,也可以直接把所有的源码文件写到编译语句里

评分

1

查看全部评分

回复 不支持

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Simapps系列直播

Archiver|小黑屋|联系我们|仿真互动网 ( 京ICP备15048925号-7 )

GMT+8, 2024-11-1 09:30 , Processed in 0.053833 second(s), 18 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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