Fortran для персонального компьютера

встроенную функцию в качестве параметра. Каждое опреде-

^ ° ? х ^ ьзователем имя должно указываться в операторе только один раз. Имя, указанное в операторе

INTRINSIC, не может быть указано в операторе EXTERNAL. Все имена, используемые в операторе INTRINSIC, должны быть именами встроенных функции, ’’известных системе” Список этих функций приведен в главе 5.

ПРИМЕР

INTRINSIC SIN, COS rezult = Calc2 (SIN, COS)

4.2.9Описание именованных констант.

Оператор PARAMETER.

ДЕЙСТВИЕ

Задаст константе символическое имя.

СИНТАКСИС

PARAMETER (<name>=<expression> [ ,<name>=<expression> ]...) где <name> — Символическое имя.

<cxpression> — Выражение. Выражение <cxpression> мо­ жет включать только символические имена, если они ранее определены в операторе PARAMETER в том же программном модуле. Если выражение есть символьная константа, она мо­ жет содержать не более 1957 байт.

ЗАМЕЧАНИЯ

Если тип выражения <expression> отличается от типа имени <лаше>, то любые операции преобразования типов вы­ полняются автоматически.

В отличие от оператора DATA (объявляет начальное значение для переменной) оператор PARAMETER устанав­ ливает фиксированные значения для символических кон­ стант. Любая попытка изменить символическую константу при помощи оператора присваивания или оператора READ приведет к ошибке этапа компиляции. Символическое имя не может иметь структурный тип и может не указываться в спе­ цификации формата.

ПРИМЕР

PARAMETER (nblocks= 10)

REAL mass

PARAMETER (mass = 47.3, pi = 3.14159)

4.2.10Описание автоматических переменных.

Оператор AUTOMATIC.

ДЕЙСТВИЕ

Объявление специфицируемых переменных как нахо дящихся в стеке, а не как размещенных в статической ооласти памяти.

СИНТАКСИС

AUTOMATIC [<names>]

где <names> — Список переменных или имен массивов, кото­ рые определены как "автоматические”. Если указано более одной переменной, то они разделяются запятыми.

ЗАМЕЧАНИЯ

В языке ФОРТРАН фирмы Microsoft все переменные определены по умолчанию как статические.

Переменная, объявленная как "автоматическая", зани­ мает фиксированное место в памяти; раздел стека памяти вы­ деляется для переменной при необходимости. Автоматические переменные внутри процедуры "отбрасываются" при завер­ шении ее выполнения. Поэтому, для таких переменных не гарантируется, что они будут иметь то же самое значение, что и при следующей активизации процедуры.

Если оператор AUTOMATIC не содержит ни одного име­ ни переменной, то все переменные внутри этого программного модуля (головной программы или отдельной подпрограммы), которые могут быть автоматическими, будут автоматически­ ми неявно.

В операторе AUTOMATIC не разрешено использовать имена блоков общего пользования и имена общих переменных.

Переменная не может указываться одновременно в опе­ раторах SAVE и AUTOMATIC.

Переменные с атрибутами ALLOCATABLE, EXTERNAL, FAR или HUGE не могут быть автоматическими.

Переменная, которая была явно описана как автома­ тическая, не может появляться в операторе DATA. Перемен­ ные. являющиеся автоматическими явно и появляющиеся в операторе DATA, будут инициализироваться и помещаться в статическую память.

Формальные параметры и имена процедур не могут ука­ зываться в операторе AUTOMATIC.

Возможность объявления автоматических переменных реализована для поддержки приложений, функционирующих в среде операционной системы OS/2.

ПРИМЕР В данном примере все переменные внутри программного

модуля являются автоматическими, за исключением "dark" и "lois". Они явно объявлены в операторе SAVE и поэтому разме­ щаются в статической памяти:

INTEGER FUNCTION Fibonacci (dark, lois) AUTOMATIC

SAVE dark, lois

CM. ТАКЖЕ Оператор SAVE.

4.2.11Описание сохраняемых переменных.

Оператор SAVE.

ДЕЙСТВИЕ

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

СИНТАКСИС

SAVE [<names>]

где <names> — одно или более имен общих блоков (заключены в слэши), переменных или массивов. Если указывается не­ сколько имен, то они должны быть разделены запятыми. После сохранения поименованные переменные и все переменные в поименованном общем блоке имеют заданные значения, если текущая процедура активизируется повторно.

По умолчанию в качестве значений <names> принима­ ются имена всех элементов, используемых в текущем прог­ раммном модуле.

ЗАМЕЧАНИЯ

Оператор SAVE не позволяет многократно указывать: —элементы; —имена формальных параметров; —имена процедур;

—имена объектов в общем блоке,

—имена, указываемые в операторе AUTOMATIC.

Общий блок, сохраняемый в одной процедуре (функ^ ции) исполняемой программы, должен сохраняться в каждой процедуре (функции), ’’содержащей" данный общий блок в исполняемой программе.

ПРИМЕЧАНИЕ

В языке ФОРТРАН все переменные сохраняются по умолчанию. Оператор SAVE обеспечивает возможность сде­ лать программу переносимой.

СМ. ТАКЖ Е

Оператор AUTOMATIC.

4.3 Вставка содержимого заданного файла. Оператор INCLUDE.

ДЕЙСТВИЕ

Выполняется вставка содержимого специфицированно­ го текстового файла в позиции оператора INCLUDE.

где <filcname> — Имя текстового файла на языке ФОРТРАН, включаемого в программу (заключается в апострофы).

а.? Д ^ ? 4 ^ ^ ы9чМассивы не могут появляться в операто­ рах AUTOMATIC, COMMON, DATA или EQUIVALENCE.

Попытка переразметить ранее размещенный массив приводит к ошибке этапа исполнении. Любая неудача при вы­ полнении операции размещения приводит к ошибке этапа ис­ полнения, если, однако, нс задана опция STAT=. Переменная <ierr> возвращает значение ноль, если операция размещения

была выполнена успешно; в противном случае возвращается номер ошибки этапа исполнения.

4.4.2Освобождение использованной памяти.

Оператор DEALLOCATE.

ДЕЙСТВИЕ

Освобождение области памяти, ранее зарезервирован­ ной при помощи оператора ALLOCATE.

СИНТАКСИС

DEALLOCATE(<arravlist> [,STAT = <icrr> ])

где <arraylist> — Список имен размещаемых массивов; если указано несколько имен, то они разделяются запятыми.

<ierr> — Целочисленная переменная, возвращающая ста­ тус попытки переразмещения.

ЗАМЕЧАНИЯ Попытка переразмсстить массив, который не был ранее

размещен, приводит к возникновению ошибки этапа испол­ нения. Любая ошибка при переразмещении вызывает ошибку этапа исполнения, если, однако, не указан параметр STAT=. Переменная <ierr> возвращает значение 0, если операция пе­ реразмещения была выполнена успешно; в противном случае возвращается номер ошибки этапа исполнения.

Если на. размещаемый массив задается ссылка в тот мо­ мент, когда он нс является размещенным, результаты могут оказаться непредсказуемыми.

ПРИМЕР

INTEGER dataset!ALLOCATABLE ] INTEGER reactor, level, points, error DATA reactor, level, points /10, 50, 10/

ALLOCATE (datasct( 1rreactor, 1ilevcf, 1:points), STAT = error)

DEALLOCATE (dataset, STAT = error)

4.5Операторы управления.

4.5.1Структурный условный оператор.. Оператор IF THEN ELSE (блочный оператор IF/.

ДЕЙСТВИЕ Начинает выполнение операторов в блоке Тг, если вы-

ражение.<схргс58юп> вычисляется Со значснием '’истина'’- пе­ редает управление в следующий ELSE', ELSE IF или END 1г