怎样将最后一行输出来啊 fortran编程

田子娜美

50136 2005  1 29   -224   -143   -312 0 0 0
50136 2005  1 30   -197   -146   -263 0 0 0
50136 2005  1 31   -167   -142   -224 0 0 0
50137 2005  1  1   -262   -168    -319 0 0 0

10 do i=1,4
        do j=1,10
              if(M(i,1)==50137) then
                goto 100
                else
                goto 10
             endif
        end do
   end do
100 write(*,*) ((M(i,j),j=1,10),i=1,4)
这样编程 存在什么问题 结果什么都没显示

topmad

貌似你那个 do j=1,10 没用吧

田子娜美

topmad 发表于 2012-2-22 20:12

                               
登录/注册后可看大图

貌似你那个 do j=1,10 没用吧

我也觉得 但是不用显示错误啊

topmad

do i=1,4
              if(M(i,1)==50137) then
write(*,*) ((M(i,j),j=1,10),i=1,4)
             endif
   end do
end

我给你大刀阔斧了  不知道你到底想输出啥....把整个数组输出来？

田子娜美

topmad 发表于 2012-2-22 20:26

                               
登录/注册后可看大图

do i=1,4
              if(M(i,1)==50137) then
write(*,*) ((M(i,j),j=1,10),i=1,4)

输出最后一行啊 还是不对的

topmad

do i=1,4
              if(M(i,1)==50137) then
write(*,*) ((M(i,j),j=1,10))
             endif
   end do
end


你是想输出在屏幕上？

言深深

楼主是不是有那么一个二维数组，然后想挑出其中一个站点数据，然后输出来吧？
貌似没有open文件，没有read语句
这样不管你上面怎么do都是徒劳的，因为x数组==========0（这个表示恒等于零）
所以永远都到不了“100”
正确的做法是先将数据读取到二维数组里面去

parameter(m=????) !此处m是你数据的行数
integer x(m,10)

open(1,file="filename.txt")
do i=1,m
read(1,*) (x(i,j),j=1,10)
enddo
close(1)
! 到此，从文件“filename.txt”读取数据完毕，下面开始判断，并输出50137站点数据到文件“2.txt”中
open(2,file="2.txt")
do i=1,m
if(x(i,1).eq.50137) write(2,"(10(i5,1x))")(x(i,j),j=1,10)
enddo
close(2)
! 到这儿你要的站点50137数据已经输出到文件“2.txt”里面
end

不知道对不对，以上程序没有经过验证，直接在这边敲的，若有问题，另行讨论
祝好

言深深

好吧，经过刚刚无聊的test了一下，将楼主的数据存到文件里面，m改成4，是可以再2.txt输出的，并且是正确的哦都没有人回复一下.........

錵唂哚

言深深 发表于 2012-2-22 22:43

                               
登录/注册后可看大图

好吧，经过刚刚无聊的test了一下，将楼主的数据存到文件里面，m改成4，是可以再2.txt输出的，并且是正确的哦 ...

给你回复一下~~~好人一生平安。。嗯~

言深深

錵唂哚 发表于 2012-2-23 11:07

                               
登录/注册后可看大图

给你回复一下~~~好人一生平安。。嗯~

哈哈，谢谢哈