30 lines
552 B
Fortran
30 lines
552 B
Fortran
SUBROUTINE SUB_GETNXT(IIN)
|
|
|
|
IMPLICIT NONE
|
|
|
|
INTEGER::IIN
|
|
INTEGER::I
|
|
CHARACTER*80 DATALN
|
|
CHARACTER*1 CH
|
|
|
|
1 READ(IIN,'(A80)') DATALN
|
|
|
|
DO I = 1, 80
|
|
CH = DATALN(I:I)
|
|
IF ( CH .EQ. '|') GOTO 1 ! |号开头的内容不读直接跳过
|
|
IF ( CH .EQ. '*') GOTO 1 ! *号开头的内容不读直接跳过
|
|
IF ( CH .EQ. ' ') GOTO 10 !此处引号内为TAB空格
|
|
IF ( CH .NE. ' ') GOTO 40 ! 不是空行的跳出子程序外用参数去存储
|
|
10 END DO
|
|
|
|
GOTO 1
|
|
|
|
40 BACKSPACE IIN
|
|
RETURN
|
|
|
|
END SUBROUTINE SUB_GETNXT
|
|
|
|
|
|
|
|
|