从文件中读取，为数组赋值的问题~~

tytccn

文件的一段

(       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

结果不说了。。。

楚香饭

[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

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