var/external/bufr/mtinfo.f

   1       SUBROUTINE MTINFO ( CMTDIR, LUNMT1, LUNMT2 )
   2
   3 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
   4 C
   5 C SUBPROGRAM:    MTINFO
   6 C   PRGMMR: ATOR            ORG: NP12       DATE: 2009-03-23
   7 C
   8 C ABSTRACT: THIS SUBROUTINE IS USED TO SPECIFY THE DIRECTORY LOCATION
   9 C   AND FORTRAN LOGICAL UNIT NUMBERS TO USE WHEN READING BUFR MASTER
  10 C   TABLES ON THE LOCAL FILE SYSTEM.  THE INPUT LOGICAL UNIT NUMBERS
  11 C   SHOULD BE UNIQUE BUT SHOULD NOT ALREADY BE ASSIGNED TO ANY ACTUAL
  12 C   BUFR MASTER TABLE FILES.  IF THIS SUBROUTINE IS NOT CALLED, THEN
  13 C   DEFAULT VALUES ARE USED AS DEFINED WITHIN BUFR ARCHIVE LIBRARY
  14 C   SUBROUTINE BFRINI.
  15 C
  16 C PROGRAM HISTORY LOG:
  17 C 2009-03-23  J. ATOR    -- ORIGINAL AUTHOR
  18 C
  19 C USAGE:    CALL MTINFO ( CMTDIR, LUNMT1, LUNMT2 )
  20 C   INPUT ARGUMENT LIST:
  21 C     CMTDIR   - CHARACTER*(*): DIRECTORY LOCATION OF BUFR MASTER TABLES
  22 C                ON LOCAL FILE SYSTEM (UP TO 100 CHARACTERS)
  23 C     LUNMT1   - INTEGER: FIRST FORTRAN LOGICAL UNIT NUMBER TO USE WHEN
  24 C                READING BUFR MASTER TABLES ON LOCAL FILE SYSTEM
  25 C     LUNMT2   - INTEGER: SECOND FORTRAN LOGICAL UNIT NUMBER TO USE WHEN
  26 C                READING BUFR MASTER TABLES ON LOCAL FILE SYSTEM
  27 C
  28 C REMARKS:
  29 C    THIS ROUTINE CALLS:        BORT2    STRSUC
  30 C    THIS ROUTINE IS CALLED BY: None
  31 C                               Normally called only by application
  32 C                               programs.
  33 C
  34 C ATTRIBUTES:
  35 C   LANGUAGE: FORTRAN 77
  36 C   MACHINE:  PORTABLE TO ALL PLATFORMS
  37 C
  38 C$$$
  39
  40       COMMON /MSTINF/ LUN1, LUN2, LMTD, MTDIR
  41
  42       CHARACTER*(*) CMTDIR
  43
  44       CHARACTER*128 BORT_STR
  45       CHARACTER*100 MTDIR
  46
  47 C-----------------------------------------------------------------------
  48 C-----------------------------------------------------------------------
  49
  50       CALL STRSUC ( CMTDIR, MTDIR, LMTD )
  51       IF ( LMTD .LT. 0 ) GOTO 900
  52
  53       LUN1 = LUNMT1
  54       LUN2 = LUNMT2
  55
  56 C  EXITS
  57 C  -----
  58
  59       RETURN
  60 900   BORT_STR = 'BUFRLIB: MTINFO - BAD INPUT MASTER TABLE DIRECTORY:'
  61       CALL BORT2(BORT_STR,CMTDIR)
  62       END