55 CALL
status(lubin,lui,il,im)
59 IF(inode(lui).NE.inv(1,lui)) goto 903
61 CALL
status(lubot,luo,il,im)
73 IF(itp(nin).GE.2)
THEN
75 IF(ttmp(nv).EQ.tag(nin)) goto 5
83 IF(ntag.EQ.0) goto 907
91 tago = tag(inv(no,luo))
92 IF(ttmp(nv).EQ.tago)
THEN
93 val(no,luo) = val(ni,lui)
103 900 CALL
bort(
'BUFRLIB: UFBCUP - INPUT BUFR FILE IS CLOSED, IT '//
104 .
'MUST BE OPEN FOR INPUT')
105 901 CALL
bort(
'BUFRLIB: UFBCUP - INPUT BUFR FILE IS OPEN FOR '//
106 .
'OUTPUT, IT MUST BE OPEN FOR INPUT')
107 902 CALL
bort(
'BUFRLIB: UFBCUP - A MESSAGE MUST BE OPEN IN INPUT '//
108 .
'BUFR FILE, NONE ARE')
109 903 CALL
bort(
'BUFRLIB: UFBCUP - LOCATION OF INTERNAL TABLE FOR '//
110 .
'INPUT BUFR FILE DOES NOT AGREE WITH EXPECTED LOCATION IN '//
111 .
'INTERNAL SUBSET ARRAY')
112 904 CALL
bort(
'BUFRLIB: UFBCUP - OUTPUT BUFR FILE IS CLOSED, IT '//
113 .
'MUST BE OPEN FOR OUTPUT')
114 905 CALL
bort(
'BUFRLIB: UFBCUP - OUTPUT BUFR FILE IS OPEN FOR '//
115 .
'INPUT, IT MUST BE OPEN FOR OUTPUT')
116 906 CALL
bort(
'BUFRLIB: UFBCUP - A MESSAGE MUST BE OPEN IN OUTPUT '//
117 .
'BUFR FILE, NONE ARE')
118 907 CALL
bort(
'BUFRLIB: UFBCUP - THERE ARE NO ELEMENTS (TAGS) IN '//
119 .
'INPUT SUBSET BUFFER')
This module contains array and variable declarations used to store the internal jump/link table...
subroutine status(LUNIT, LUN, IL, IM)
This subroutine checks whether a specified Fortran logical unit number is currently connected to the ...
subroutine ufbcup(LUBIN, LUBOT)
THIS SUBROUTINE MAKES ONE COPY OF EACH UNIQUE ELEMENT IN AN INPUT SUBSET BUFFER INTO THE IDENTICAL MN...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...