http://comp.chem.tohoku.ac.jp/mediawiki/index.php?action=history&feed=atom&title=%E6%8B%A1%E5%BC%B5%E6%A7%8B%E9%80%A0%E4%BD%93%E3%82%92%E4%BD%BF%E3%81%A3%E3%81%9F%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%9F%E3%83%B3%E3%82%B0%E3%81%AB%E3%81%8A%E3%81%91%E3%82%8B%E5%95%8F%E9%A1%8C%E3%81%A8%E8%A7%A3%E6%B1%BA%E7%AD%96 2026-09-07T15:02:42Z このウィキのこのページに関する変更履歴 MediaWiki 1.36.2 http://comp.chem.tohoku.ac.jp/mediawiki/index.php?title=%E6%8B%A1%E5%BC%B5%E6%A7%8B%E9%80%A0%E4%BD%93%E3%82%92%E4%BD%BF%E3%81%A3%E3%81%9F%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%9F%E3%83%B3%E3%82%B0%E3%81%AB%E3%81%8A%E3%81%91%E3%82%8B%E5%95%8F%E9%A1%8C%E3%81%A8%E8%A7%A3%E6%B1%BA%E7%AD%96&diff=1131&oldid=prev 2026-05-26T04:21:33Z

<p>ページの作成:「Fortran で拡張構造体を利用する場合、言語仕様に伴ういくつかの困難が存在する。 本ページではそれらについて示すとともに…」</p> <p><b>新規ページ</b></p><div>Fortran で拡張構造体を利用する場合、言語仕様に伴ういくつかの困難が存在する。<br /> 本ページではそれらについて示すとともに、現状での解決策等を提示する。<br /> <br /> == 同クラス内での代入 ==<br /> 問題点：拡張後の構造体に拡張前の構造体を代入することができない。<br /> <br /> 例：<br /> type aaa<br /> integer :: bbb<br /> endtype<br /> <br /> type,extends(aaa) :: aaa_ex<br /> integer :: ccc<br /> endtype<br /> とした場合に aaa_ex = aaa がエラーとなる。<br /> <br /> 解決策：ユーザー定義代入を定義する。<br /> <br /> 例:<br /> type aaa<br /> integer :: bbb<br /> endtype<br /> <br /> type,extends(aaa) :: aaa_ex<br /> integer :: ccc<br /> contains<br /> '''generic :: assignment(=) =&gt; equal'''<br /> '''procedure :: equal'''<br /> endtype<br /> <br /> subroutine equal(out,in)<br /> implicit none<br /> class(aaa),intent(inout) :: out<br /> !!! intent(inout) 指定は必須。<br /> !!! そうしないと代入時に ccc が未定義となる。<br /> type(aaa),intent(in) :: in<br /> <br /> out%aaa = in%aaa<br /> !!! 各成分ごとの代入が必要。<br /> !!! out = in では subroutine equal の再起呼び出しとなってしまう。<br /> !!! この解決策はメンバ変数が多い場合に問題となる。<br /> <br /> endsubroutine<br /> <br /> <br /> == オーバーロード時の元関数呼び出し ==<br /> 問題点：プロシージャのオーバーロード時に元のプロシージャが呼び出せなくなる。 <br /> <br /> 例：<br /> module aaa_module<br /> implicit none<br /> <br /> type aaa<br /> contains<br /> procedure :: sub<br /> endtype<br /> <br /> ...<br /> <br /> endmodule<br /> <br /> module aaa_ex_module<br /> use aaa_module,only: aaa<br /> implicit none<br /> <br /> type,extends(aaa) :: aaa_ex<br /> contains<br /> procedure :: sub !!! オーバーロード<br /> endtype<br /> <br /> contains<br /> <br /> subroutine sub(self)<br /> implicit none<br /> class(aaa_ex) :: self<br /> <br /> '''元の sub を呼べない。'''<br /> <br /> endsubroutine<br /> <br /> endsubroutine <br /> <br /> 解決策：オーバーロードする関数を generic とし、元の sub を呼び出す場合は詳細なプロシージャ名を指定する。<br /> <br /> 例:<br /> module aaa_module<br /> implicit none<br /> <br /> type aaa<br /> contains<br /> '''generic :: sub =&gt; sub_original'''<br /> '''procedure :: sub_original'''<br /> endtype<br /> <br /> ...<br /> <br /> endmodule<br /> <br /> module aaa_ex_module<br /> implicit none<br /> <br /> type,extends(aaa) :: aaa_ex<br /> contains<br /> '''generic :: sub =&gt; sub_ex''' !!! オーバーロード<br /> '''procedure :: sub_ex'''<br /> endtype<br /> <br /> contains<br /> <br /> subroutine sub_ex(self)<br /> implicit none<br /> class(aaa_ex) :: self<br /> <br /> '''call self%sub_original()'''<br /> <br /> ...<br /> <br /> endsubroutine<br /> <br /> endsubroutine</div>

Hirano