SUBROUTINE NUMPARSE(INPUT,I1,I2)
C
C     THIS ROUTINE SEARCHES A CHARACTER STRING FOR
C     TWO INTEGERS, DECODES THEM, THEN RETURNS TO
C     THE CALLING ROUTINE.
C
C           INPUT - INPUT STRING TO BE PARSED
C           I1,I2 - INTEGERS RETURNED
C
      CHARACTER*(*) INPUT
      CHARACTER*1   C
      INTEGER*4     I1,I2,L,IA,I
      LOGICAL*1     DIGIT,FLAG
C
C     INITIALIZE EVERYTHING
C
      DIGIT = .FALSE.
      FLAG  = .TRUE.
      I1    =  0
      I2    =  0
      L     =  LEN(INPUT)
C
C     LOOP THRU STRING, PARSING NUMBERS
C
      DO 100  I=1,L
         C = INPUT(I:I)
         IF(.NOT.DIGIT.AND.(C.GE.'0'.AND.C.LE.'9')) THEN
            IA = I
            DIGIT = .TRUE.
         END IF
C
         IF(DIGIT.AND.(C.LT.'0'.OR.C.GT.'9')) THEN 
   50       DIGIT = .FALSE.
            IF(FLAG) THEN
               READ(INPUT(IA:I-1),1000) I1
               FLAG = .FALSE.
            ELSE
               READ(INPUT(IA:I-1),1000) I2
               RETURN
            END IF
         END IF
  100 CONTINUE
      IF(DIGIT) GO TO 50
 1000 FORMAT(I)  
      RETURN
      END