facetModCONTAINS文TYPEで定義される構造体またはMODULEで定義されるモジュールはサブルーチンまたは関数をCONTAINS文以下に含めることが出来ます。facetModでCONTAINSされているprint_facetが呼び出されることになります。構造体自身を引数で渡すサブルーチンprint_facetの引数はFACET構造体型のthisです。構造体自身のデータが引数になっています。INTENT(INOUT)が指定されているのは、このサブルーチン内部での引数処理で引数の値を取得して、さらに呼び出し側に返すことを意味しています。ここはINTENT(IN)でも動作します。構造体で定義されたメンバー(変数、関数、サブルーチン)には構造体名に「%」を付けて参照します。引数thisで参照しているFACET構造体のメンバであるPOINT構造体型のpt配列を参照するにはthis%pt(1)のように記述します。zを参照する場合this%pt(1)%xthis%pt(1)%ythis%pt(1)%zのように記述します。afacet%printなどのように参照できます。グループとしての小さくても素晴らしい会社」を目指しています。ソフト開発や誘電率測定システム、自社開発による技術コンサルタントなど。