>>261
すみません・・・

これがエラーメッセージです。

実行時エラー: ../sorcefile(先生）/HTHDFE.f90(1): THDFEにおいて存在しないもしくは誤った引用仕様ブロックです - 仮引数X（第3番目）は割付け配列です
致命的なエラーでプログラムが終了しました

サブルーチン（THDFE)側のほうでエラーメッセージがでます。