Procedure

     NBWID ( Non-blank width of a character array )

     INTEGER FUNCTION NBWID ( ARRAY, NELT )

Abstract

     Determine the non-blank width of a character array---that is,
     the largest value of LASTNB for any element in the array.

Required_Reading

     None.

Keywords

     ARRAY
     CHARACTER

Declarations

     IMPLICIT NONE

     CHARACTER*(*)         ARRAY   ( * )
     INTEGER               NELT

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     ARRAY      I   Input array.
     NELT       I   Number of elements in the array.

     The function returns the index of the rightmost non-blank
     character in the entire array of strings ARRAY.

Detailed_Input

     ARRAY    is the input array.

     NELT     is the number of elements in the input array.

Detailed_Output

     The function returns the index of the rightmost non-blank
     character in the entire array. This is equivalent to the maximum
     value of LASTNB for the array, but somewhat more efficient to
     compute. If NELT is not greater than zero, NBWID is zero.

Parameters

     None.

Exceptions

     Error free.

Files

     None.

Particulars

     Find the last non-blank character in the first element of the
     array. Search the rest of the elements, starting at the end of
     each string and moving back just far enough to determine if the
     current string is wider than any of the previous ones. (This
     makes NBWID somewhat more efficient than LASTNB.)

     If any of the strings is found to contain no trailing blanks,
     NBWID is just the length of the individual elements of the array,
     and the search is terminated immediately.

Examples

     Let ARRAY contain the following strings.

           ARRAY(1) = 'A string of medium length                      '
           ARRAY(2) = 'A very long string, much longer than the rest  '
           ARRAY(3) = 'Shorter                                        '
           ARRAY(4) = 'Short                                          '

     Then the value returned by

           WIDEST = NBWID ( ARRAY, 4 )

     is 45.

     If the word 'rest' in the second element is changed to 'others',
     the value returned is 47, and the search is terminated after the
     second element.

Restrictions

     None.

Literature_References

     None.

Author_and_Institution

     J. Diaz del Rio    (ODC Space)
     W.L. Taber         (JPL)
     I.M. Underwood     (JPL)

Version

    SPICELIB Version 1.1.0, 08-APR-2021 (JDR)

        Added IMPLICIT NONE statement.

        Edited the header to comply with NAIF standard.

    SPICELIB Version 1.0.1, 10-MAR-1992 (WLT)

        Comment section for permuted index source lines was added
        following the header.

    SPICELIB Version 1.0.0, 31-JAN-1990 (IMU)