fortran源程序

天使宝贝

大家好，
  我刚学习fortran，想请教大家，如果我想在A.f源程序中调用B.f该怎么办呢，谢谢大家指点！

topmad

这个我原来也想弄一下，没弄出来，后来吧B.f里面的内容复制到A.f里面 写了个subroutine实现的

mofangbao

看看彭国伦的那本书啦，试试 module

言深深

@mofangbao的说法是正确的，如果想要两个程序相互调用需要借助模块化，但是鉴于你初学，建议采取@topmad的做法，用子程序的做法，在主函数中call一下就可以了，具体实现大致如下，也参考fortran版面的很多帖子
!---------------------------------------------
x=4.
call angle(x,y)
print*,y
end

subroutine angle(a,b)
b=x**2
end
!------------------------------------

输出结果为4
注意call里面的和子程序里面的参数意义对应即可，可以是数组，字符······

topmad

@言深深
我对module基本没啥概念，学 了一下，还没动手用
深深写个module教程哇

言深深

topmad 发表于 2011-11-22 20:15

                               
登录/注册后可看大图

@言深深
我对module基本没啥概念，学 了一下，还没动手用
深深写个module教程哇

只是看过，没有搞过，一般书上都有的哇

天使宝贝

用子程序实现了，如果子程序比较大，我想用两程序源代码这样比较方便我认为，大家有什么新的想法，欢迎指点，天使宝贝感激不尽！

wlzhongouc

在B.f中写成子程序或是模块的形式 然后将两个程序放到同一个workspace下编译即可

天使宝贝

wlzhongouc 发表于 2011-11-23 09:44

                               
登录/注册后可看大图

在B.f中写成子程序或是模块的形式 然后将两个程序放到同一个workspace下编译即可

我放到了同一个workspace下，但是编译总是出现错误，jiecheng(a)是我在123.f中的一个子程序，错误显示是：
456.obj : error LNK2001: unresolved external symbol _JIECHENG@4
Debug/456.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.

wlzhongouc

天使宝贝 发表于 2011-11-23 16:55

                               
登录/注册后可看大图

我放到了同一个workspace下，但是编译总是出现错误，jiecheng(a)是我在123.f中的一个子程序，错误显示是： ...

这还是没有放到同一个workspace的原因  先在dsw中打开，然后在左边一栏通过add files to project加到同一个workspace下 这样编译后才能调用外部子程序