       SUBROUTINE OPCOEF(ERSTAT)
C***********************************************************************
C
C   NAME- OPCOEF
C
C   LANGUAGE- FORTRAN     TYPE- SUBROUTINE      COMPUTER- RS 6000
C
C   VERSION- 2.0    DATE- 4/18/96     PROGRAMMER- CARLA NEIGH (SMSRC)
C   VERSION- 3.0    DATE- 06/17/96    PROGRAMMER- TIM GARDNER (HSTX)
C   VERSION- 3.1    DATE- 01/29/98    PROGRAMMER- BRIAN BARIL (RSTX)
C   VERSION- 3.2    DATE- 11/14/01    PROGRAMMER- RICKEY ROLLINS (CSC)
C
C   FUNCTION-  THIS SUBROUTINE GETS THE OPTRAN COEFFICIENTS FOR THE HIRS
C              AND AMSU-A FROM THE CDB AND PLACES THEM IN THE COMMON
C              BLOCK /OPTCOE/.
C
C   VERSION 3.0- DOCUMENTATION AND SYNTAX CHANGES FOR ATOVS BASELINE
C                ON THE CRAY.
C
C   VERSION 3.1- REPLACED RGTCDB WITH REALCOEF AND IGTCDB WITH INTCOEF
C                FOR CONVERSION TO NEW CDB.
C
C   VERSION 3.2- PORTED TO IBM SP SUBNAM NOT DECLARED
C
C   CALLING SEQUENCE PARAMETERS-
C   NAME    TYPE   I/O   DESCRIPTION
C   ----    ----   ---   -----------
C   ERSTAT  INT     O    ERROR RETURN CODE-
C                        SEE EXIT STATES BELOW.
C
C   COMMON AREA PARAMETERS-
      INCLUDE 'OPTPARM'
      INCLUDE 'OPTCOE'
      INCLUDE 'SPGUNT'
C
C   LOCAL PARAMETERS-
C   NAME    TYPE   DESCRIPTION
C   ----    ----   -----------
C   ISTAT   INT    ERROR CODE RETURNED FROM CDB MANAGER UTILITIES.
C
C   SUBPROGRAMS CALLED- INTCOEF, REALCOEF, OPCOE$
C
C   EXIT STATES-
C     ERSTAT = 0 : NORMAL EXECUTION.
C     ERSTAT = 99: FATAL ERROR ACCESSING THE CDB.
C
C***********************************************************************
C
      INTEGER ERSTAT, ISTAT
C
      ERSTAT = 0
C
C  GET HIRS AND AMSU-A PREDICTOR
      CALL INTCOEF(CDBUNT,'OPTRAN  ','HIRSWET ','PRDCTORS',6,20,0,0,
     1   PRDWET,'GET',ISTAT)
      CALL INTCOEF(CDBUNT,'OPTRAN  ','HIRSDRY ','PRDCTORS',6,20,0,0,
     1   PRDDRY,'GET',ISTAT)
      CALL INTCOEF(CDBUNT,'OPTRAN  ','HIRSOZO ','PRDCTORS',6,20,0,0,
     1   PRDOZO,'GET',ISTAT)
      CALL INTCOEF(CDBUNT,'OPTRAN  ','AMSUAWET','PRDCTORS',6,15,0,0,
     1   PRDWET(0,21),'GET',ISTAT)
      CALL INTCOEF(CDBUNT,'OPTRAN  ','AMSUADRY','PRDCTORS',6,15,0,0,
     1   PRDDRY(0,21),'GET',ISTAT)
      CALL INTCOEF(CDBUNT,'OPTRAN  ','AMSUAOZO','PRDCTORS',6,15,0,0,
     1   PRDOZO(0,21),'GET',ISTAT)
C
C  GET HIRS REGRESSION COEFFICIENTS.
C
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSWET ','CHAN1   ',6,300,0,0,
     1   BW(1,1,1),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSWET ','CHAN2   ',6,300,0,0,
     1   BW(1,1,2),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSWET ','CHAN3   ',6,300,0,0,
     1   BW(1,1,3),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSWET ','CHAN4   ',6,300,0,0,
     1   BW(1,1,4),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSWET ','CHAN5   ',6,300,0,0,
     1   BW(1,1,5),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSWET ','CHAN6   ',6,300,0,0,
     1   BW(1,1,6),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSWET ','CHAN7   ',6,300,0,0,
     1   BW(1,1,7),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSWET ','CHAN8   ',6,300,0,0,
     1   BW(1,1,8),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSWET ','CHAN9   ',6,300,0,0,
     1   BW(1,1,9),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSWET ','CHAN10  ',6,300,0,0,
     1   BW(1,1,10),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSWET ','CHAN11  ',6,300,0,0,
     1   BW(1,1,11),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSWET ','CHAN12  ',6,300,0,0,
     1   BW(1,1,12),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSWET ','CHAN13  ',6,300,0,0,
     1   BW(1,1,13),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSWET ','CHAN14  ',6,300,0,0,
     1   BW(1,1,14),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSWET ','CHAN15  ',6,300,0,0,
     1   BW(1,1,15),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSWET ','CHAN16  ',6,300,0,0,
     1   BW(1,1,16),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSWET ','CHAN17  ',6,300,0,0,
     1   BW(1,1,17),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSWET ','CHAN18  ',6,300,0,0,
     1   BW(1,1,18),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSWET ','CHAN19  ',6,300,0,0,
     1   BW(1,1,19),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSWET ','CHAN20  ',6,300,0,0,
     1   BW(1,1,20),'GET',ISTAT)
C
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSDRY ','CHAN1   ',6,300,0,0,
     1   BD(1,1,1),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSDRY ','CHAN2   ',6,300,0,0,
     1   BD(1,1,2),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSDRY ','CHAN3   ',6,300,0,0,
     1   BD(1,1,3),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSDRY ','CHAN4   ',6,300,0,0,
     1   BD(1,1,4),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSDRY ','CHAN5   ',6,300,0,0,
     1   BD(1,1,5),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSDRY ','CHAN6   ',6,300,0,0,
     1   BD(1,1,6),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSDRY ','CHAN7   ',6,300,0,0,
     1   BD(1,1,7),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSDRY ','CHAN8   ',6,300,0,0,
     1   BD(1,1,8),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSDRY ','CHAN9   ',6,300,0,0,
     1   BD(1,1,9),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSDRY ','CHAN10  ',6,300,0,0,
     1   BD(1,1,10),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSDRY ','CHAN11  ',6,300,0,0,
     1   BD(1,1,11),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSDRY ','CHAN12  ',6,300,0,0,
     1   BD(1,1,12),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSDRY ','CHAN13  ',6,300,0,0,
     1   BD(1,1,13),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSDRY ','CHAN14  ',6,300,0,0,
     1   BD(1,1,14),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSDRY ','CHAN15  ',6,300,0,0,
     1   BD(1,1,15),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSDRY ','CHAN16  ',6,300,0,0,
     1   BD(1,1,16),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSDRY ','CHAN17  ',6,300,0,0,
     1   BD(1,1,17),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSDRY ','CHAN18  ',6,300,0,0,
     1   BD(1,1,18),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSDRY ','CHAN19  ',6,300,0,0,
     1   BD(1,1,19),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSDRY ','CHAN20  ',6,300,0,0,
     1   BD(1,1,20),'GET',ISTAT)
C
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSOZO ','CHAN1   ',6,300,0,0,
     1   BO(1,1,1),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSOZO ','CHAN2   ',6,300,0,0,
     1   BO(1,1,2),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSOZO ','CHAN3   ',6,300,0,0,
     1   BO(1,1,3),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSOZO ','CHAN4   ',6,300,0,0,
     1   BO(1,1,4),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSOZO ','CHAN5   ',6,300,0,0,
     1   BO(1,1,5),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSOZO ','CHAN6   ',6,300,0,0,
     1   BO(1,1,6),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSOZO ','CHAN7   ',6,300,0,0,
     1   BO(1,1,7),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSOZO ','CHAN8   ',6,300,0,0,
     1   BO(1,1,8),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSOZO ','CHAN9   ',6,300,0,0,
     1   BO(1,1,9),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSOZO ','CHAN10  ',6,300,0,0,
     1   BO(1,1,10),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSOZO ','CHAN11  ',6,300,0,0,
     1   BO(1,1,11),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSOZO ','CHAN12  ',6,300,0,0,
     1   BO(1,1,12),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSOZO ','CHAN13  ',6,300,0,0,
     1   BO(1,1,13),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSOZO ','CHAN14  ',6,300,0,0,
     1   BO(1,1,14),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSOZO ','CHAN15  ',6,300,0,0,
     1   BO(1,1,15),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSOZO ','CHAN16  ',6,300,0,0,
     1   BO(1,1,16),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSOZO ','CHAN17  ',6,300,0,0,
     1   BO(1,1,17),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSOZO ','CHAN18  ',6,300,0,0,
     1   BO(1,1,18),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSOZO ','CHAN19  ',6,300,0,0,
     1   BO(1,1,19),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','HIRSOZO ','CHAN20  ',6,300,0,0,
     1   BO(1,1,20),'GET',ISTAT)
C
C  GET AMSU-A REGRESSION COEFFICIENTS.
C
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAWET','CHAN1   ',6,300,0,0,
     1   BW(1,1,21),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAWET','CHAN2   ',6,300,0,0,
     1   BW(1,1,22),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAWET','CHAN3   ',6,300,0,0,
     1   BW(1,1,23),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAWET','CHAN4   ',6,300,0,0,
     1   BW(1,1,24),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAWET','CHAN5   ',6,300,0,0,
     1   BW(1,1,25),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAWET','CHAN6   ',6,300,0,0,
     1   BW(1,1,26),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAWET','CHAN7   ',6,300,0,0,
     1   BW(1,1,27),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAWET','CHAN8   ',6,300,0,0,
     1   BW(1,1,28),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAWET','CHAN9   ',6,300,0,0,
     1   BW(1,1,29),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAWET','CHAN10  ',6,300,0,0,
     1   BW(1,1,30),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAWET','CHAN11  ',6,300,0,0,
     1   BW(1,1,31),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAWET','CHAN12  ',6,300,0,0,
     1   BW(1,1,32),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAWET','CHAN13  ',6,300,0,0,
     1   BW(1,1,33),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAWET','CHAN14  ',6,300,0,0,
     1   BW(1,1,34),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAWET','CHAN15  ',6,300,0,0,
     1   BW(1,1,35),'GET',ISTAT)
C
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUADRY','CHAN1   ',6,300,0,0,
     1   BD(1,1,21),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUADRY','CHAN2   ',6,300,0,0,
     1   BD(1,1,22),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUADRY','CHAN3   ',6,300,0,0,
     1   BD(1,1,23),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUADRY','CHAN4   ',6,300,0,0,
     1   BD(1,1,24),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUADRY','CHAN5   ',6,300,0,0,
     1   BD(1,1,25),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUADRY','CHAN6   ',6,300,0,0,
     1   BD(1,1,26),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUADRY','CHAN7   ',6,300,0,0,
     1   BD(1,1,27),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUADRY','CHAN8   ',6,300,0,0,
     1   BD(1,1,28),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUADRY','CHAN9   ',6,300,0,0,
     1   BD(1,1,29),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUADRY','CHAN10  ',6,300,0,0,
     1   BD(1,1,30),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUADRY','CHAN11  ',6,300,0,0,
     1   BD(1,1,31),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUADRY','CHAN12  ',6,300,0,0,
     1   BD(1,1,32),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUADRY','CHAN13  ',6,300,0,0,
     1   BD(1,1,33),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUADRY','CHAN14  ',6,300,0,0,
     1   BD(1,1,34),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUADRY','CHAN15  ',6,300,0,0,
     1   BD(1,1,35),'GET',ISTAT)
C
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAOZO','CHAN1   ',6,300,0,0,
     1   BO(1,1,21),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAOZO','CHAN2   ',6,300,0,0,
     1   BO(1,1,22),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAOZO','CHAN3   ',6,300,0,0,
     1   BO(1,1,23),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAOZO','CHAN4   ',6,300,0,0,
     1   BO(1,1,24),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAOZO','CHAN5   ',6,300,0,0,
     1   BO(1,1,25),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAOZO','CHAN6   ',6,300,0,0,
     1   BO(1,1,26),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAOZO','CHAN7   ',6,300,0,0,
     1   BO(1,1,27),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAOZO','CHAN8   ',6,300,0,0,
     1   BO(1,1,28),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAOZO','CHAN9   ',6,300,0,0,
     1   BO(1,1,29),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAOZO','CHAN10  ',6,300,0,0,
     1   BO(1,1,30),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAOZO','CHAN11  ',6,300,0,0,
     1   BO(1,1,31),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAOZO','CHAN12  ',6,300,0,0,
     1   BO(1,1,32),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAOZO','CHAN13  ',6,300,0,0,
     1   BO(1,1,33),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAOZO','CHAN14  ',6,300,0,0,
     1   BO(1,1,34),'GET',ISTAT)
      CALL REALCOEF(CDBUNT,'OPTRAN  ','AMSUAOZO','CHAN15  ',6,300,0,0, 
     1   BO(1,1,35),'GET',ISTAT)
C
      RETURN
C
  900 CALL OPCOE$(KUNIT,ERSTAT)
      ERSTAT = 99
      RETURN
      END
C**********************************************************************
      SUBROUTINE OPCOE$(KUNIT,STAT)
C**********************************************************************
C   NAME- OPCOE$
C
C   LANGUAGE- FORTRAN     TYPE- SUBROUTINE      COMPUTER- RS/6000
C
C   VERSION- 2.0    DATE- 04/18/96   PROGRAMMER- CARLA NEIGH, SMSRC
C   VERSION- 3.0    DATE- 06/17/96   PROGRAMMER- TIM GARDNER (HSTX)
C
C   FUNCTION- THIS SUBROUTINE IS THE ERROR HANDLING ROUTINE FOR
C             ROUTINE OPCOEF.
C
C   FILES-
C     DSN                   I/O  UNIT  FUNCTIONAL DESCRIPTION
C     ---                   ---  ----  ----------------------
C     .../KIDS               O  KUNIT  CRAY INTERRACTIVE
C                                      DOCUMENTATION SYSTEM
C                                      
C
C   CALLING SEQUENCE PARAMETERS-
C     VARIABLE               TYPE  I/O  FUNCTION
C     --------               ----  ---  --------
C     MSGCOD                 INT    I   MESSAGE CODE USED TO
C                                       IDENTIFY THE ERROR.
C
C     STAT                   INT    O   STATUS CODE IF AN ERROR
C                                       OCCURS DURING I/O.
C
C   COMMON AREA PARAMETERS-
C
C   SUBPROGRAMS CALLED- ERRCDB, ERMSG
C
C   LOCAL PARAMETERS-
C
C      ARGUMENT    TYPE    I/O               DESCRIPTION
C      --------    ----    ---    -------------------------------
C      NAME        CH*6    N/A    HOLDS THE NAME OF THIS ROUTINE.
C
C**********************************************************************
C
      INTEGER   MSGCOD,STAT
C
      CHARACTER*6 NAME
      CHARACTER*6 SUBNAM
      CHARACTER*100 KMSG
C
C  SET ERINFO INFORMATION.
C
      SUBNAM = 'OPCOEF'
      NAME   = 'OPCOE$'
      
C
C  PUT ERROR MESSAGES IN BUFFER.
C
     
      IF (STAT.EQ.99) THEN
      KMSG=
     1   ' ERROR ACCESSING AN OPTRAN CDB VALUE '
      CALL KIDS(KUNIT,SUBNAM,0,KMSG,0)
      END IF     
C
      RETURN
C
      END
