1 SUBROUTINE STONUM(STRVAR,LENGTH) 2 CHARACTER STRVAR*(*) , CHK 3 LOGICAL MEND , NMARK , MMARK , EMARK 4 NMARK = .FALSE. 5 MMARK = .FALSE. 6 DO WHILE ( .NOT.MEND ) 7 IF ( CHK.GE.'0' .AND. CHK.LE.'9' ) THEN 8 IF ( CHK.EQ.'E' ) THEN 9 NMARK = .TRUE. 10 ELSEIF ( .NOT.MMARK .AND. CHK.EQ.'*' .AND. .NOT.NMARK ) & 11 & THEN 12 MMARK = .TRUE. 13 ENDIF 14 ENDIF 15 ENDDO 16 END 17 18