29 COMMON /hrdwrd/ nbytw,nbitw,iord(8)
32 CHARACTER*128 bort_str
37 IF(len(
adn30).LT.l30) goto 900
51 900
WRITE(bort_str,
'("BUFRLIB: IDN30 - FUNCTION INPUT STRING ",A,'//
52 .
'" CHARACTER LENGTH (",I4,") IS TOO SHORT (< L30,",I5)')
55 901
WRITE(bort_str,
'("BUFRLIB: IDN30 - DESCRIPTOR INTEGER '//
56 .
'REPRESENTATION, IDN30 (",I8,"), IS OUTSIDE 16-BIT RANGE '//
57 .
'(0-65535)")')
idn30
59 902
WRITE(bort_str,
'("BUFRLIB: IDN30 - FUNCTION INPUT STRING ",A,'//
60 .
'" CHARACTER LENGTH (",I4,") MUST BE EITHER 5 OR 6")')
function idn30(ADN30, L30)
This function converts an FXY value from its 5 or 6 character representation to its bit-wise (integer...
character *(*) function adn30(IDN, L30)
This function converts an FXY value from its bit-wise (integer) representation to its 5 or 6 characte...
function ifxy(ADSC)
This function converts an FXY value from its 6 character representation to its bit-wise (integer) rep...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...