24小时热门版块排行榜    

Znn3bq.jpeg
汕头大学海洋科学接受调剂
查看: 1671  |  回复: 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的回帖

我是小刚

新虫 (初入文坛)

【答案】应助回帖

引用回帖:
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 个回答

sunchuanxi

新虫 (初入文坛)

【答案】应助回帖

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

[ 发自小木虫客户端 ]
2楼2015-01-10 15:01:21
已阅   关注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的回帖

我是小刚

新虫 (初入文坛)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +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的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料工程085601,270求调剂 +42 @ASDF1234 2026-04-08 46/2300 2026-04-14 18:12 by 逍遥三郎
[考研] 297工科调剂? +13 河南农业大学-能 2026-04-13 13/650 2026-04-14 16:46 by Art1977
[教师之家] 转长聘了 +7 简单化xn 2026-04-13 7/350 2026-04-14 14:50 by xindong
[考研] 求调剂 +12 何气正 2026-04-13 13/650 2026-04-14 14:47 by zs92450
[考研] 求调剂 +16 雪逢冬 2026-04-10 16/800 2026-04-14 14:27 by 逆水乘风
[考研] 085408光电信息工程专硕355一志愿长春光机所调剂 +6 王ymaa 2026-04-13 13/650 2026-04-14 11:33 by 王ymaa
[考研] 考研英一数一338分 +9 长江大学东校区 2026-04-13 10/500 2026-04-14 00:41 by 王珺璞
[考研] 生物学调剂,一志愿西南大学348,Top期刊一区二作、二区三作,三等奖学金三次 +5 candyyyi 2026-04-09 5/250 2026-04-13 09:02 by 可淡不可忘
[考研] 322求调剂,08工科 +4 今天是个小号 2026-04-08 4/200 2026-04-13 00:20 by baobaoye
[考研] 346分,工科0854求调剂,专硕 +6 moser233 2026-04-12 7/350 2026-04-12 22:11 by fqwang
[考研] 调剂 +5 文道星台 2026-04-11 5/250 2026-04-11 15:01 by 凯凯要变帅
[考研] 0854调剂 +5 音像店听花鼓戏 2026-04-10 5/250 2026-04-11 10:49 by qingpingzhu
[考研] 一志愿985机械学硕380求调剂 +5 关关雎鸠10 2026-04-11 5/250 2026-04-11 10:10 by 知念。A
[考研] 22408 327分求调剂 +4 韵风kon 2026-04-10 4/200 2026-04-11 09:51 by 猪会飞
[考研] 22408调剂求助 +7 毂12 2026-04-09 9/450 2026-04-11 09:23 by 哦哦123
[考研] 中科院总分315求调剂 +8 lallalh 2026-04-09 8/400 2026-04-10 19:30 by dick_runner
[考研] 一志愿沪9,326生物学求相关专业调剂 +4 刘墨墨 2026-04-09 4/200 2026-04-10 12:07 by pengliang8036
[考研] 349学科化学045106求调剂,化学类都可以 +8 保好懂懂 2026-04-08 8/400 2026-04-09 14:03 by xulei3024
[考研] 286求调剂 +19 Faune 2026-04-08 20/1000 2026-04-09 08:36 by 哦哦123
[考研] 生物学学硕,初试351分,求调剂 +4 …~、王…~ 2026-04-08 5/250 2026-04-08 21:49 by limeifeng
信息提示
请填处理意见