HP Fortran Programmer's Reference

Intrinsic procedures
Intrinsic procedure specifications
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 orzeroifthereisnosuchvalue.
530
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) +1suchthat
STRING(I : I + LEN(SUBSTRING) – 1) = SUBSTRING or zero if there is no
such value.
Specific forms
KINDEX.
INT(A, KIND)
Optional argument
KIND
Description
Convert to integer type.
Class
Elemental function.
Arguments
Zero is returned if LEN(STRING) < LEN(SUBSTRING) and LEN(STRING) +1is
returned if LEN(SUBSTRING) =0.
A must be of type integer, real, or complex.
Chapter 11