目的
END INTERFACE ステートメントはプロシージャー・ インターフェース・ブロックを終了させます。
構文
>>- END INTERFACE--+-------------------+---------------------->< | (1) | '-generic_spec------'
注:
|
+---------------------------------Fortran 95---------------------------------+
>>-+-generic_name---------------------+------------------------>< +-OPERATOR--(--defined_operator--)-+ '-ASSIGNMENT--(-- = --)------------' |
+-----------------------------End of Fortran 95------------------------------+
+---------------------------------Fortran 95---------------------------------+
+-----------------------------End of Fortran 95------------------------------+
規則
INTERFACE ステートメントにはそれぞれ、対応 する END INTERFACE ステートメントが必要です。
END INTERFACE ステートメントに generic_spec を指定しない場合、generic_spec の あるなしに関係なく、すべての INTERFACE ステートメントと一致させることができます。
+---------------------------------Fortran 95---------------------------------+
END INTERFACE ステートメント内 の generic_spec が generic_name である場合、 対応する INTERFACE ステートメントの generic_spec は、 同じ generic_name でなければなりません。
END INTERFACE ステートメント内 の generic_spec が OPERATOR(defined_operator) である場合、 対応する INTERFACE ステートメントの generic_spec は、 同じ OPERATOR(defined_operator) でなければなりません。
END INTERFACE ステートメント内 の generic_spec が ASSIGNMENT(=) である場合、 対応する INTERFACE ステートメントの generic_spec は、 同じ ASSIGNMENT(=) でなければなりません。
+-----------------------------End of Fortran 95------------------------------+
例
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------------------------------+
関連情報