END INTERFACE

Purpose

The END INTERFACE statement terminates a procedure interface block.

Syntax



>>-END INTERFACE--+-------------------+------------------------><
                  |              (1)  |
                  '-generic_spec------'
 
 


Notes:


  1. Fortran 95.


+---------------------------------Fortran 95---------------------------------+

generic_spec



>>-+-generic_name---------------------+------------------------><
   +-OPERATOR--(--defined_operator--)-+
   '-ASSIGNMENT--(-- = --)------------'
 
 

+-----------------------------End of Fortran 95------------------------------+

+---------------------------------Fortran 95---------------------------------+

defined_operator
is a defined unary operator, defined binary operator, or extended intrinsic operator

+-----------------------------End of Fortran 95------------------------------+

Rules

Each INTERFACE statement must have a corresponding END INTERFACE statement.

An END INTERFACE statement without a generic_spec can match any INTERFACE statement, with or without a generic_spec.

+---------------------------------Fortran 95---------------------------------+

If the generic_spec in an END INTERFACE statement is a generic_name, the generic_spec of the corresponding INTERFACE statement must be the same generic_name.

If the generic_spec in an END INTERFACE statement is an OPERATOR(defined_operator), the generic_spec of the corresponding INTERFACE statement must be the same OPERATOR(defined_operator).

If the generic_spec in an END INTERFACE statement is an ASSIGNMENT(=), the generic_spec for the corresponding INTERFACE statement must be the same ASSIGNMENT(=).

+-----------------------------End of Fortran 95------------------------------+

Examples

INTERFACE OPERATOR (.DETERMINANT.)
  FUNCTION DETERMINANT (X)
    INTENT(IN) X
    REAL X(50,50), DETERMINANT
  END FUNCTION
END INTERFACE

+---------------------------------Fortran 95---------------------------------+

INTERFACE OPERATOR(.INVERSE.)
  FUNCTION INVERSE(Y)
    INTENT(IN) Y
    REAL Y(50,50), INVERSE
  END FUNCTION
END INTERFACE OPERATOR(.INVERSE.)

+-----------------------------End of Fortran 95------------------------------+

Related Information

IBM Copyright 2003