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