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