Wie übergebe ich Unterprogrammnamen als Argumente in Fortran?

Question

Sep 27, 2015, 05:46 PM

Wie übergebe ich Unterprogrammnamen als Argumente in Fortran?

Wie lautet die Syntax für die Übergabe von Unterprogrammnamen als Argumente? Schematisch

  .
  .
call action ( mySubX ( argA, argB ) )
  .
  .

subroutine action ( whichSub ( argA, argB ) )
  ...
call subroutine whichSub ( argA, argB )
  ...
end subroutine action

Das Ziel ist es, @ zu habcall subroutine whichSub ( argA, argB ) fungieren alscall subroutine mySubX ( argA, argB ). Ich möchte vermeiden, dass ein Schalterparameter übergeben wird, und dann SELECT CASE verwenden.