igetrfel.f File Reference

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...

Detailed Description

Author

J

Date

2016-05-27

Definition in file igetrfel.f.

Function/Subroutine Documentation

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().

Referenced by rcstpl(), and rdcmps().