Как передать имена подпрограмм в качестве аргументов в Фортране?

Каков синтаксис для передачи имен подпрограмм в качестве аргументов? Схематично:

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

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

Цель состоит в том, чтобы иметьcall subroutine whichSub ( argA, argB ) вести себя какcall subroutine mySubX ( argA, argB ), Я предпочитаю избегать передачи параметра switch, а затем использовать SELECT CASE.

Ответы на вопрос(2)

Ваш ответ на вопрос