60 CALL
status(lunit,lun,il,im)
63 idn =
ifxy(
'363000')+ifix(qcp)
65 CALL
numtab(lun,idn,nemo,tab,iret)
71 900 CALL
bort(
'BUFRLIB: UFBQCP - BUFR FILE IS CLOSED, IT MUST BE'//
subroutine numtab(LUN, IDN, NEMO, TAB, IRET)
THIS SUBROUTINE FIRST SEARCHES FOR AN INTEGER IDN, CONTAINING THE BIT-WISE REPRESENTATION OF A DESCRI...
function ifxy(ADSC)
THIS FUNCTION RETURNS THE INTEGER CORRESPONDING TO THE BIT-WISE REPRESENTATION OF AN INPUT CHARACTER ...
subroutine ufbqcp(LUNIT, QCP, NEMO)
THIS SUBROUTINE READS IN A FXY DESCRIPTOR ENTRY (Y) FOR A SEQUENCE DESCRIPTOR (F=3) WITH TABLE D CATE...
subroutine status(LUNIT, LUN, IL, IM)
This subroutine checks whether a specified Fortran logical unit number is currently connected to the ...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...