Внутренние подпрограммы (процедуры и функции) по структуре и способу применения ничем не отличаются от внешних подпрограмм (п. 7.2). Однако, это не отдельная программная компонента, а составная часть главной программы или внешней подпрограммы. Хотя внутренние подпрограммы не могут иметь собственных внутренних подпрограмм, они имеют доступ ко всем объектам своего носителя, в том числе могут вызывать его другие внутренние подпрограммы (Пример 7.5).

Внутренние подпрограммы располагаются внутри своих носителей (главной программе или внешних подпрограммах) последовательно – одна за другой.

Последовательность внутренних подпрограмм находится в блоке операторов, сразу после оператора CONTAINS и закагчивается оператором END программной компоненты-носителя.

Пример 7.5. Пример внутренней подпрограммы.
program SUBPRG5
	real :: A=1., B=2., C
	print *, SUM(A, B)
	contains
	real function SUM(A, B)
		real :: A, B
		SUM = A + B
		return
	end
end
	

Цикл довузовской подготовки кафедры ЭФУ

ЛАБОРАТОРНЫЙ ПРАКТИКУМ: «ПРОГРАММИРОВАНИЕ НА ФОРТРАНЕ»

1. ПРАВИЛА ЗАПИСИ ПРОГРАММЫ

2. ТРАНСЛЯЦИЯ ПРОГРАММЫ

3. КОНЦЕПЦИЯ ДАННЫХ ЯЗЫКА ФОРТРАН

4. ВЫРАЖЕНИЯ И ПРЕОБРАЗОВАНИЕ ТИПОВ

5. УПРАВЛЯЮЩИЕ ОПЕРАТОРЫ

6. ВВОД/ВЫВОД ДАННЫХ

7. ПРОГРАММНЫЕ КОМПОНЕНТЫ И ЭЛЕМЕНТЫ ООП

7.3. Внутренние подпрограммы

Пример 7.5. Пример внутренней подпрограммы.

Copyright © Кафедра Электрофизических установок МИФИ, 2016 - 2024

ЛАБОРАТОРНЫЙ ПРАКТИКУМ:
«ПРОГРАММИРОВАНИЕ НА ФОРТРАНЕ»