LNBLNK

Portability Function: Locates the position of the last nonblank character in a string.

Module

USE IFPORT

result = LNBLNK (string)

string

(Input) Character*(*). String to be searched. Cannot be an array.

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.

USE IFPORT
integer(4) p
p = LNBLNK(' GOOD DAY ') ! returns 9
p = LNBLNK(' ')          ! returns 0