Fortran Coder

标题: 从文件中读取，为数组赋值的问题~~ [打印本页]

作者: tytccn 时间: 2014-2-28 15:39
标题: 从文件中读取，为数组赋值的问题~~
文件的一段

(    226,  1.7498708E+002,  2.1479730E+002,  0.0000000E+000,       3;)
(    225,  1.7497034E+002,  8.3826775E+001,  0.0000000E+000,       3;)
(    224,  1.7970572E+002,  2.2347638E+002,  0.0000000E+000,       3;)
(    223,  1.7497418E+002,  1.5499302E+002,  0.0000000E+000,       3;)
(    222,  1.7497406E+002,  1.6500397E+002,  0.0000000E+000,       3;)
(    221,  1.7532488E+002,  1.9507239E+002,  0.0000000E+000,       3;)

要把前3列赋到数组a(289,3)中，请问OPEN文件后，READ应该怎么写？我写的。。。

DO
      READ(3,'(I,2F)',IOSTAT=status) a(i,:)
      IF(status/=0) EXIT
      WRITE(*,*) a(i,:)
      i=i+1
END DO

结果不说了。。。

作者: 楚香饭 时间: 2014-2-28 15:45

[Fortran] 纯文本查看 复制代码



character( Len = 5 ) :: c

DO

  READ(3,*,IOSTAT=status) c , a(i,:)

  IF(status/=0) EXIT

  WRITE(*,*) a(i,:)

  i=i+1

END DO

作者: tytccn 时间: 2014-2-28 15:54

chuxf 发表于 2014-2-28 15:45
[mw_shl_code=fortran,true]
character( Len = 5 ) :: c
DO

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)