Как передать имена подпрограмм в качестве аргументов в Фортране?
Каков синтаксис для передачи имен подпрограмм в качестве аргументов? Схематично:
.
.
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.