タイプオーバーロードのためのインターフェイスブロックの使用方法

Question

私は異なるテキストファイルを読むためにFortranコードを書いています。各テキストファイルには、一般的な操作を定義する抽象型から継承読み取り手順を定義して、独自の型を持つ：

module FileImporter_class 
implicit none 
private 
type, abstract, public :: FileImporter 
. 
. 
contains 
    procedure, public :: ProcessFile 
. 
. 
end type FileImporter 
contains 
. 
. 
subroutine ProcessFile(self,FileName) 
implicit none 
    ! Declaring Part 
    class(FileImporter) :: self 
    character(len=*) :: FileName 

    ! Executing Part 
    call self%SetFileName(FileName) 
    call self%LoadFileInMemory 
    call self%ParseFile 
end subroutine ProcessFile 
end module FileImporter_class 

ここでは、継承クラスです：

module optParser_class 
use FileImporter_class 
implicit none 
type, public, extends(FileImporter) :: optParser 
. 
. 
contains 
    procedure, public :: ParseFile 
end type optParser 
interface optParser 
    procedure ProcessFile 
end interface 
contains 
. 
. 
end module optParser_class 

私の質問は、インターフェースブロックについてです。単純に型を呼び出すことによって、ProcessFileプロシージャを呼び出すので、call optParser('inputfile.txt')です。表示されているこのバリアントは、コンパイルエラー（ProcessFile関数またはサブルーチンではありません）を示します。私はこれをoptParser_classモジュールにProcessFileという関数を入れて解決することができましたが、私が当然避けたいすべての継承クラスに対してこれを行う必要がありました。どのようにこれを行うための任意の提案？

Answer 1

タイプ名を多重定義するインタフェースブロックにサブルーチンを入れることは、Fortran標準で許可されていません。

このようなインターフェイスには関数のみを入れ、通常はその型のオブジェクト（コンストラクタまたは初期化子）を返すために使用されます。 optParserはFortranで、インスタンスなしで呼び出すことができます何のPythonのようなクラスメソッドはありません

call variable_of_optParser_type%ProcessFile('inputfile.txt') 

からFileImporterからそれを継承するため

代わりに、あなただけの、タイプが結合した手順としてそれを呼び出す必要があります。 ProcessFileにはselfという引数がありますので、にはにオブジェクトインスタンスがあります。

ところで、あなたのタイプが小文字か大文字かを問わず、混乱を避けるためにそれに固執するかどうか、1つの規約を作ることをお勧めします。