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 ! |<7C>ſ<EFBFBD>ͷ<EFBFBD><CDB7><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>ֱ<EFBFBD><D6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
IF ( CH .EQ. '*') GOTO 1 ! *<2A>ſ<EFBFBD>ͷ<EFBFBD><CDB7><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>ֱ<EFBFBD><D6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
IF ( CH .EQ. ' ') GOTO 10 !<21>˴<EFBFBD><CBB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ΪTAB<41>ո<EFBFBD>
|
|||
|
|
IF ( CH .NE. ' ') GOTO 40 ! <20><><EFBFBD>ǿ<EFBFBD><C7BF>е<EFBFBD><D0B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӳ<EFBFBD><D3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ò<EFBFBD><C3B2><EFBFBD>ȥ<EFBFBD>洢
|
|||
|
|
10 END DO
|
|||
|
|
|
|||
|
|
GOTO 1
|
|||
|
|
|
|||
|
|
40 BACKSPACE IIN
|
|||
|
|
RETURN
|
|||
|
|
|
|||
|
|
END SUBROUTINE SUB_GETNXT
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|