HP Fortran Programmer's Reference (September 2007)

Intrinsic procedures
Intrinsic procedure specifications
Chapter 11564
Argument
A must be of type INTEGER(4).
Result
INTEGER(2) type.
IMAG(A)
Description
Imaginary part of complex number.
Class
Elemental nonstandard function.
Argument
A must be of type complex or double complex.
Result
Real if A is complex. Double precision if A is double complex.
INDEX(STRING, SUBSTRING, BACK)
Optional argument
BACK
Description
Returns the starting position of a substring within a string.
Class
Elemental function.
Arguments
STRING must be of type character.
SUBSTRING must be of type character with the same kind type parameter as STRING.