Portability Function: Locates the position of the last nonblank character in a string.
Module: USE IFPORT
Syntax
result = LNBLNK (string)
string
(Input) Character*(*). String to be searched. Cannot be an array.
Results
The result type is INTEGER(4). The result is the index of the last nonblank character in string.
LNBLNK is very similar to the intrinsic function LEN_TRIM, except that string cannot be an array.
Compatibility
CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB
See Also
LEN_TRIM, Building Applications: Portability Library Overview
Example
USE IFPORT
integer(4) p
p = LNBLNK(' GOOD DAY ') ! returns 9
p = LNBLNK(' ') ! returns 0