24小时热门版块排行榜    

Znn3bq.jpeg
查看: 2418  |  回复: 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的回帖

bluesky123

木虫 (著名写手)

【答案】应助回帖

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

旋转的月

金虫 (正式写手)

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

newbing

木虫 (正式写手)

可能是类型设置的不对
COMEON,BABY!
4楼2014-02-18 16:05:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

newbing

木虫 (正式写手)

IJ=2*(NX+NY)-4+(NX-2)*(I-1)+J
这个语句是不是有问题?
COMEON,BABY!
5楼2014-02-18 16:39:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 化工学硕294分,求导师收留 +33 yzyzx 2026-04-12 37/1850 2026-04-17 23:00 by wunaiy88
[考博] 求博导|生物质基多孔碳/超级电容方向,已有相关成果,寻能源材料/碳材料方向老师 +3 猪猪人Zzz 2026-04-12 3/150 2026-04-17 19:10 by 阳阳阳^_^
[考研] 一志愿中科大材料与化工,353分还有调剂学校吗 +10 否极泰来2026 2026-04-15 12/600 2026-04-17 17:54 by mapenggao
[考研] 320求调剂 +4 深郊akm 2026-04-17 4/200 2026-04-17 17:32 by 一切OK
[考研] 一志愿沪9,326求生物学调剂 +11 刘墨墨 2026-04-13 11/550 2026-04-17 15:35 by wanganpin
[考研] 322求调剂 +6 tekuzu 2026-04-17 6/300 2026-04-17 13:48 by Espannnnnol
[考研] 收到复试调剂但是去不了 +6 小蜗牛* 2026-04-16 6/300 2026-04-17 10:05 by 涵竹刘
[考研] 291求调剂 +9 关忆北. 2026-04-14 9/450 2026-04-16 22:49 by cfdbai
[考研] 294求调剂 +14 淡然654321 2026-04-15 14/700 2026-04-16 21:01 by lpl364211
[考研] 291求调剂 +11 关忆北. 2026-04-14 11/550 2026-04-16 15:18 by jiahl2024
[考研] 327求调剂 +26 Xxjc1107. 2026-04-13 29/1450 2026-04-16 10:52 by Espannnnnol
[考研] 085404 22408 309分求调剂 +9 lzmk 2026-04-14 10/500 2026-04-15 20:02 by 学员JpLReM
[考研] 085801电气专硕272求调剂 +19 电气李 2026-04-13 21/1050 2026-04-15 13:37 by 黑科技矿业
[考研] 材料工程281还有调剂机会吗 +43 xaw. 2026-04-11 44/2200 2026-04-15 12:46 by 西北望—风沙
[考研] 211本科材料化工求调剂 +19 YHLAH 2026-04-11 23/1150 2026-04-14 22:25 by fenglj492
[考研] 考研求调剂 +6 ban班小七 2026-04-11 6/300 2026-04-14 14:06 by 哆啦A梦只是个梦
[考研] 245求调剂 +6 冰糖橘?汽水 2026-04-13 10/500 2026-04-14 10:49 by jyl0317
[考研] 0831一轮调剂失败求助 +10 小熊睿睿_s 2026-04-11 10/500 2026-04-12 22:43 by 长弓傲
[考研] 一志愿浙大生物325分求调剂 +9 zysheng 2026-04-12 9/450 2026-04-12 22:31 by yuyin1233
[考研] 270求调剂 +14 杨乐369 2026-04-11 14/700 2026-04-11 20:16 by 蓝云思雨
信息提示
请填处理意见