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

查看数: 10039 | 评论数: 2 | 收藏 0

关灯 | 提示：支持键盘翻页<-左右->

发布时间: 2014-2-28 15:39

文件的一段( 226, 1.7498708E+002, 2.1479730E+002, 0.0000000E+000, 3;) ( 225,&n ...

楚香饭 发表于 2014-2-28 15:45:35

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

character( Len = 5 ) :: c
DO
  READ(3,*,IOSTAT=status) c , a(i,:)
  IF(status/=0) EXIT
  WRITE(*,*) a(i,:)
  i=i+1
END DO

回复