LEN_TRIM

 LEN_TRIM (string [,kind])

 Class:  Elemental function - Generic

 Returns the length of the character argument without counting
 trailing blank characters.

 The "string" must be of type character.  The "kind" must be a
 scalar integer initialization expression.

 The result is of type integer.  If "kind" is present, the kind
 parameter of the result is that specified by "kind"; otherwise, the
 kind parameter of the result is that of default integer.  If the
 processor cannot represent the result value in the kind of the
 result, the result is undefined.

 Examples:

 LEN_TRIM ('   C  D   ') has the value 7.

 LEN_TRIM ('   ') has the value 0.