HP Fortran Programmer's Reference (September 2007)

HP Fortran statements
INTERFACE
Chapter 10392
SUBROUTINE sp2(x,z)
END SUBROUTINE sp2
END INTERFACE
! Make the interface of function r_ave explicit and give
! it the generic name g_ave
INTERFACE g_ave
FUNCTION r_ave(x)
! Get the size of x from the module ave_stuff
USE ave_stuff, ONLY: n
REAL r_ave, x(n)
END FUNCTION r_ave
END INTERFACE
! Make the interface of external function b_or explicit, and use! it to extend the +
operator
INTERFACE OPERATOR ( + )
FUNCTION b_or(p, q)
LOGICAL b_or, p, q
INTENT (IN) p, q
END FUNCTION b_or
END INTERFACE
Related statements
END INTERFACE, FUNCTION, and SUBROUTINE
Related concepts
For related information, see the following:
• “Derived types” on page 123
• “Interface blocks” on page 182