24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 2396  |  回复: 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的回帖

jj6701

新虫 (小有名气)

引用回帖:
3楼: Originally posted by bluesky123 at 2014-02-18 11:57:50
看了一下,怀疑可能是YM(*)这个数组的长度(DIMENSION),或者类型是不是没有定义好。
简单的循环语句,在逻辑上应该不会有问题。建议在所有的循环前面,给两个数组的所有元素赋值为0。

找到错因了,数组越界了,定义的XM(NOTN),YM(NOTN),NOTN只给了1000,41*41就不行了。。。太粗心了。。。掩面而逃啊。。。
8楼2014-02-18 19:09:06
已阅   回复此楼   关注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的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料科学与工程调剂 +9 深V宿舍吧 2026-03-30 10/500 2026-03-31 00:10 by jp9609
[考研] 274求调剂 +4 xiao爱同学 2026-03-30 4/200 2026-03-31 00:04 by jp9609
[考研] 085701环境工程求调剂 +11 多久上课 2026-03-27 12/600 2026-03-30 21:21 by 研究僧导导
[考研] 317求调剂 +8 十闲wx 2026-03-24 8/400 2026-03-30 21:00 by peike
[考研] 一志愿华中师范化学332分求调剂 +3 Lyy930824@ 2026-03-29 3/150 2026-03-30 20:15 by DHUSHUAI
[考研] 一志愿郑州大学,080500学硕,总分317分求调剂 +10 举个栗子oi 2026-03-24 11/550 2026-03-30 19:31 by michael2011
[考研] 309求调剂 +15 谁不是少年 2026-03-29 15/750 2026-03-30 19:28 by 2026材料调剂
[考研] 085601材料工程找调剂 +17 oatmealR 2026-03-29 18/900 2026-03-30 19:21 by Wang200018
[考研] 材料学硕333求调剂 +14 北道巷 2026-03-24 14/700 2026-03-30 18:59 by 源_2020
[考研] 342求调剂 +4 加油a李zs 2026-03-26 4/200 2026-03-30 16:39 by 晶体之美
[考研] 一志愿南航 335分 | 0856 | GPA 4.07 | 有科研经历 +8 cccchenso 2026-03-29 8/400 2026-03-29 23:53 by 我是小康
[考研] 11408软件工程求调剂 +3 Qiu学ing 2026-03-28 3/150 2026-03-28 21:50 by zhq0425
[考研] 315求调剂 +4 akie... 2026-03-28 5/250 2026-03-28 21:05 by zhq0425
[考研] 药学105500求调剂 +3 Ssun。。 2026-03-28 3/150 2026-03-28 11:24 by lxf170613
[考研] 一志愿南京航空航天大学材料学硕求调剂 +3 @taotao 2026-03-28 3/150 2026-03-28 10:26 by JourneyLucky
[考研] 316求调剂 +5 Pigcasso 2026-03-24 5/250 2026-03-27 12:10 by zhshch
[考研] 324求调剂 +5 hanamiko 2026-03-26 5/250 2026-03-27 10:33 by wangjy2002
[考研] 321求调剂 +6 wasdssaa 2026-03-26 6/300 2026-03-26 20:57 by sanrepian
[考研] 085602 289分求调剂 +8 WWW西西弗斯 2026-03-24 8/400 2026-03-26 16:33 by 不吃魚的貓
[考研] 一志愿天津大学339材料与化工求调剂 +3 江往卖鱼 2026-03-26 3/150 2026-03-26 09:42 by 王小欠i
信息提示
请填处理意见