46 SUBROUTINE mtinfo ( CMTDIR, LUNMT1, LUNMT2 )
48 COMMON /mstinf/ lun1, lun2, lmtd, mtdir
52 CHARACTER*128 bort_str
58 CALL
strsuc( cmtdir, mtdir, lmtd )
59 IF ( lmtd .LT. 0 ) goto 900
68 900 bort_str =
'BUFRLIB: MTINFO - BAD INPUT MASTER TABLE DIRECTORY:'
69 CALL
bort2(bort_str,cmtdir)
subroutine strsuc(STR1, STR2, LENS)
This subroutine removes leading and trailing blanks from a character string.
subroutine bort2(STR1, STR2)
This subroutine calls subroutine errwrt() to log two error messages, then calls subroutine bort_exit(...
subroutine mtinfo(CMTDIR, LUNMT1, LUNMT2)
This subroutine allows the specification of the directory location and Fortran logical unit numbers t...