¿Cómo pasar nombres de subrutinas como argumentos en Fortran?
¿Cuál es la sintaxis para pasar nombres de subrutinas como argumentos? Esquemáticamente:
.
.
call action ( mySubX ( argA, argB ) )
.
.
subroutine action ( whichSub ( argA, argB ) )
...
call subroutine whichSub ( argA, argB )
...
end subroutine action
El objetivo es tenercall subroutine whichSub ( argA, argB ) actuar decall subroutine mySubX ( argA, argB ). Mi preferencia es evitar evitar pasar un parámetro de cambio y luego usar SELECT CASE.