      SUBROUTINE GTCOEF(IRTRN)
      IMPLICIT NONE
C
C*********************************************************************
C
C   NAME- GTCOEF
C
C   LANGUAGE- VS FORTRAN  TYPE- SUBROUTINE      COMPUTER- CRAY J916
C
C   VERSION- 1.0  DATE- 02/29/92   PROGRAMMER- JEFF JONES (SMSRC)
C   VERSION- 2.0  DATE- 05/25/94   PROGRAMMER- JEFF MANNING(SMSRC)
C            XATOV-7 ADDED THE PARAMETER FILE /CDBPARM/ BEFORE THE
C            COMMON /COMCDB/.
C   VERSION- 3.0  DATE- 05/28/96   PROGRAMMER- TIM GARDNER (HSTX)
C   VERSION- 3.1  DATE- 07/30/97   PROGRAMMER- LEAH WILSON (HSTX)
C   VERSION- 3.2  DATE- 09/24/97   PROGRAMMER- LEAH WILSON (HSTX)
C   VERSION- 3.3  DATE- 11/19/97   PROGRAMMER- LEAH WILSON (HSTX)
C   VERSION- 3.4  DATE- 04/07/98   PROGRAMMER- LEAH WILSON (RSTX)
C   VERSION- 3.5  DATE- 08/18/98   PROGRAMMER- MP FERGUSON (RSTX)
C   VERSION- 3.6  DATE- 11/18/98   PROGRAMMER- MP FERGUSON (RITSS)
C   VERSION- 3.7  DATE- 11/30/98   PROGRAMMER- MP FERGUSON (RITSS)
C   VERSION- 3.8  DATE- 06/05/00   PROGRAMMER- MP FERGUSON (RITSS)
C   VERSION- 3.9  DATE- 12/11/01   PROGRAMMER- MP FERGUSON (RITSS)
C
C   FUNCTION- THIS ROUTINE RETRIEVES THE REGRESSION COEFFICIENTS FOR
C             THE CLOUD TESTS AND CLOUD CLEARING FROM THE CDB AND STORES
C             THEM IN THE COMMON BLOCK /REGCOE/.
C
C   VERSION 3.0- DOCUMENTATION AND SYNTAX CHANGES FOR ATOVS BASELINE
C                ON THE CRAY.
C   VERSION 3.1- CONVERT CDB UTILITIES TO NEW 8-BYTE CONVENTION.  REMOVE
C                GTCOE$ SINCE CDB UTILITIES HANDLE ERRORS.
C   VERSION 3.2- OBTAIN SFHNOL AND SFHNLL FROM CDB FOR CLOUD DETECTION 
C                TESTS.
C   VERSION 3.3- OBTAIN NATL6B FOR CLOUD DETECTION TESTS. 
C   VERSION 3.4- ADD N4AVHL AND THLIMIT FOR SUBROUTINE N4AVHR.     
C   VERSION 3.5- CORRECTION MADE TO ALLOW PROPER SETTING OF WDYLM2.
C   VERSION 3.6- OBTAIN NEW THRESHOLD TS8LM2 FROM CDB.
C   VERSION 3.7- OBTAIN NEW THRESHOLDS TS8LM3 AND TS8LM4 FROM CDB.
C   VERSION 3.8- OBTAIN NEW THRESHOLDS NATL6C AND NATL6D FROM CDB. MAKE
C                THESE TWO AND NATL6B AND NATLM6 2 ELEMENT ARRAYS TO
C                CONTAIN MAX AND MIN THRESHOLDS FOR THIS TEST.
C   VERSION 3.9- OBTAIN NEW THRESHOLD HSTSL2 FROM CDB, THE HOT SURFACE
C                FOR NIGHT TIME (WR # 183).
C
C   CALLING SEQUENCE PARAMETERS-
C
C     ARGUMENT  TYPE  I/O                   DESCRIPTION
C     --------  ----  ---  ------------------------------------------
C     IRTRN     INT   N/A  ERROR RETURN CODE.
C
C   COMMON AREA PARAMETERS-  REGCOE, SPGUNT
C
      INCLUDE 'REGCOE'
      INCLUDE 'NEWTHR'
      INCLUDE 'SPGUNT'
C
C   LOCAL PARAMETERS-
C
C     ARGUMENT  TYPE  I/O                  DESCRIPTION
C     --------  ----  ---  ------------------------------------------
C     STATUS    INT   N/A  RETURN CODE FROM REALCOEF.
C
C   SUBROUTINES CALLED-  CHARCOEF, INTCOEF, REALCOEF
C
C   EXIT STATES-
C
C     99 - A FATAL ERROR OCCURRED WHILE READING FROM THE CDB.
C
C   COMMENTS-
C
C     IT IS ASSUMED THAT THE REGRESSION COEFFICIENTS EXIST IN THE CDB
C     AND THE CDB HAS BEEN PROPERLY INITIALIZED.  COEFFICIENTS ARE
C     RETRIEVED THROUGH CALLS TO CDB MANAGER ROUTINES.
C
C**********************************************************************
C
      INTEGER  IRTRN
      INTEGER  STATUS
C
C   INITIALIZE VARIABLES.
C
      IRTRN = 0
      STATUS = 0
C
C   GET INTERCHANNEL REGRESSION COEFFICIENT A FROM CDB FOR THE
C   INTERCHANNEL REGRESSION TEST.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','REGCOEF ','COEFFSA ',
     1               6,56,0,0,COEFA,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET INTERCHANNEL REGRESSION COEFFICIENT C FROM CDB FOR THE
C   INTERCHANNEL REGRESSION TEST.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','REGCOEF ','COEFFSC ',
     1               6,56,0,0,COEFC,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET INTERCHANNEL REGRESSION COEFFICIENT E FROM CDB FOR THE
C   INTERCHANNEL REGRESSION TEST.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','REGCOEF ','COEFFSE ',
     1               6,56,0,0,COEFE,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET INTERCHANNEL REGRESSION COEFFICIENTS F AND G FROM CDB FOR THE
C   INTERCHANNEL REGRESSION TEST.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','REGCOEF ','COEFFSG ',
     1               6,56,0,0,COEFG,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','REGCOEF ','COEFFSF ',
     1               5,56,0,0,COEFF,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET INTERCHANNEL REGRESSION COEFFICIENT J FROM CDB FOR THE
C   INTERCHANNEL REGRESSION TEST.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','REGCOEF ','COEFFSJ ',
     1               4,56,0,0,COEFJ,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET INTERCHANNEL REGRESSION COEFFICIENT K FROM CDB FOR THE
C   NEW AVHRR TEST.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','REGCOEF ','COEFFSK ',
     1               2,0,0,0,COEFK,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET INTERCHANNEL REGRESSION COEFFICIENT M FROM CDB FOR THE
C   NEW AVHRR TEST.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','REGCOEF ','COEFFSM ',
     1               2,0,0,0,COEFM,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET INTERCHANNEL REGRESSION COEFFICIENT U FROM CDB FOR THE
C   FIRST METHOD OF COMPUTING N*.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','REGCOEF ','COEFFSU ',
     1               5,56,0,0,COEFU,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE HEIGHT LIMIT FOR THE PRECIPITATION EDITING.
C
      CALL REALCOEF (CDBUNT,'ADJUST  ','PRECIP  ','HGTLIM  ',
     1               1,0,0,0,HGTLIM,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE MEDIAN FILTER LIMIT FOR THE PRECIPITATION EDITING.
C
      CALL REALCOEF (CDBUNT,'ADJUST  ','PRECIP  ','MEDFILT ',
     1               1,0,0,0,MEDLIM,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE PROCESSING FLAGS FOR THE CLOUD CLEARING.
C
      CALL CHARCOEF (CDBUNT,'CLOUDCLR','CHANNEL ','PROCFLAG',
     1               20,0,0,1,PRFLAG,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET INTERCHANNEL REGRESSION TEST LIMIT A FROM CDB FOR THE
C   INTERCHANNEL REGRESSION TEST.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','REGCOEF ','TSTLIMA ',
     1               56,0,0,0,TSTLMA,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET INTERCHANNEL REGRESSION TEST LIMIT C FROM CDB FOR THE
C   INTERCHANNEL REGRESSION TEST.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','REGCOEF ','TSTLIMC ',
     1               56,0,0,0,TSTLMC,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET INTERCHANNEL REGRESSION TEST LIMIT E FROM CDB FOR THE
C   INTERCHANNEL REGRESSION TEST.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','REGCOEF ','TSTLIME ',
     1               56,0,0,0,TSTLME,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET INTERCHANNEL REGRESSION TEST LIMIT G FROM CDB FOR THE
C   INTERCHANNEL REGRESSION TEST.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','REGCOEF ','TSTLIMG ',
     1               56,0,0,0,TSTLMG,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','REGCOEF ','TSTLIMF ',
     1               56,0,0,0,TSTLMF,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET INTERCHANNEL REGRESSION TEST LIMIT J FROM CDB FOR THE
C   INTERCHANNEL REGRESSION TEST.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','REGCOEF ','TSTLIMJ ',
     1               56,0,0,0,TSTLMJ,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET REGRESSION COEFFICIENTS FOR THE SURFACE TEMPERATURE ESTIMATE OF
C   HIRS CHANNEL 8.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','REGCOEF ','TSE8    ',
     1               56,6,0,0,TSE8,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET REGRESSION COEFFICIENTS FOR THE SURFACE TEMPERATURE ESTIMATE OF
C   HIRS CHANNEL 18.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','REGCOEF ','TSE18   ',
     1               56,6,0,0,TSE18,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET REGRESSION COEFFICIENTS FOR THE SURFACE TEMPERATURE ESTIMATE OF
C   HIRS CHANNEL 19.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','REGCOEF ','TSE19   ',
     1               56,6,0,0,TSE19,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE COLD SEA TEST LIMIT.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','COLDSEA ','TESTLIM ',
     1               1,0,0,0,CSTLIM,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE ALBEDO LIMIT OVER WATER.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','ALBEDO  ','WATERLIM',
     1               1,0,0,0,ALH2OL,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE ALBEDO LIMIT OVER LAND.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','ALBEDO  ','LANDLIM ',
     1               1,0,0,0,ALLNDL,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE ADJACENT SPOT TEST THRESHOLD.
C
      CALL INTCOEF (CDBUNT,'CLOUDCLR','ADJSPOT ','THRESHLD',
     1              1,0,0,0,ADJTHR,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE WINDOW CHANNEL TEST DAY LIGHT LIMIT, UPPER AND LOWER.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','WINDOCHN','DAYLIM  ',
     1               1,0,0,0,WDDYLM,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
      CALL REALCOEF (CDBUNT,'CLOUDCLR','WINDOCHN','DAYLM2  ',
     1               1,0,0,0,WDYLM2,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE WINDOW CHANNEL TEST NIGHT TIME LIMIT FOR CONDITION ONE.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','WINDOCHN','NITELIM1',
     1               1,0,0,0,WDNTL1,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE WINDOW CHANNEL TEST NIGHT TIME LIMIT FOR CONDITION TWO.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','WINDOCHN','NITELIM2',
     1               1,0,0,0,WDNTL2,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE WINDOW CHANNEL TEST NIGHT TIME LIMIT FOR CONDITION THREE.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','WINDOCHN','NITELIM3',
     1               1,0,0,0,WDNTL3,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE WINDOW CHANNEL TEST NIGHT TIME LIMIT FOR CONDITION FOUR.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','WINDOCHN','NITELIM4',
     1               1,0,0,0,WDNTL4,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE TSE8/HIRS 8 DIFFERENCE LIMIT FOR SEA FOV.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','WINDOCHN','TS8DIFLM',
     1               1,0,0,0,TS8LIM,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE TSE8/HIRS 8 DIFFERENCE LIMIT FOR LAND FOV.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','WINDOCHN','TS8DFLM2',
     1               1,0,0,0,TS8LM2,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE TSE8/HIRS 8 DIFFERENCE LIMIT FOR ICE FOV.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','WINDOCHN','TS8DFLM3',
     1               1,0,0,0,TS8LM3,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE TSE8/HIRS 8 DIFFERENCE LIMIT FOR SNOW FOV.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','WINDOCHN','TS8DFLM4',
     1               1,0,0,0,TS8LM4,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE TSE8/HIRS 8 DIFFERENCE LIMIT FOR HIGH TERRAIN FOV.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','WINDOCHN','TS8DFLM5',
     1               1,0,0,0,TS8LM5,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE TSE8/HIRS 8 DIFFERENCE LIMIT GRADIENT BETWEEN TROPICAL AND
C   NON-TROPICAL ZONES.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','WINDOCHN','TROPDIFF',
     1               1,0,0,0,TROPDF,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE TSE8/HIRS 8 DIFFERENCE TEST LATITUDE DIVIDING TROPICAL AND
C   NON-TROPICAL ZONES.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','WINDOCHN','TROPLATI',
     1               1,0,0,0,TROPLT,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE SURFACE TEMPERATURE TEST LIMIT 1 FOR OVER WATER, DAY.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','SURFTEMP','WATERLIM',
     1               1,0,0,0,SFH2OL,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE SURFACE TEMPERATURE TEST LIMIT 2 FOR OVER WATER, DAY.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','SURFTEMP','WATERLM2',
     1               1,0,0,0,SFH2LL,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE SURFACE TEMPERATURE TEST LIMIT 1 FOR OVER WATER, NIGHT.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','SURFTEMP','H2ONITE1',
     1               1,0,0,0,SFHNOL,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE SURFACE TEMPERATURE TEST LIMIT 2 FOR OVER WATER, NIGHT.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','SURFTEMP','H2ONITE2',
     1               1,0,0,0,SFHNLL,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE SURFACE TEMPERATURE TEST LIMIT FOR OVER LAND.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','SURFTEMP','LANDLIM ',
     1               1,0,0,0,SFLNDL,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE HOT SURFACE TEST LIMIT.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','HOTSFC  ','TESTLIM ',
     1               1,0,0,0,HSTSLM,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE HOT SURFACE TEST LIMIT FOR NIGHT.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','HOTSFC  ','TESTLIM2',
     1               1,0,0,0,HSTSL2,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE ADJACENT SPOT TEST LIMIT FOR OVER WATER.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','ADJSPOT ','WATERLIM',
     1               1,0,0,0,ADH2OL,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE ADJACENT SPOT TEST LIMIT FOR OVER LAND.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','ADJSPOT ','LANDLIM ',
     1               1,0,0,0,ADLNDL,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE NEW AVHRR TEST LIMIT FOR TEST ONE A.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','NEWAVHRR','TSTLIM1A',
     1               1,0,0,0,NATL1A,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE NEW AVHRR TEST LIMIT FOR TEST ONE B.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','NEWAVHRR','TSTLIM1B',
     1               1,0,0,0,NATL1B,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE NEW AVHRR TEST LIMITS FOR TEST TWO.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','NEWAVHRR','TSTLIM2 ',
     1               1,0,0,0,NATLM2,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
      CALL REALCOEF (CDBUNT,'CLOUDCLR','NEWAVHRR','TSTLIM2B',
     1               1,0,0,0,NATLM2B,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE NEW AVHRR TEST LIMIT FOR TEST FOUR.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','NEWAVHRR','TSTLIM4 ',
     1               1,0,0,0,NATLM4,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE NEW AVHRR TEST LIMIT FOR TEST FIVE.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','NEWAVHRR','TSTLIM5 ',
     1               1,0,0,0,NATLM5,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE NEW AVHRR TEST LIMIT FOR TEST SIX (SEA TERRAIN).
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','NEWAVHRR','TSTLIM6 ',
     1               2,0,0,0,NATLM6,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE NEW AVHRR TEST LIMIT FOR TEST SIX (ICE TERRAIN).
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','NEWAVHRR','TSTLIM6B',
     1               2,0,0,0,NATL6B,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE NEW AVHRR TEST LIMIT FOR TEST SIX (LAND/COAST).
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','NEWAVHRR','TSTLIM6C',
     1               2,0,0,0,NATL6C,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C     GET THE NEW AVHRR TEST LIMIT FOR TEST SIX B (SNOW TERRAIN).
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','NEWAVHRR','TSTLIM6D',
     1               2,0,0,0,NATL6D,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10

C
C     GET THE REGRESSION COEFFICIENTS TO COMPUTE THE CLEAR ESTIMATE
C     FOR HIRS CHANNEL EIGHT OVER LAND.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','AVHRNSTR','H8REGLND',
     1               3,0,0,0,H8RGLD,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C     GET THE REGRESSION COEFFICIENTS TO COMPUTE THE CLEAR ESTIMATE
C     FOR HIRS CHANNEL EIGHT OVER SEA.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','AVHRNSTR','H8REGSEA',
     1               3,0,0,0,H8RSEA,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C     GET THE DISTANCE LIMIT FOR THE IR-MICROWAVE NSTAR METHOD.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','IRMWNSTR','DISTLIM ',
     1               1,0,0,0,DSTLIM,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C     GET THE CHANNEL TO BE USED AS THE HORIZONTAL AXIS IN COMPUTING
C     THE LINE FOR THE IR-MICROWAVE NSTAR METHOD.
C
      CALL INTCOEF (CDBUNT,'CLOUDCLR','IRMWNSTR','XCHAN   ',
     1              1,0,0,0,IRMWX,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C     GET THE CHANNEL TO BE USED AS THE VERTICAL AXIS IN COMPUTING
C     THE LINE FOR THE IR-MICROWAVE NSTAR METHOD.
C
      CALL INTCOEF (CDBUNT,'CLOUDCLR','IRMWNSTR','YCHAN   ',
     1              1,0,0,0,IRMWY,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C     GET THE DIFFERENCE LIMIT FOR THE RANGE OF THE HORIZONTAL AXIS
C     CHANNEL
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','IRMWNSTR','XDIFLIM ',
     1               1,0,0,0,XDIFLM,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE N4AVHRR TEST TEMPERATURE LIMIT.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','N4AVHR  ','TEMPLIM ',
     1               1,0,0,0,N4AVHL,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
C   GET THE N4AVHRR TERRAIN HEIGHT LIMIT.
C
      CALL REALCOEF (CDBUNT,'CLOUDCLR','N4AVHR  ','THEIGHTL',
     1               1,0,0,0,THLIMIT,'GET',STATUS)
      IF(STATUS.NE.0) GO TO 10
C
      RETURN
C
C   FATAL ERROR RETURN.
C
   10 IRTRN = 99
      RETURN
      END
