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 в самом начале программы.

Пример:









Дата добавления: 2015-06-10; просмотров: 452; ЗАКАЗАТЬ НАПИСАНИЕ РАБОТЫ


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию, введите в поисковое поле ключевые слова и изучайте нужную вам информацию.

Поделитесь с друзьями:

Если вам понравился данный ресурс вы можете рассказать о нем друзьям. Сделать это можно через соц. кнопки выше.
helpiks.org - Хелпикс.Орг - 2014-2020 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.005 сек.