FTN4
      SUBROUTINE VALX2, 92903-16206 REV.1913  790130
C 
C               SOURCE  92903-18206 
C 
C 
C     ******************************************************
C     * THIS IS AN EXAMPLE OF A USER VALIDATION MODULE     *
C     * THAT CHECKS TO INSURE THAT THE COMPLETED QUANTITY  *
C     * IS LESS THAN THE RUN QUANTITY PUNCHED ON THE CARD  *
C     ******************************************************
C 
C 
      LOGICAL BKSFL 
C 
      COMMON KEEP1(5),LUQ,LMQ,IBUF(500) 
     .      ,ITSNU,INDEX,IQNUM,ITMTP,ITMLN,IBUPT,BKSFL,INBKS,IQBKS
     .      ,IER,NSTAT,ITEMP(10),ICOMEN 
C 
C     (NO  USER DECLARATIONS) 
C 
      CALL TMDFN(KEEP1,KEEP1,KEEP1,ITSNU,ITSNU,ICOMEN)
C 
C     ( BEGIN USER CODE HERE )
C 
C-----ANSWER GREATER THAN RUN QUANTITY? 
C 
      IF (IBUF(IBUPT) .GT. IBUF(IBUPT-1)) GO TO 9000
C 
C-----RETURN OK (NO ERROR)
C 
      IER=0 
      RETURN
C 
C-----RETURN AN ERROR TO TMP
C 
9000  IER=1 
      NSTAT=0 
      RETURN
      END 
                        