SUBROUTINE GETFIELD(MASK,ICOL,M,EOL)
C
C     THIS ROUTINE FINDS THE NEXT FIELD IN 'MASK' AND PASSES
C     THAT VALUE BACK TO THE CALLING ROUTINE. IF THERE ARE NO
C     MORE FIELDS, END-OF-LINE IS RETURNED.
C
      CHARACTER*80 MASK
      INTEGER*4 ICOL,M
      LOGICAL*1 EOL
C
      M = ICOL
      EOL = .FALSE.
      DO 100 I=ICOL+1,80
         IF(MASK(I:I).NE.'+'.AND.MASK(I:I).NE.' ') THEN
            M = I
            RETURN
         END IF
  100 CONTINUE
      EOL = .TRUE.
      RETURN
      END