24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 2384  |  回复: 11
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

jj6701

新虫 (小有名气)

[求助] 很简单的Fortran赋值出错啦,求大神们帮忙找bug... 已有3人参与

就是以下这么简单的循环赋值语句,在NX=NY=21和NX=NY=31时结果完全没问题,当把NX和NY提高到41及以上时,以下这些循环语句中输出的XM也都没有问题,但是YM却都不对,比如第三行的YM(I)明明已经都赋予0.0了,但是输出的却不是零,第十一行把HY赋予YM时,输出也都不是HY。。。不知道是什么问题,求大神指教。。。mua mua。。。
      DO I=1,NX       
        XM(I)=HX*(I-1.0)/(NX-1.0)
        YM(I)=0.0
      ENDDO
      DO I=1,NY-1       
        XM(NX+I)=HX
        YM(NX+I)=HY*I/(NY-1.0)
      ENDDO
      DO I=1,NX-1       
        XM(NX+NY-1+I)=HX-HX*I/(NX-1.0)
        YM(NX+NY-1+I)=HY
      ENDDO
      DO I=1,NY-2       
        XM(2*NX+NY-2+I)=0.0
        YM(2*NX+NY-2+I)=HY-HY*I/(NY-1.0)
      ENDDO
      DO I=1,NY-2
      DO J=1,NX-2
        IJ=2*(NX+NY)-4+(NX-2)*(I-1)+J
        XM(IJ)=J/(NX-1.0)*HX
        YM(IJ)=I/(NY-1.0)*HY
      ENDDO
      ENDDO
回复此楼

» 猜你喜欢

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

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

btx97

金虫 (小有名气)

【答案】应助回帖

感谢参与,应助指数 +1
猜测应该是数组越界问题吧。
你得把前因后果都写出来吧,只写一个部,别人想帮忙也很难重复你的错误问题,无法判断问题在哪的。
整个最小的出错的程序代码出来帮你解答的人会更多。
6楼2014-02-18 17:05:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 12 个回答

旋转的月

金虫 (正式写手)

你得写出来输出的是什么啊。
2楼2014-02-18 07:04:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bluesky123

木虫 (著名写手)

【答案】应助回帖

感谢参与,应助指数 +1
看了一下,怀疑可能是YM(*)这个数组的长度(DIMENSION),或者类型是不是没有定义好。
简单的循环语句,在逻辑上应该不会有问题。建议在所有的循环前面,给两个数组的所有元素赋值为0。
Keep moving!
3楼2014-02-18 11:57:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

newbing

木虫 (正式写手)

可能是类型设置的不对
COMEON,BABY!
4楼2014-02-18 16:05:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 调剂310 +7 温柔的晚安 2026-03-25 8/400 2026-03-29 01:09 by 我是小康
[考研] 085600 材料与化工 329分求调剂 +10 Mr. Z 2026-03-25 10/500 2026-03-29 00:34 by 我是小康
[考研] 求调剂一志愿海大,0703化学学硕304分,有大创项目,四级已过 +7 幸运哩哩 2026-03-22 11/550 2026-03-28 20:27 by 唐沐儿
[考研] 压国家一区线,求导师收留,有恩必谢! +7 迷人的哈哈 2026-03-28 7/350 2026-03-28 16:47 by 催化大白
[考研] 求调剂 +4 零八# 2026-03-27 4/200 2026-03-27 18:07 by yu221
[考研] 07化学280分求调剂 +10 722865 2026-03-23 10/500 2026-03-27 15:51 by Plutoqq
[考研] 274求调剂 +17 顾九笙要谦虚 2026-03-24 23/1150 2026-03-27 15:16 by caszguilin
[考研] 复试调剂,一志愿南农083200食品科学与工程 +5 XQTJZ 2026-03-26 5/250 2026-03-27 14:49 by 狂炫麦当当
[考研] 一志愿华东理工大学081700,初试分数271 +6 kotoko_ik 2026-03-23 7/350 2026-03-27 12:29 by 惠州彭于晏
[考研] 085601 材料工程 313分 求调剂 +5 Ong3 2026-03-27 5/250 2026-03-27 12:24 by goldfish51
[考研] 316求调剂 +5 Pigcasso 2026-03-24 5/250 2026-03-27 12:10 by zhshch
[考研] 336材料求调剂 +7 陈滢莹 2026-03-26 9/450 2026-03-27 00:20 by wxiongid
[考研] 一志愿北化求调剂 +3 Jsman 2026-03-22 3/150 2026-03-26 21:06 by ajpv风雷
[考研] 打过很多竞赛,085406控制工程300分,求调剂 +3 askeladz 2026-03-26 3/150 2026-03-26 09:08 by 给你你注意休息
[考研] 一志愿哈工大,085400,320,求调剂 +4 gdlf9999 2026-03-24 4/200 2026-03-25 23:01 by boxking200
[考研] 生物技术与工程 +3 1294608413 2026-03-25 4/200 2026-03-25 18:02 by 1294608413
[考研] 282求调剂 +3 wcq131415 2026-03-24 3/150 2026-03-25 12:16 by userper
[考研] 318求调剂 +3 plum李子 2026-03-23 3/150 2026-03-25 09:42 by 雾散后相遇lc
[考研] 336化工调剂 +4 王大坦1 2026-03-23 5/250 2026-03-23 18:32 by allen-yin
[考研] 070300,一志愿北航320求调剂 +3 Jerry0216 2026-03-22 5/250 2026-03-23 09:16 by 。。堂堂
信息提示
请填处理意见