index, lnblnk, len (3f)

returns information about character objects

Syntax

  (intrinsic) integer*4 index
  integer*4 stind
  character*len string, substr
  external index
  stind = index ( string, substr )

  integer*4 lnblnk, stind
  character*len string
  external lnblnk
  stind = lnblnk ( string )

  (intrinsic) integer*4 len
  integer*4 i
  character*len string
  external len
  i = len ( string )

Description

  The index function returns the position of the first occurrence of the
  substring substr in string. If the substring does not occur, this function
  returns zero.  The index function is a Fortran intrinsic function.

  The lnblnk function returns the position of the last non-blank character in
  string. This is useful since all Fortran character objects are of fixed
  length and are padded with blanks.

  The len function returns the length of the character object argument (
  string ). The len function is a Fortran intrinsic function.