tytccn 发表于 2014-2-28 15:39:37

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

文件的一段(       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:35


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:11

chuxf 发表于 2014-2-28 15:45

character( Len = 5 ) :: c
DO



页: [1]
查看完整版本: 从文件中读取，为数组赋值的问题~~