Fortran语言开发经验交流-文件数据读取[Fortran中文网]

以文本方式查看主题

-  Fortran中文网  (http://fortran.cn/bbs/index.asp)
--  Fortran语言开发经验交流  (http://fortran.cn/bbs/list.asp?boardid=3)
----  文件数据读取  (http://fortran.cn/bbs/dispbbs.asp?boardid=3&id=1949)

--  作者：iamcheng857
--  发布时间：2009/8/29 21:56:11

--  文件数据读取
10  2.1  3.6  5.8

10 1.1 4.5 0.1

20 1.5 2.2

10 3.3 3.2 0.5

10 2.2 1.2 1.5

20 0.3 0.8

各位高手帮我看看，我要实现把ID为10的行存为一个文件，把ID为20的存为另一个文件，该如何实现，一下是我写的代码，哪个地方需要修改

[此贴子已经被作者于2009-8-29 21:59:48编辑过]

--  作者：iamcheng857
--  发布时间：2009/8/29 22:00:23

--
program main
implicit none
integer id
integer,parameter::line=2,col=3
real::  array(line,col),iarray(line,col)
real :: arrayb(1,2)
integer:: lines=6
integer i,j,m,n,k
open(11,file=\'exer1.txt\',status=\'old\')
open(12,file=\'id10.txt\')
open(13,file=\'id20.txt\')

--  作者：iamcheng857
--  发布时间：2009/8/29 22:00:49

--

do i=1,2
    do j=1,2
    read(11,*) (id,array(j,k),k=1,3)
    enddo

    read(11,*) (id,arrayb(1,k),k=1,2)

enddo

close(11)

--  作者：iamcheng857
--  发布时间：2009/8/29 22:01:13

--

do i=1,2
   do j=1,2
      m=id
      do k=1,col
        iarray(j,k)=array(j,k)
      enddo
      write(12,*) m,iarray
   enddo
   do j=1,1
      m=id
      do k=1,2
        iarray(j,k)=arrayb(j,k)
      enddo
      write(13,*) id,iarray
   enddo
  enddo
end

各位高手帮我看看啊，已经困扰我很久的问题，求求大家乐

--  作者：iamcheng857
--  发布时间：2009/8/29 22:02:26

--

enddo
      write(13,*) id,iarray
   enddo
  enddo
end

各位高手帮我看看啊，已经困扰我很久的问题，求求大家乐

以上是我写的程序，大家帮我看看，这个怎么不能一下子全部显示

--  作者：terranpro1
--  发布时间：2009/9/12 13:10:05

--

我看了一下你的程序有几个问题