24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1483  |  回复: 5

wangxinling

新虫 (小有名气)

[求助] fortran call语句

编了一个速度小程序,大程序里要用,怎么把他们联系起来?用call语句还是直接把速度部分放进来?谢谢各位大侠。
回复此楼
木虫好友,太热情了,谢谢。
已阅   回复此楼   关注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的回帖

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

至尊木虫 (著名写手)

天下兵马大元帅

引用回帖:
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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 295材料工程专硕求调剂 +19 1428151015 2026-03-27 19/950 2026-04-01 22:34 by peike
[考研] 环境工程297分求调剂一志愿杭高院 +10 GENJIOW 2026-03-31 11/550 2026-04-01 21:38 by GENJIOW
[考研] 310分求调剂 +4 成功上岸wang 2026-04-01 4/200 2026-04-01 20:35 by liu823948201
[考研] 085600 一志愿9 总分351 求调剂学校 +7 czhcz 2026-03-31 9/450 2026-04-01 19:24 by 无际的草原
[考研] 349求调剂 +6 吃的不少 2026-04-01 6/300 2026-04-01 17:55 by JYD2011
[考研] 一志愿厦门大学化学工程(专硕)-数二英二406分-求调剂 +4 厦大化工 2026-04-01 4/200 2026-04-01 17:54 by JYD2011
[考研] 285求调剂 +7 AZMK 2026-03-30 13/650 2026-04-01 17:00 by 七度不信任
[考研] 309求调剂 +19 谁不是少年 2026-03-29 19/950 2026-04-01 15:47 by jp9609
[考研] 348求调剂 +9 zzzzyk123 2026-04-01 9/450 2026-04-01 14:24 by w虫虫123
[考研] 282求调剂 +6 呼吸都是减肥 2026-04-01 6/300 2026-04-01 08:58 by laoshidan
[考研] 309分085801求调剂 +7 学员Gtwj7W 2026-03-31 7/350 2026-04-01 02:36 by BruceLiu320
[考研] 一志愿西交大080500材料学硕349 +6 jqx1258 2026-03-31 7/350 2026-03-31 21:08 by yuq
[考研] 考研调剂 +9 小蜡新笔 2026-03-29 10/500 2026-03-31 19:52 by Dyhoer
[考研] 367求调剂 +7 芋泥啵啵… 2026-03-28 7/350 2026-03-31 14:55 by 不吃魚的貓
[考研] 286求调剂 +6 Faune 2026-03-30 6/300 2026-03-31 14:37 by jp9609
[考研] 286求调剂 +5 丢掉懒惰 2026-03-27 8/400 2026-03-31 11:27 by Delta2012
[考研] 085602 化学工程专硕 340分求调剂 +4 qianbai11 2026-03-29 4/200 2026-03-30 11:34 by 唐沐儿
[考研] 一志愿双一流机械285分求调剂 +4 幸运的三木 2026-03-29 5/250 2026-03-29 14:49 by Miko19
[考研] 本科新能源科学与工程,一志愿华理能动285求调剂 +7 AZMK 2026-03-28 11/550 2026-03-28 21:01 by xxxsssccc
[考研] 一志愿上海理工能源动力(085800)310分求调剂 +3 zhangmingc 2026-03-27 4/200 2026-03-27 19:01 by 给你你注意休息
信息提示
请填处理意见