Purpose
The END INTERFACE statement terminates a procedure interface block.
Format
>>-END INTERFACE--+-------------------+------------------------><
| (1) |
'-generic_spec------'
Notes:
|
+---------------------------------Fortran 95---------------------------------+
>>-+-generic_name---------------------+------------------------>< +-OPERATOR--(--defined_operator--)-+ '-ASSIGNMENT--(-- = --)------------' |
+-----------------------------End of Fortran 95------------------------------+
+---------------------------------Fortran 95---------------------------------+
+-----------------------------End of Fortran 95------------------------------+
Rules
Each INTERFACE statement must have a corresponding END INTERFACE statement.
+---------------------------------Fortran 95---------------------------------+
If a generic_spec appears in an END INTERFACE statement, it must match the corresponding generic_spec in an INTERFACE statement.
+-----------------------------End of Fortran 95------------------------------+
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) X
REAL Y(50,50), INVERSE
END FUNCTION
END INTERFACE OPERATOR(.INVERSE.)
+-----------------------------End of Fortran 95------------------------------+
Related Information