24小时热门版块排行榜    

CyRhmU.jpeg
查看: 1414  |  回复: 5

wangxinling

新虫 (小有名气)

[求助] fortran call语句

编了一个速度小程序,大程序里要用,怎么把他们联系起来?用call语句还是直接把速度部分放进来?谢谢各位大侠。
回复此楼
木虫好友,太热情了,谢谢。
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖置顶 ( 共有1个 )

wlscj

木虫之王 (文坛精英)

【答案】应助回帖


感谢参与,应助指数 +1
wangxinling: 金币+1, 有帮助 2012-07-14 10:08:50
wangxinling: 回帖置顶 2012-07-14 10:09:39
example

subroute velo(v,x)
implicit none
real v,x
v=x*x
end subroute
4楼2012-07-11 08:31:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

wjy3004

至尊木虫 (著名写手)

天下兵马大元帅

【答案】应助回帖


感谢参与,应助指数 +1
wangxinling: 金币+1, 有帮助 2012-07-10 21:04:32
小程序 subroute    ABCD(带参,或者不带参)
                ......
               ......
               ......
               ......

大程序   ...
             .....
              ....
            call   ABCD(带参,或者不带参)
           .....
            ....
            ....
淡泊明志,宁静致远。
2楼2012-07-10 09:30:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wangxinling

新虫 (小有名气)

夕阳西下: 带参数,参数可以传递。不带参数,这直接调用该子程序的内容 2012-07-11 07:22:34
引用回帖:
2楼: Originally posted by wjy3004 at 2012-07-10 09:30:43
小程序 subroute    ABCD(带参,或者不带参)
                ......
               ......
               ......
               ......

大程序   ...
             .....
              ....
       ...

如果带参,我不懂怎么写参数?
木虫好友,太热情了,谢谢。
3楼2012-07-10 21:04:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wjy3004

至尊木虫 (著名写手)

天下兵马大元帅

引用回帖:
4楼: Originally posted by wlscj at 2012-07-11 08:31:21
example

subroute velo(v,x)
implicit none
real v,x
v=x*x
end subroute

subroute velo(x,y,z)
x=....
y=....
z=....
v=....
end subroute
....
....
....
call velo(10,15,20)
淡泊明志,宁静致远。
5楼2012-07-11 09:10:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wangxinling

新虫 (小有名气)

引用回帖:
5楼: Originally posted by wjy3004 at 2012-07-11 09:10:35
subroute velo(x,y,z)
x=....
y=....
z=....
v=....
end subroute
....
....
....
call velo(10,15,20)...

谢谢
木虫好友,太热情了,谢谢。
6楼2012-07-14 10:09:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 wangxinling 的主题更新
信息提示
请填处理意见