Como passar nomes de sub-rotinas como argumentos no Fortran?
Qual é a sintaxe para passar nomes de sub-rotinas como argumentos? Esquematicamente:
.
.
call action ( mySubX ( argA, argB ) )
.
.
subroutine action ( whichSub ( argA, argB ) )
...
call subroutine whichSub ( argA, argB )
...
end subroutine action
O objetivo é tercall subroutine whichSub ( argA, argB )
agir comocall subroutine mySubX ( argA, argB )
. Minha preferência é evitar evitar passar um parâmetro de opção e, em seguida, usar SELECT CASE.