DIMENSION C1(100)

READ(*,*)A1,B1,C1

CALL SUB1(A1,B1,C1,RE1,RE2,SIN,COS,*25,*35)

исходные результаты имена метки

данные функций

…

…

25 IF(RE1.GT…)…

…

…

35 DO 8 J=1,N …

…

…

На метки 25 и 35 передаётся управление, когда выход из подпрограммы осуществляется по RETURN 1 или RETURN 2. Передача происходит через список формальных – фактических параметров. В качестве фактических параметров могут быть имена функций, которые передаются в подпрограмму при каждом новом обращении к подпрограмме. Эти имена функций могут меняться. В подпрограмме эти имена функций могут иметь совершенно другие названия (например, FUN1, FUN2). В подпрограммах их необходимо использовать как функции.

Например:

REZ1=FUN1(A)+SQRT(FUN2(B))

Правило:

Если при обращении к подпрограмме в списке фактических параметров указано имя функции, то это имя функции должно быть описано в головной программе в операторе EXTERNAL в самом начале программы.

Пример: