24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 536  |  回复: 1

feime

金虫 (小有名气)

[求助] 求助二维fortran程序的输出问题

fortran菜鸟一枚,求大家帮助……

程序是拉氏坐标下求解二维问题,初始时刻是二维矩形形网格,随着时间推进网格坐标会变化。
所以定义了坐标的二维数组 x ( i , j ),y ( i , j ),i 和 j 的范围分别是 im,jm
然后每次循环的时候都是做
do i=1, im
      do j=1, jm
      ……
      end do
end do

所以想问:
1、结果输出时,直接在这个循环中加入 write (10 , *) 语句就可以么?
2、如果想输出当 j 为某一个特定值的时候,按照如下进行输出可以吗?
     运行的结果不对啊,在 j 取50的时候,输出的结果中,第50行的数据为NaN。
do i=1,im
        do j=1,jm
                tao_in(i,j)=tao_in(i,j)+(……)
                u_in(i,j)=u_in(i,j)-(……)
                v_in(i,j)=v_in(i,j)-(……)
                Ene_in(i,j)=Ene_in(i,j)-(……)
                if (j==50) then
                       write(10,*)  x_in(i,j),p_in(i,j),u_in(i,j),v_in(i,j),den_in(i,j),tao_in(i,j),lamta_in(i,j)
                end if  
        end do
end do
3、如果我想输出二维网格,就是画出某一个时间步的网格,该怎么输出?我用下面的试了,用tecplot画出来的明显不是正常的二维网格啊。
do i=1,im
        do j=1,jm
……
                 write(20,*)  i,j , x(i ,j) , y(i,j)
        end do
end do


真心求教,希望有大神指导
回复此楼

» 猜你喜欢

好好学习,天天向上。做自己
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

feime

金虫 (小有名气)

另外想问一下,之前安装的VS2012,编辑代码的时候,鼠标移到 do 旁边的时候,相对应 end do 会和 do 都有灰色底纹显示,类似的还有括号等,就是点击对应的关键字符都会有灰色低温显示的。
现在在另外一台电脑上安装的是VS2013旗舰版和IVF2013,怎么没有这种功能了???怎么设置???
好好学习,天天向上。做自己
2楼2016-03-05 18:33:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 feime 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 271求调剂 +14 勒布朗@ 2026-03-31 19/950 2026-04-02 00:01 by 勒布朗@
[考研] 11408 321分求调剂 +3 huchun12138 2026-03-30 4/200 2026-04-01 22:48 by guanxin1001
[考研] 070300化学279求调剂 +15 哈哈哈^_^ 2026-03-31 17/850 2026-04-01 21:37 by 给你你注意休息
[考研] 调剂推荐 +9 清酒714 2026-03-26 10/500 2026-04-01 16:25 by yanflower7133
[考研] 285求调剂 +5 FZAC123 2026-03-30 5/250 2026-04-01 15:50 by 韩雨涵
[考研] 英一数二生物信息学287分,本科生物科学,求调剂 +3 碧水xyz 2026-03-29 4/200 2026-04-01 15:35 by plum
[考研] 求调剂 +5 零八# 2026-03-27 5/250 2026-04-01 14:40 by yulian1987
[考研] 求调剂,一志愿 南京航空航天大学 ,080500材料科学与工程学硕,总分289分 +10 @taotao 2026-03-29 10/500 2026-04-01 09:30 by oooqiao
[考研] 311(085601)求调剂 +12 liziyeyeye 2026-03-28 13/650 2026-04-01 00:34 by fmesaito
[考研] 070300化学专业279调剂 +10 哈哈哈^_^ 2026-03-31 10/500 2026-03-31 23:13 by liu823948201
[考研] 复试调剂 +7 双马尾痞老板2 2026-03-31 7/350 2026-03-31 19:49 by Dyhoer
[考研] 081200-11408-276学硕求调剂 +4 崔wj 2026-03-31 4/200 2026-03-31 11:56 by jp9609
[考研] 南京大学化学调剂 +11 景随风 2026-03-29 16/800 2026-03-31 10:14 by herarysara
[考研] 276求调剂 +3 赵久华 2026-03-29 3/150 2026-03-31 10:06 by cal0306
[考研] 370求调剂 +3 080700调剂 2026-03-30 3/150 2026-03-31 01:09 by A_Zhe
[考研] 0703化学321分求调剂 +10 三dd. 2026-03-30 11/550 2026-03-30 19:24 by markhwc
[考研] 105500药学求调剂,一志愿山东大学药学,348分 +3 gr哈哈哈 2026-03-28 3/150 2026-03-30 18:56 by 源_2020
[考研] 本科新能源科学与工程,一志愿华理能动285求调剂 +7 AZMK 2026-03-28 11/550 2026-03-28 21:01 by xxxsssccc
[考研] 352分 化工与材料 +5 海纳百川Ly 2026-03-27 5/250 2026-03-28 03:39 by fmesaito
[考研] 315调剂 +4 0860求调剂 2026-03-26 5/250 2026-03-27 11:23 by wangjy2002
信息提示
请填处理意见