SUBROUTINE SETCIG(KFILDO,XDATA,NVAL,SET,IER)
C
C        MARCH     2011   GLAHN   MDL   MOS-2000
C
C        PURPOSE
C            TO SET CEILING VALUES = 888. TO SET.  THIS IS FOR 
C            ANALYSIS OF SPECIFIC HEIGHTS.
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
D     CALL TIMPR(KFILDO,KFILDO,'START SETCIG        ')
      IER=0
C
      DO 120 K=1,NVAL
C
      IF(XDATA(K).LT.9998.9)THEN
C
         IF(XDATA(K).GT.887.9)THEN
            XDATA(K)=SET
         ENDIF
C
      ENDIF
C
 120  CONTINUE
C
D     CALL TIMPR(KFILDO,KFILDO,'END   SETCIG        ')
C
 150  RETURN
      END