Как псевдоним имени функции в Фортран

Не уверен, что название правильно поставлено. Предложения приветствуются.

Вот что я хочу сделать. Проверьте условие, а затем решите, какую функцию использовать в цикле. Например:

if (a < 0) then
    loop_func = func1
else
    loop_func = func2
endif

Я могу тогда использоватьloop_func в качестве указателя при написании моего цикла. Обе функции принимают абсолютно одинаковые входные данные и используют разные подходы к решению проблемы, основанные на значенииa, Это позволит мне иметь только один блок кода вместо двух почти идентичных блоков. Это может относиться и к подпрограммам.

Есть идеи, как это можно реализовать?

Спасибо.

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

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