Como passar nomes de sub-rotinas como argumentos no Fortran?

Question

Sep 27, 2015, 05:46 PM

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.