SUBROUTINE SETVIS(KFILDO,XDATA,NVAL,SET,IER)
C
C        APRIL     2018   GLAHN   MDL   MOS-2000
C
C        PURPOSE
C            TO SET VISIBILITY VALUES = 10. TO SET.  THIS IS FOR 
C            ANALYSIS OF SPECIFIC VALUES.  THIS TO GET VALUES OF 10,
C            WHICH REALLy MEANS 10 OR GREATER TO A SLIGHTLY LARGER
C            NUMBER.
C   
C        DATA SET USE
C            KFILDO    - UNIT NUMBER OF OUTPUT (PRINT) FILE.  (OUTPUT)
C
C        VARIABLES
C              KFILDO = UNIT NUMBER OF OUTPUT (PRINT) FILE.  (INPUT)
C            XDATA(K) = THE DATA TO SCALE (K=1,NVAL).  (INPUT-OUTPUT)
C                NVAL = THE NUMBER OF VALUES IN XDATA( ) BEING DEALT
C                       WITH.  (INPUT)
C                 SET = VALUE TO SET UNLIMITED TO.  (INPUT)
C                 IER = ERROR RETURN.
C                       0 = GOOD RETURN.
C                       (OUTPUT)
C        1         2         3         4         5         6         7 X
C 
C        NONSYSTEM SUBROUTINES USED 
C            NONE
C
      DIMENSION XDATA(NVAL)
C
      CALL TIMPR(KFILDO,KFILDO,'START SETVIS        ')
      IER=0
C
      DO 120 K=1,NVAL
C
      IF(XDATA(K).LT.9998.9)THEN
C
         IF(XDATA(K).GT.9.99)THEN
            XDATA(K)=SET
         ENDIF
C
      ENDIF
C
 120  CONTINUE
C
      CALL TIMPR(KFILDO,KFILDO,'END   SETVIS        ')
C
 150  RETURN
      END