24小时热门版块排行榜    

Znn3bq.jpeg
汕头大学海洋科学接受调剂
查看: 1666  |  回复: 10
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

junmajifei

铜虫 (正式写手)

[求助] Fortran数组的调用问题 已有6人参与

在网上看到一段代码,
integer bi(50000)
bi(20000) = 20000
...

if (bi(A).eq.A) goto 165

这里A的取值有两种情况,或者是0,或者是20000

请问bi(0)的值为多少?  

既然定义了integer bi(50000),bi应该是默认从1开始的,我不明白bi(0)存不存在,如果存在,默认值时多少?

电脑上没装fortran,还请广大虫友指教。
回复此楼

» 收录本帖的淘帖专辑推荐

计算机语言

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

相信自己,活出自己的精彩!
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

junmajifei

铜虫 (正式写手)

引用回帖:
2楼: Originally posted by sunchuanxi at 2015-01-10 15:01:21
默认从1,没有下标为0的值

if (bi(A).eq.A) goto 165  这个语句运行的时候会报错吗?如果 A = 0的话
相信自己,活出自己的精彩!
3楼2015-01-10 15:18:12
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 11 个回答

sunchuanxi

新虫 (初入文坛)

【答案】应助回帖

感谢参与,应助指数 +1
默认从1,没有下标为0的值

[ 发自小木虫客户端 ]
2楼2015-01-10 15:01:21
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

我是小刚

新虫 (初入文坛)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
junmajifei: 金币+15, ★★★很有帮助, 谢谢您的回答。 2015-01-11 09:52:52
引用回帖:
3楼: Originally posted by junmajifei at 2015-01-10 15:18:12
if (bi(A).eq.A) goto 165  这个语句运行的时候会报错吗?如果 A = 0的话...

这个不会出错,虽然数组的角标默认的是从1开始,但是不影响它的值为零。如果没有初始化,数组里的元素可能是随机数

[ 发自手机版 http://muchong.com/3g ]
4楼2015-01-10 15:26:22
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

我是小刚

新虫 (初入文坛)

【答案】应助回帖

引用回帖:
3楼: Originally posted by junmajifei at 2015-01-10 15:18:12
if (bi(A).eq.A) goto 165  这个语句运行的时候会报错吗?如果 A = 0的话...

补充一下,前提是if后的goto位置没啥问题

[ 发自手机版 http://muchong.com/3g ]
5楼2015-01-10 15:28:06
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求调剂学校 +11 不会吃肉 2026-04-13 12/600 2026-04-14 19:38 by Art1977
[考研] 求助调剂,跨调 +18 X十甫寸Y 2026-04-11 19/950 2026-04-14 19:26 by Art1977
[考研] 材料299专硕求调剂 +16 +21 2026-04-09 16/800 2026-04-14 17:06 by jiangguiquan11
[考研] 085404 22408 309分求调剂 +7 lzmk 2026-04-14 7/350 2026-04-14 17:02 by lihaoda1994
[考研] 26药学专硕105500求调剂 +6 喽哈加油 2026-04-13 6/300 2026-04-14 16:40 by zhouxiaoyu
[考研] 335求调剂 +19 想上岸呀!! 2026-04-12 21/1050 2026-04-14 16:23 by Art1977
[考研] 一志愿华南理工大学331分材料求调剂 +10 天下ww 2026-04-09 11/550 2026-04-13 23:25 by pies112
[考研] 考研二轮调剂 +10 故人?? 2026-04-09 10/500 2026-04-13 09:55 by szhize
[考研] 314求调剂 +24 wakeluofu 2026-04-09 25/1250 2026-04-13 08:58 by lhj2009
[考研] 材料与化工300求调剂 +39 肖开文 2026-04-09 43/2150 2026-04-12 01:30 by 秋豆菜芽
[考研] 070300化学279求调剂 +19 哈哈哈^_^ 2026-04-08 20/1000 2026-04-11 20:43 by stoner78
[考研] 284求调剂 +11 archer.. 2026-04-09 12/600 2026-04-11 20:23 by 蓝云思雨
[考研] 机械专硕270求调剂,接受跨专业 +12 老师看看我吧aba 2026-04-09 14/700 2026-04-11 10:21 by laoshidan
[考研] 0854调剂 +8 950824he@ 2026-04-09 8/400 2026-04-11 10:11 by zhq0425
[考研] 吉大计算机技术331分,英语六级,求调剂 +3 峰峰021116 2026-04-09 3/150 2026-04-10 20:01 by chemisry
[考研] 284求调剂 +9 让我上岸吧阿西 2026-04-09 11/550 2026-04-10 19:18 by 靖jing
[考研] 314求调剂 +14 weltZeng 2026-04-09 14/700 2026-04-09 23:14 by wolf97
[考研] 070300化学 求调剂 +13 73372112 2026-04-08 13/650 2026-04-09 20:22 by maddjdld
[考研] 求调剂 +3 猪肉墩粉条cc 2026-04-08 4/200 2026-04-09 10:05 by 猪肉墩粉条cc
[考研] 296求调剂 +3 汪!?! 2026-04-08 3/150 2026-04-08 22:00 by zhouyuwinner
信息提示
请填处理意见