Procedure

     LNKSIZ ( LNK, size )

     INTEGER FUNCTION LNKSIZ ( POOL )

Abstract

     Return the size of a doubly linked list pool.

Required_Reading

     None.

Keywords

     LIST

Declarations

     IMPLICIT NONE

     INTEGER               LBPOOL
     PARAMETER           ( LBPOOL = -5 )

     INTEGER               POOL ( 2,  LBPOOL : * )

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     POOL       I   A doubly linked list pool.
     LBPOOL     P   Lower bound of pool column indices.

     The function returns the size of the pool.

Detailed_Input

     POOL     is a doubly linked list pool.

Detailed_Output

     The function returns the size (total number of nodes) of the pool.

Parameters

     LBPOOL   is the lower bound of the column indices of the POOL
              array. The columns indexed LBPOOL to 0 are reserved
              as a control area for the pool.

Exceptions

     Error free.

Files

     None.

Particulars

     This routine allows an application program to determine the size
     of a doubly linked list pool at run-time, without having to rely
     on knowledge of the internals of the doubly linked list pool
     structure.

Examples

     1)  Let POOL be a doubly linked list pool. The total number of
         nodes in a doubly linked list pool is set when the pool is
         initialized by LNKINI. This number is returned by LNKSIZ:

            C
            C     This sequence of calls will assign the value 100
            C     to the variable SIZE:
            C
                  CALL LNKINI ( 100, POOL )
                  SIZE = LNKSIZ ( POOL )

Restrictions

     1)  Linked list pools must be initialized via the routine
         LNKINI. Failure to initialize a linked list pool
         will almost certainly lead to confusing results.

Literature_References

     None.

Author_and_Institution

     N.J. Bachman       (JPL)
     J. Diaz del Rio    (ODC Space)
     W.L. Taber         (JPL)

Version

    SPICELIB Version 1.0.1, 24-NOV-2021 (JDR)

        Edited the header to comply with NAIF standard.

    SPICELIB Version 1.0.0, 19-DEC-1995 (NJB) (WLT)