33 CHARACTER*128 tabdb(*)
44 CALL
status(lunit,lun,il,im)
51 nemo = tabd(i,lun)(7:14)
52 CALL
nemtbd(lun,i,nseq,nem(1,1),irp(1,1),krp(1,1))
56 WRITE(tabdb(jtab),1) nemo,(nem(k,1),k=j,min(j+9,nseq))
57 1
FORMAT(
'D ',a8,10(1x,a10))
68 WRITE(tabdb(jtab),2) tabb(i,lun)(7:14),tabb(i,lun)(71:112)
69 2
FORMAT(
'B ',a8,1x,a42)
This module contains array and variable declarations used to store DX BUFR tables internally for mult...
subroutine status(LUNIT, LUN, IL, IM)
This subroutine checks whether a specified Fortran logical unit number is currently connected to the ...
subroutine getabdb(LUNIT, TABDB, ITAB, JTAB)
THIS SUBROUTINE RETURNS INTERNAL TABLE B AND TABLE D INFORMATION FOR LOGICAL UNIT LUNIT IN A PRE-DEFI...
subroutine nemtbd(LUN, ITAB, NSEQ, NEMS, IRPS, KNTS)
This subroutine returns information about a Table D descriptor from the internal DX BUFR tables...