24小时热门版块排行榜

>论坛更新日志 (3498)
>虫友互识 (989)
>文献求助 (269)
>导师招生 (172)
>休闲灌水 (164)
>考博 (135)
>教师之家 (89)
>硕博家园 (83)
>博后之家 (82)
>论文投稿 (78)
>找工作 (77)
>论文道贺祈福 (67)
>基金申请 (67)
>考研 (58)
>公派出国 (51)
>招聘信息布告栏 (38)

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

w76990480

荣誉版主 (文坛精英)

super-emuch

应助: 47 (小学生)
贵宾: 13.729
金币: 109737
散金: 29386
红花: 337
沙发: 50
帖子: 23151
在线: 3166.8小时
虫号: 942733
注册: 2010-01-15
专业: 固体力学
管辖: 文献求助

[求助] do循环中调用子程序

fortran 语言
do i=1,100
call subion2
enddo
这样在do循环里面调用子程序怎么不调用

回复此楼

» 猜你喜欢

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

请教如下子程序中红色部分代码的用法。谢谢！已经有3人回复
【求助】子程序传值出错已经有5人回复

专业文献求助

1楼 2013-04-06 13:54:16

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

w76990480

荣誉版主 (文坛精英)

super-emuch

应助: 47 (小学生)
贵宾: 13.729
金币: 109737
散金: 29386
红花: 337
沙发: 50
帖子: 23151
在线: 3166.8小时
虫号: 942733
注册: 2010-01-15
专业: 固体力学
管辖: 文献求助

引用回帖:

7楼: Originally posted by nono2009 at 2013-04-06 19:49:59
估计程序中存在其它问题，光看这几行看不出什么东东来...

do i=1,1
tdh=tdh+2000
select case (tdh)
case (1:9)
write(form,"(i1)"

tdh
case (10:99)
   write(form,'(i2)') tdh
case (100:999)
   write(form,'(i3)') tdh
case (1000:9999)
   write(form,'(i4)') tdh
case (10000:99999)
   write(form,'(i5)') tdh
case (100000:999999)
   write(form,'(i6)') tdh
end select
write(filename,*) "test2.",trim(form)
OPEN (UNIT=13, file='d:\2\3.dat')
open(tdh,file=filename)
read(tdh,*)
read(tdh,*)
read(tdh,*)
read(tdh,*)
read(tdh,*)
read(tdh,*)
read(tdh,*)
read(tdh,*)
read(tdh,*)
120 read(tdh,*,end=130) a1,a2,a3,a4,a5
write(13,70) a1,a3,a4,a5
goto 120
130 backspace i
call subion21
enddo