68 CALL
status(lundx,lud,ildx,imdx)
73 IF (lunit.EQ.lundx)
THEN
76 CALL
errwrt(
'++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++')
77 WRITE ( unit=errstr, fmt=
'(A,A,I3,A)' )
78 .
'BUFRLIB: READDX - READING BUFR DICTIONARY TABLE FROM ',
79 .
'INPUT BUFR FILE IN UNIT ', lundx,
' INTO INTERNAL ARRAYS'
81 CALL
errwrt(
'++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++')
86 ELSEIF(ildx.EQ.-1)
THEN
90 CALL
errwrt(
'++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++')
91 WRITE ( unit=errstr, fmt=
'(A,A,I3,A,A,I3)' )
92 .
'BUFRLIB: READDX - COPYING BUFR DCTY TBL FROM INTERNAL ',
93 .
'ARRAYS ASSOC. W/ INPUT UNIT ', lundx,
' TO THOSE ASSOC. ',
96 CALL
errwrt(
'++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++')
101 ELSEIF(ildx.EQ.1)
THEN
105 CALL
errwrt(
'++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++')
106 WRITE ( unit=errstr, fmt=
'(A,A,I3,A,A,I3)' )
107 .
'BUFRLIB: READDX - COPYING BUFR DCTY TBL FROM INTERNAL ',
108 .
'ARRAYS ASSOC. W/ OUTPUT UNIT ', lundx,
' TO THOSE ASSOC. ',
111 CALL
errwrt(
'++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++')
116 ELSEIF(ildx.EQ.0)
THEN
120 CALL
errwrt(
'++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++')
121 WRITE ( unit=errstr, fmt=
'(A,A,I3,A)' )
122 .
'BUFRLIB: READDX - READING BUFR DICTIONARY TABLE FROM ',
123 .
'USER-SUPPLIED TEXT FILE IN UNIT ', lundx,
124 .
' INTO INTERNAL ARRAYS'
126 CALL
errwrt(
'++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++')
139 900 CALL
bort(
'BUFRLIB: READDX - CANNOT DETERMINE SOURCE OF '//
140 .
'INPUT DICTIONARY TABLE')
subroutine cpbfdx(LUD, LUN)
THIS SUBROUTINE COPIES BUFR TABLE (DICTIONARY) MESSAGES FROM ONE LOCATION TO ANOTHER WITHIN INTERNAL ...
subroutine status(LUNIT, LUN, IL, IM)
This subroutine checks whether a specified Fortran logical unit number is currently connected to the ...
subroutine readdx(LUNIT, LUN, LUNDX)
THIS SUBROUTINE GENERATES INTERNAL ARRAYS CONTAINING BUFR DICTIONARY TABLES WHICH ARE NEEDED TO READ...
subroutine makestab
THIS SUBROUTINE CONSTRUCTS AN INTERNAL JUMP/LINK TABLE WITHIN MODULE TABLES, USING THE INFORMATION WI...
subroutine errwrt(STR)
This subroutine allows the user to specify a custom location for the logging of error and diagnostic ...
subroutine rdbfdx(LUNIT, LUN)
BEGINNING AT THE CURRENT FILE POINTER LOCATION WITHIN LUNIT, THIS SUBROUTINE READS A COMPLETE DICTION...
subroutine rdusdx(LUNDX, LUN)
THIS SUBROUTINE READS AND PARSES A FILE CONTAINING A USER- SUPPLIED BUFR DICTIONARY TABLE IN CHARACTE...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...