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