HP Fortran Programmer's Reference (September 2007)

Intrinsic procedures
Intrinsic procedure specifications
Chapter 11 565
BACK (optional) must be of type logical.
Result type/
type parameters
Default integer.
Result value
Case 1 If BACK is absent or present with the value .FALSE., the result is the
minimum positive value of I such that STRING(I : I + LEN(SUBSTRING) –
1) = SUBSTRING or zero if there is no such value.
Zero is returned if LEN(STRING) < LEN(SUBSTRING) and one is returned if
LEN(SUBSTRING) = 0.
Case 2 If BACK is present with the value .TRUE., the result is the maximum value of
I less than or equal to LEN(STRING) – LEN(SUBSTRING) + 1 such that
STRING(I : I + LEN(SUBSTRING) – 1) = SUBSTRING or zero if there is no
such value.
Zero is returned if LEN(STRING) < LEN(SUBSTRING) and LEN(STRING) +1is
returned if LEN(SUBSTRING) = 0.
Specific forms
KINDEX.
INT(A, KIND)
Optional argument
KIND
Description
Convert to integer type.
Class
Elemental function.
Arguments
A must be of type integer, real, or complex.