      SUBROUTINE COCDBV(CDBUNT,CDBST)
C
C***********************************************************************
C
C   NAME- COCDBV
C
C   LANGUAGE- FORTRAN 77      TYPE- SUBROUTINE      COMPUTER- CRAY   
C
C   VERSION- 1.0    DATE- 03/19/91   PROGRAMMER- CARLA NEIGH (SMSRC)
C   VERSION- 2.0    DATE- 09/14/94   PROGRAMMER- SURYA JANDHYALA(SMSRC)
C     XATOV-46  REPLACED MSU AND SSU COEFFICIENTS WITH AMSU-A AND
C               AMSU-B COEFFICIENTS.
C   VERSION- 3.0    DATE- 04/26/96   PROGRAMMER- ALEX POZDNYAK (FDC)   
C      MODIFIED TO RUN ON THE CRAY.  REPLACED I*4 WITH INT.
C   VERSION- 3.1    DATE- 07/24/97   PROGRAMMER- LEAH WILSON (HSTX)   
C      CONVERTED CDB UTILITIES TO NEW 8-BYTE UTILITIES.  COMMENT OUT
C      CDB UTILITIES FOR AMSU-B.
C  
C   FUNCTION- THIS SUBROUTINE GETS THE CDB VALUES USED FOR 1B DATA
C             COLLOCATION EQUATIONS AND STORES THEM IN COMMON COLLOC.
C
C   FILES-
C     DSN OR DESCRIPTIVE TITLE  I/O  UNIT  FUNCTIONAL DECRIPTION
C     ------------------------  ---  ----  ---------------------
C     NSS. ... . ... .CDB        I  CDBUNT COEFFFICIENT DATA BASE
C
C   CALLING SEQUENCE PARAMETERS-
C
C   LABELED COMMONS- COLLOC
C   NAME    TYPE  I/O    DESCRIPTION
C   ----    ----  ---    -----------
C   CDBUNT  INT    I     CDB UNIT NUMBER
C   CDBST   INT    O     STATUS CODE RETURNED FROM ROUTINE
C                        INDICATING ERRORS IN OBTAINING AND
C                        CHECKING CDB VALUES
C                        = 0 IF NO ERROR ENCOUNTERED, <> 0 IF
C                        ERROR ENCOUNTERED
C
C   COMMON AREA PARAMETERS- COLLOC
C
C   SUBPROGRAMS CALLED-  INTCOEF, REALCOEF
C
C   EXIT STATES-
C     CDBST = 99 : ERROR OCCURRED IN ACCESSING CDB VALUES
C
C   COMMENTS- THIS SUBROUTINE ASSUMES THAT OPERATIONS TO OPEN/CLOSE
C             A CDB ARE DONE ELSEWHERE IN PROCESSING
C
C***********************************************************************
C
C
      INTEGER   CDBST, CDBUNT
C
      INCLUDE 'COLLOC'
C
C   INITIALIZE CDB STATUS
C
      CDBST = 0
C
C   GET HIRS SCAN LINE ANGULAR POSITION COEFFICIENTS AND LOAD INTO
C   COMMON /COLLOC/
C
      CALL REALCOEF(CDBUNT,'COLLOC8 ','HIRSFOV ','POSITION',3,0,0,
     1              0,HIRANG,'GET',CDBST)
      IF(CDBST.NE.0) GO TO 990
C
C   GET AMSU-A SCAN LINE ANGULAR POSITION COEFFICIENTS AND LOAD INTO
C   COMMON /COLLOC/
C
      CALL REALCOEF(CDBUNT,'COLLOC8 ','AMSUAFOV','POSITION',3,0,0,
     1              0,AMAANG,'GET',CDBST)
      IF(CDBST.NE.0) GO TO 990
C
C   GET AMSU-B SCAN LINE ANGULAR POSITION COEFFICIENTS AND LOAD INTO
C   COMMON /COLLOC/
C
      CALL REALCOEF(CDBUNT,'COLLOC8 ','AMSUBFOV','POSITION',3,0,0,
     1              0,AMBANG,'GET',CDBST)
      IF(CDBST.NE.0) GO TO 990
C
C   GET GAC SCAN LINE ANGULAR POSITION COEFFICIENTS AND LOAD INTO
C   COMMON /COLLOC/
C
      CALL REALCOEF(CDBUNT,'COLLOC8 ','GACFOV  ','POSITION',3,0,0,
     1              0,GACANG,'GET',CDBST)
      IF(CDBST.NE.0) GO TO 990
C
C   GET HIRS SCAN LINE TIME COEFFICIENTS AND LOAD INTO COMMON
C   /COLLOC/
C
      CALL INTCOEF(CDBUNT,'COLLOC8 ','HIRSFOV ','TIMING  ',4,0,0,
     1             0,HIRTIM,'GET',CDBST)
      IF(CDBST.NE.0) GO TO 990
C
C   GET AMSU-A SCAN LINE TIME COEFFICIENTS AND LOAD INTO COMMON
C   /COLLOC/
C
      CALL INTCOEF(CDBUNT,'COLLOC8 ','AMSUAFOV','TIMING  ',4,0,0,
     1             0,AMATIM,'GET',CDBST)
      IF(CDBST.NE.0) GO TO 990
C
C   GET AMSU-B SCAN LINE TIME COEFFICIENTS AND LOAD INTO COMMON
C   /COLLOC/
C
      CALL INTCOEF(CDBUNT,'COLLOC8 ','AMSUBFOV','TIMING  ',4,0,0,
     1             0,AMBTIM,'GET',CDBST)
      IF(CDBST.NE.0) GO TO 990
C
C   GET GAC SCAN LINE TIME COEFFICIENTS AND LOAD INTO COMMON /COLLOC/
C
      CALL INTCOEF(CDBUNT,'COLLOC8 ','GACFOV  ','TIMING  ',4,0,0,
     1             0,GACTIM,'GET',CDBST)
      IF(CDBST.NE.0) GO TO 990
C
      RETURN
C
C  IN THE CASE OF A FATAL CDB ERROR, SET A FATAL ERROR CODE RETURN.
C
  990 CDBST = 99
      RETURN
      END
