fortran读取文件行数

fortran读取文件行数

OPEN(1,FILE="filelist.txt")
    DO WHILE (.TRUE.)
        READ(1,*,IOSTAT=STAT)
        IF(STAT .NE. 0) EXIT
        COUNT=COUNT+1
    ENDDO
CLOSE(1)
版权声明：本文为a6220000555原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接和本声明。