var/external/bufr/openbt.f

   1       SUBROUTINE OPENBT(LUNDX,MTYP)
   2
   3 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
   4 C
   5 C SUBPROGRAM:    OPENBT
   6 C   PRGMMR: WOOLLEN          ORG: NP20       DATE: 1998-07-08
   7 C
   8 C ABSTRACT: THIS IS A DUMMY SUBROUTINE WHICH ALWAYS RETURNS LUNDX = 0.
   9 C   OPENBT MUST BE PRESENT BECAUSE IT IS CALLED BY BUFR ARCHIVE LIBRARY
  10 C   SUBROUTINE CKTABA AS A LAST RESORT TO TRY AND FIND AN EXTERNAL
  11 C   USER-SUPPLIED BUFR DICTIONARY TABLE FILE IN CHARACTER FORMAT FROM
  12 C   WHICH A TABLE A MNEMONIC CAN BE LOCATED.  IF THE APPLICATION
  13 C   PROGRAM DOES NOT HAVE AN IN-LINE VERSION OF OPENBT (OVERRIDING THIS
  14 C   ONE), THEN THE RETURNED LUNDX = 0 WILL RESULT IN CKTABA RETURNING
  15 C   WITHOUT FINDING A TABLE A MNEMONIC BECAUSE THERE IS NO LINK TO ANY
  16 C   EXTERNAL BUFR TABLES.  NORMALLY, IT IS EXPECTED THAT AN IN-LINE
  17 C   VERSION OF THIS SUBROUTINE WILL ACTUALLY FIND THE APPROPRIATE
  18 C   EXTERNAL BUFR TABLE.
  19 C
  20 C PROGRAM HISTORY LOG:
  21 C 1998-07-08  J. WOOLLEN -- ORIGINAL AUTHOR
  22 C 2003-11-04  S. BENDER  -- ADDED REMARKS/BUFRLIB ROUTINE
  23 C                           INTERDEPENDENCIES
  24 C 2003-11-04  D. KEYSER  -- UNIFIED/PORTABLE FOR WRF; ADDED
  25 C                           DOCUMENTATION (INCLUDING HISTORY); ADDED
  26 C                           MORE COMPLETE DIAGNOSTIC INFO WHEN UNUSUAL
  27 C                           THINGS HAPPEN
  28 C 2009-04-21  J. ATOR    -- USE ERRWRT
  29 C
  30 C USAGE:    CALL OPENBT (LUNDX, MTYP)
  31 C   INPUT ARGUMENT LIST:
  32 C     MTYP     - INTEGER: DUMMY {IN AN APPLICATION PROGRAM (IN-LINE)
  33 C                THIS WOULD BE THE BUFR MESSAGE TYPE}
  34 C
  35 C   OUTPUT ARGUMENT LIST:
  36 C     LUNDX    - INTEGER: DUMMY, ALWAYS RETURNED AS ZERO {IN AN
  37 C                APPLICATION PROGRAM (IN-LINE) THIS WOULD BE THE
  38 C                FORTRAN LOGICAL UNIT NUMBER CONNECTED TO THE FILE
  39 C                CONTAINING THE EXTERNAL BUFR TABLE}
  40 C
  41 C REMARKS:
  42 C    THIS ROUTINE CALLS:        ERRWRT
  43 C    THIS ROUTINE (IN BUFR
  44 C    ARCHIVE LIBRARY):          Called by CKTABA only to allow the
  45 C                               BUFR ARCHIVE LIBRARY to compile, CKTABA
  46 C                               and any application programs should
  47 C                               always call a version of OPENBT in-line
  48 C                               in the application program.
  49 C
  50 C ATTRIBUTES:
  51 C   LANGUAGE: FORTRAN 77
  52 C   MACHINE:  PORTABLE TO ALL PLATFORMS
  53 C
  54 C$$$
  55
  56       COMMON /QUIET / IPRT
  57
  58       CHARACTER*128 ERRSTR
  59
  60       IF(IPRT.GE.0) THEN
  61       CALL ERRWRT('+++++++++++++++++++++WARNING+++++++++++++++++++++++')
  62       ERRSTR = 'BUFRLIB: OPENBT - THIS IS A DUMMY BUFRLIB ROUTINE'//
  63      . ' CALLED BY CKTABA OR APPL. PGM; OPENBT SHOULD BE INCL.'//
  64      . ' IN-LINE IN APPL. PGM'
  65       CALL ERRWRT(ERRSTR)
  66       CALL ERRWRT('+++++++++++++++++++++WARNING+++++++++++++++++++++++')
  67       CALL ERRWRT(' ')
  68       ENDIF
  69
  70       LUNDX = 0
  71
  72       RETURN
  73       END