60 SUBROUTINE uptdd(ID,LUN,IENT,IRET)
64 COMMON /dxtab / maxdx,idxv,nxstr(10),ldxa(10),ldxb(10),ldxd(10),
67 CHARACTER*128 BORT_STR
83 ELSEIF(ient.LT.0 .OR. ient.GT.ndsc)
THEN
90 idsc = ldd+1 + (ient-1)*2
91 iret =
iupm(
tabd(id,lun)(idsc:idsc),16)
97900
WRITE(bort_str,
'("BUFRLIB: UPTDD - VALUE OF THIRD ARGUMENT IENT'//
98 .
' (INPUT) IS OUT OF RANGE (IENT =",I4,")")') ient
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
function iupm(CBAY, NBITS)
THIS FUNCTION UNPACKS AND RETURNS A BINARY INTEGER WORD CONTAINED WITHIN NBITS BITS OF A CHARACTER ST...
This module contains array and variable declarations used to store DX BUFR tables internally for mult...
character *600, dimension(:,:), allocatable tabd
Table D entries for each internal I/O stream.
subroutine uptdd(ID, LUN, IENT, IRET)
THIS SUBROUTINE RETURNS THE BIT-WISE REPRESENTATION OF THE FXY VALUE CORRESPONDING TO,...