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.