24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1482  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 291求调剂 +20 Y-cap 2026-03-29 25/1250 2026-04-01 23:49 by 欣喜777
[考研] 材料求调剂 +7 呢呢妮妮 2026-04-01 7/350 2026-04-01 22:26 by lemonade0702
[考研] 266分,一志愿电气工程,本科材料,求材料专业调剂 +10 哇呼哼呼哼 2026-04-01 11/550 2026-04-01 21:48 by chyhaha
[考研] 085600,材料与化工321分,求调剂 +11 大馋小子 2026-03-27 11/550 2026-04-01 16:10 by cymywx
[考研] 348求调剂 +9 zzzzyk123 2026-04-01 9/450 2026-04-01 14:24 by w虫虫123
[考研] 283求调剂 +9 A child 2026-03-28 9/450 2026-04-01 14:20 by Jaylen.
[考研] 08工科,295,接受跨专业调剂 +6 lmnlzy 2026-03-31 6/300 2026-04-01 11:02 by 逆水乘风
[考研] 318求调剂 +8 七忆77 2026-04-01 8/400 2026-04-01 10:37 by Jaylen.
[考研] 土木304求调剂 +3 兔突突突, 2026-03-31 3/150 2026-04-01 09:42 by JourneyLucky
[考研] 322求调剂 +4 熹僖XX 2026-03-31 4/200 2026-04-01 08:21 by JourneyLucky
[考研] 江苏苏北高校诚邀调剂同学 +3 zzll406 2026-03-31 3/150 2026-03-31 16:54 by 及时行乐fan
[考研] 289求调剂 +3 Acesczlo 2026-03-29 4/200 2026-03-31 14:48 by 热情沙漠
[考研] 生物考研337分求调剂 +4 cgxin 2026-03-30 6/300 2026-03-31 14:18 by 记事本2026
[考研] 调剂求院校招收 +7 鹤鲸鸽 2026-03-28 7/350 2026-03-31 11:21 by oooqiao
[考研] 323分 食品与营养调剂 +3 嘿ooo 2026-03-31 3/150 2026-03-31 09:38 by longlotian
[考研] 0703化学321分求调剂 +10 三dd. 2026-03-30 11/550 2026-03-30 19:24 by markhwc
[考研] 求调剂 +7 青春裁为三截 2026-03-29 7/350 2026-03-30 13:14 by laoshidan
[考研] 数一英一271专硕(085401)求调剂,可跨 +7 前行必有光 2026-03-28 8/400 2026-03-28 23:22 by 小木虫tim
[考研] 312,生物学求调剂 +3 小译同学abc 2026-03-28 3/150 2026-03-28 15:32 by 落睿可思
[考研] 085602化学工程求调剂。 +4 平乐乐乐 2026-03-26 4/200 2026-03-26 17:57 by fmesaito
信息提示
请填处理意见