41 IF ( ( ntba(lud) .GE. 1 ) .AND.
42 + ( ntba(lud) .EQ. ntba(lun) ) )
THEN
45 DO WHILE ( ( ii .LE. ntba(lud) ) .AND. (
ishrdx .EQ. 1 ) )
46 IF ( ( mtab(ii,lud) .NE. 0 ) .AND.
47 + ( mtab(ii,lud) .EQ. mtab(ii,lun) ) )
THEN
This module contains array and variable declarations used to store DX BUFR tables internally for mult...
INTEGER function ishrdx(LUD, LUN)
This function determines whether the same DX BUFR Table is being shared between two Fortran logical u...