mtinfo.f

Go to the documentation of this file.

C> @file
C> @brief Specify location of master BUFR tables on local file system

C> This subroutine allows the specification of the directory location
C> and Fortran logical unit numbers to be used when reading master
C> BUFR tables on the local file system.
C>
C> @author J. Ator
C> @date 2009-03-23
C>
C> @param[in] CMTDIR   - character*(*): Directory location of master
C>                          BUFR tables on local file system
C>                          (up to 100 characters)
C> @param[in] LUNMT1   - integer: First Fortran logical unit number
C>                          to use when reading master BUFR tables on
C>                          local file system
C> @param[in] LUNMT2   - integer: Second Fortran logical unit number
C>                          to use when reading master BUFR tables on
C>                          local file system
C>
C> <p>See [Master BUFR Tables](@ref dfbfmstab)
C> for more information about master BUFR tables.  In particular, note
C> that this subroutine is normally only ever called after a prior call
C> has been made to subroutine openbf() with IO = 'SEC3'.  But in such
C> cases, any call to this subroutine must be made prior to any
C> subsequent calls to any of the BUFR
C> [message-reading subroutines](@ref hierarchy) for the associated BUFR
C> file; otherwise, default values for CMTDIR, LUNMT1 and LUNMT2 will be
C> used as defined within subroutine bfrini().  
C>
C> <p>For CMTDIR, any full or relative directory pathname that is legal
C> on the local filesystem is permissible, up to a total maximum length
C> of 100 characters.  The BUFRLIB software will then automatically search
C> within this directory for any necessary master table files and open and
C> read them as needed.
C> 
C> <p>The logical unit numbers LUNMT1 and LUNMT2 should be distinct from
C> each other but should not already be assigned to any files on the
C> local system.
C>
C> <b>Program history log:</b>
C> - 2009-03-23  J. Ator    -- Original author
C>
      SUBROUTINE mtinfo ( CMTDIR, LUNMT1, LUNMT2 )

      COMMON /mstinf/ lun1, lun2, lmtd, mtdir

      CHARACTER*(*) cmtdir

      CHARACTER*128 bort_str
      CHARACTER*100 mtdir

C-----------------------------------------------------------------------
C-----------------------------------------------------------------------

      CALL strsuc( cmtdir, mtdir, lmtd )
      IF ( lmtd .LT. 0 ) goto 900

      lun1 = lunmt1
      lun2 = lunmt2

C  EXITS
C  -----

      RETURN
900   bort_str = 'BUFRLIB: MTINFO - BAD INPUT MASTER TABLE DIRECTORY:'
      CALL bort2(bort_str,cmtdir)
      END