NCEPLIBS-bufr
11.6.0
|
Go to the source code of this file.
Functions/Subroutines | |
INTEGER function | igetrfel (N, LUN) |
THIS FUNCTION CHECKS WHETHER THE INPUT ELEMENT REFERS TO A PREVIOUS ELEMENT WITHIN THE SAME SUBSET VIA AN INTERNAL BITMAP. More... | |
Definition in file igetrfel.f.
INTEGER function igetrfel | ( | N, | |
LUN | |||
) |
THIS FUNCTION CHECKS WHETHER THE INPUT ELEMENT REFERS TO A PREVIOUS ELEMENT WITHIN THE SAME SUBSET VIA AN INTERNAL BITMAP.
IF SO, THEN THE REFERENCED ELEMENT IS RETURNED. IN ADDITION, IF THE INPUT ELEMENT IS A 2-XX-255 MARKER OPERATOR, ITS SCALE FACTOR, BIT WIDTH AND REFERENCE VALUE ARE SET INTERNALLY TO MATCH THOSE OF THE REFERENCED ELEMENT.
PROGRAM HISTORY LOG: 2016-05-27 J. ATOR – ORIGINAL AUTHOR 2017-04-03 J. ATOR – ADD A DIMENSION TO ALL TCO ARRAYS SO THAT EACH SUBSET DEFINITION IN THE JUMP/LINK TABLE HAS ITS OWN SET OF TABLE C OPERATORS
USAGE: CALL IGETRFEL ( N, LUN ) INPUT ARGUMENT LIST: N - INTEGER: SUBSET ELEMENT LUN - INTEGER: I/O STREAM INDEX INTO INTERNAL MEMORY ARRAYS
OUTPUT ARGUMENT LIST: IGETRFEL - INTEGER: SUBSET ELEMENT REFERENCED BY ELEMENT N WITHIN THE SAME SUBSET 0 = INPUT ELEMENT DOES NOT REFER TO A PREVIOUS ELEMENT, OR REFERENCED ELEMENT NOT FOUND
REMARKS: THIS ROUTINE CALLS: ADN30 BORT IBFMS IMRKOPR LSTJPB NEMTAB THIS ROUTINE IS CALLED BY: RCSTPL RDCMPS Normally not called by any application programs.
Definition at line 35 of file igetrfel.f.
References adn30(), bort(), imrkopr(), lstjpb(), and nemtab().