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

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

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

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

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

新人勋章

爱心勋章

水王勋章

元老勋章

热心勋章