文件数据读取[Fortran中文网]

dvbbs

收藏本页

联系我们

论坛帮助

dvbbs

恢复默认设置
动网默认风格
默认风格
秋意盎然
棕红预览
紫色淡雅
青青河草
橘子红了
红红夜思
粉色回忆
水晶紫色

>> Fortran语言开发经验交流

您是本帖的第 3126 个阅读者

树形打印

标题：

文件数据读取

iamcheng857

等级：论坛游民

文章：9

积分：275

门派：无门无派

楼主

用支付宝给iamcheng857付款或购买其商品，支付宝交易免手续费、安全、快捷！

文件数据读取

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编辑过]

2009/8/29 21:56:11

iamcheng857

等级：论坛游民

文章：9

积分：275

门派：无门无派

第 2 楼

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')

2009/8/29 22:00:23

iamcheng857

等级：论坛游民

文章：9

积分：275

门派：无门无派

第 3 楼

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)

2009/8/29 22:00:49

iamcheng857

等级：论坛游民

文章：9

积分：275

门派：无门无派

第 4 楼

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

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

2009/8/29 22:01:13

iamcheng857

等级：论坛游民

文章：9

积分：275

门派：无门无派

第 5 楼

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

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

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

2009/8/29 22:02:26