Question

本人要用Fortran程序读取一个*.dat文件中的数据，里面有文字也有数值，如下所示：

请问如何从这个文件里面只读出数据（要对数据进行操作），碰到英文文字就跳过去？

Answer 1

IMPLICIT NONE
REAL::A(1000,6)
CHARACTER(LEN=80) CC
INTEGER::I
OPEN(11,FILE='DATA.TXT')
I=0
DO WHILE(.NOT.EOF(11))
READ(11,*) CC
IF(CC(1:1)<'0'.OR.CC(1:1)>'9')CYCLE
I=I+1
READ(CC,*)A(I,1:6)
ENDDO
CLOSE(11)
!......

END