24小时热门版块排行榜    

查看: 481  |  回复: 2

astringent

铜虫 (著名写手)

[交流] 【求助】在fortran中可以这样写吗【已完结】 已有2人参与

初学fortran,请问可以这样做吗:我在主程序中调用子程序test1,然后又在子程序test1中调用另一个子程序test2,我想传递a1。在子程序test2中,我先定义a1=0,然后有一个判断条件,如果成立,a1就为1,如果条件不成立,a1的值不变。当将a1的值返给子程序test1时,我还是利用a1是不是等于1来进行另一个条件的判断,这样做可以吗?另外我还想问大家,变量必须赋初值才能使用吗?比如说在我的主程序中调用子程序之前都没用到a1,当调用子程序后,才需要a1进行下面的计算,那是不是不用给a1付初值了?
program main
--------
call test1(a1,----)
----
end

subroutine test1(a1,----)
---
call test2(a1---)
--
end subroutine test1

subroutine test3(a1---)
--
end subroutine test3

[ Last edited by nono2009 on 2010-11-17 at 09:50 ]
回复此楼

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ykwang

金虫 (正式写手)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
nono2009(金币+1):鼓励应助 2010-11-17 09:49:53
所说的调用关系没问题,也不需要事先给a1赋初值,只需要保证在第一次使用a1前给其赋值即可。
Nothing_Is_Impossible!
2楼2010-11-12 20:20:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

astringent

铜虫 (著名写手)

谢谢by ykwang的解答
3楼2010-11-13 03:15:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 astringent 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 292求调剂 +6 yhk_819 2026-02-28 6/300 2026-03-01 23:23 by 向上的胖东
[考研] 材料学硕318求调剂 +4 February_Feb 2026-03-01 4/200 2026-03-01 22:52 by 一休哥FU
[考研] 265分求调剂不调专业和学校有行学上就 +6 礼堂丁真258 2026-02-28 8/400 2026-03-01 22:50 by jian_
[考研] 材料类求调剂 +10 wana_kiko 2026-02-28 12/600 2026-03-01 22:10 by 海嵙Y
[考研] 求调剂 +3 yunziaaaaa 2026-03-01 3/150 2026-03-01 21:45 by 王兆江
[考研] 26考研报考西工大材料308分求调剂 +3 weizhong123 2026-03-01 3/150 2026-03-01 21:42 by 公瑾逍遥
[考研] 274求调剂 +3 cgyzqwn 2026-03-01 6/300 2026-03-01 21:24 by cgyzqwn
[考研] 299求调剂 +3 Y墨明棋妙Y 2026-02-28 5/250 2026-03-01 21:01 by tangxiaotian
[考研] 306分材料调剂 +4 chuanzhu川烛 2026-03-01 5/250 2026-03-01 19:48 by 无际的草原
[考研] 化工299分求调剂 一志愿985落榜 +5 嘻嘻(*^ω^*) 2026-03-01 5/250 2026-03-01 19:47 by 无际的草原
[考研] 291分工科求调剂 +9 science饿饿 2026-03-01 10/500 2026-03-01 18:55 by 18137688336
[考博] 26申博 +4 想申博! 2026-02-26 6/300 2026-03-01 17:32 by 想申博!
[考研] 化工专硕348,一志愿985求调剂 +5 弗格个 2026-02-28 8/400 2026-03-01 17:25 by sunny81
[考研] 281求调剂 +4 2026计算机_诚心 2026-03-01 7/350 2026-03-01 17:20 by 2026计算机_诚心
[考研] 307求调剂 +5 wyyyqx 2026-03-01 5/250 2026-03-01 15:21 by Fff-1
[考研] 调剂 +3 简木ChuFront 2026-02-28 3/150 2026-03-01 11:46 by 王伟要上岸啊
[硕博家园] 2025届双非化工硕士毕业,申博 +3 更多的是 2026-02-27 4/200 2026-03-01 10:04 by ztg729
[考研] 材料调剂 +4 爱擦汗的可乐冰 2026-02-28 4/200 2026-03-01 00:38 by 猫猫球alter
[考研] 304求调剂 +3 52hz~~ 2026-02-28 5/250 2026-03-01 00:00 by 52hz~~
[硕博家园] 【博士招生】太原理工大学2026化工博士 +4 N1ce_try 2026-02-24 8/400 2026-02-26 08:40 by N1ce_try
信息提示
请填处理意见