idlastro / FITS Binary Table Extensions I/O: FXBFINDLUN

[Source code]

NAME
FXBFINDLUN()
Purpose
Find logical unit number UNIT in FXBINTABLE common block.
Explanation
Finds the proper index to use for getting information about the logical
unit number UNIT in the arrays stored in the FXBINTABLE common block.
Called from FXBCREATE and FXBOPEN.
Use
Result = FXBFINDLUN( UNIT )
Inputs
UNIT    = Logical unit number.
Opt. Inputs
None.
Outputs
The result of the function is an index into the FXBINTABLE common
block.
Opt. Outputs
None.
Keywords
None.
Calls
None.
Common
Uses common block FXBINTABLE--see "fxbintable.pro" for more
information.
Restrictions
None.
Side effects
If UNIT is not found in the common block, then it is added to the
common block.
Category
Data Handling, I/O, FITS, Generic.
Prev. Hist.
William Thompson, Feb. 1992.
Written
William Thompson, GSFC, February 1992.
Modified
Version 1, William Thompson, GSFC, 12 April 1993.
        Incorporated into CDS library.
Version 2, William Thompson, GSFC, 21 July 1993.
        Added DHEAP variable to fix bug with variable length arrays.
Version 3, Michael Schubnell, University of Michigan, 22 May 1996
        Change N_DIMS from short to long integer.
Version
Version 3, 22 May 1996
NAXIS1, NAXIS2, HEAP, DHEAP, BYTOFF 64-bit integers to deal with large files,
 E. Hivon Mar 2008
make NHEADER a 64 bit integer   W. Landsman  May 2016