lastnb |
Table of contents
ProcedureLASTNB ( Last non-blank character ) INTEGER FUNCTION LASTNB ( STRING ) AbstractReturn the index of the last non-blank character in a character string. Required_ReadingNone. KeywordsASCII CHARACTER SEARCH DeclarationsIMPLICIT NONE CHARACTER*(*) STRING Brief_I/OVARIABLE I/O DESCRIPTION -------- --- -------------------------------------------------- STRING I Input character string. The function returns the index of the last non-blank character in STRING. Detailed_InputSTRING is the input character string. Detailed_OutputThe function returns the index of the last non-blank character in the input string. If there are no non-blank characters in the string, LASTNB is zero. ParametersNone. ExceptionsError free. FilesNone. ParticularsIf the string is blank, return zero. Otherwise, step through the string one character at a time until something other than a blank is found. Return the index of that something within the string. ExamplesThe following examples illustrate the use of LASTNB. LASTNB ( 'ABCDE' ) = 5 LASTNB ( 'AN EXAMPLE' ) = 10 LASTNB ( 'AN EXAMPLE ' ) = 10 LASTNB ( ' ' ) = 0 RestrictionsNone. Literature_ReferencesNone. Author_and_InstitutionJ. Diaz del Rio (ODC Space) K.R. Gehringer (JPL) W.L. Taber (JPL) I.M. Underwood (JPL) VersionSPICELIB Version 2.1.0, 08-APR-2021 (JDR) Added IMPLICIT NONE statement. Edited the header to comply with NAIF standard. SPICELIB Version 2.0.0, 12-MAR-1996 (KRG) Modified the comparison to use integer values and the ICHAR() function. This improves the performance of the subroutine. SPICELIB Version 1.0.2, 10-MAR-1992 (WLT) Comment section for permuted index source lines was added following the header. SPICELIB Version 1.0.1, 07-DEC-1990 (IMU) Corrected a misprint in the description of LASTNB. SPICELIB Version 1.0.0, 31-JAN-1990 (IMU) |
Fri Dec 31 18:36:30 2021