Немнюгин С.А. Средства программирования для многопроцессорных вычислительных систем
Подождите немного. Документ загружается.
81
Таблица 5.
Операторы
описания
и
инициализации
данных
Оператор Описание
MODULE PROCEDURE список_имен_модульных_процедур
Оператор
декларации
модульных
процедур
тип[[,атрибут][,атрибут…]….::]список_объектов
где тип выбирается из списка:
INTEGER[(KIND=]параметр_разновидности_типа)]
REAL[(KIND=]параметр_разновидности_типа)]
LOGICAL[(KIND=]параметр_разновидности_типа)]
COMPLEX[(KIND=]параметр_разновидности_типа)]
CHARACTER[список_параметров_типа]
DOUBLE[ ]PRECISION]
TYPE(имя_типа)
и атрибуты — совместимая комбинация из следующих значений:
PARAMETER, PUBLIC, PRIVATE, POINTER, TARGET,
ALLOCATABLE, DIMENSION(список_экстентов),
INTENT(параметр_входа/выхода), EXTERNAL,
INTRINSIC, OPTIONAL, SAVE
Оператор
описания
TYPE[, атрибут_доступа ::]имя_производно
го_типа
атрибут_доступа — PUBLIC или PRIVATE
Оператор
определения
производного
типа
,
заголовок
END[ ]TYPE[ имя_типа]
Оператор
определения
производного
типа
:
завершение
IMPLICIT список, где список — это тип(список-
букв)[,
тип(список_букв)]… или NONE
Оператор
определения
правил
неявной
типизации
ALLOCATABLE [::] имя_массива[(список_экстентов)][,
имя_массива[(список_экстентов)]…]
Оператор
назначения
атрибута
ALLOCATABLE
DIMENSION имя_массива(список_экстентов)[,
имя_массива(список_экстентов)…]
Оператор
спецификации
массивов
PARAMETER
(список_определений_именованных_констант)
Оператор
определения
именованных
констант
EXTERNAL список_внешних_имен
Оператор
назначения
атрибута
EXTERNAL
INTRINSIC список_встроенных_имен
Оператор
назначения
атрибута
INTRINSIC
INTENT(параметр_входа/выхода)
список_формальных_параметров
Оператор
назначения
атрибута
INTENT
OPTIONAL список_формальных_параметров
Оператор
назначения
атрибута
OPTIONAL
82
Таблица 5.
(
Продолжение
)
SAVE[[::]список_сохраняемых_объектов]
Оператор
назначения
атрибута
SAVE
COMMON /[имя_общего_блока]/список_переменных[,
/имя_общего_блока/список_переменных….]
Оператор
описания
блока
общей
памяти
DATA список_объектов/список_значений/[,
список_объектов/список_значений/…]
Оператор
инициализации
объектов
FORMAT([список_дескрипторов])∗
Оператор
спецификации
формата
преобразования
данных
при
операциях
ввода
/
вывода
Таблица 6.
Операторы
передачи
управления
Оператор Описание
END[ PROGRAM[ имя_программы]]
Оператор
завершения
главной
программы
END[ подпрограмма[ имя_подпрограммы]] где
подпрограмма — SUBROUTINE или FUNCTION
Оператор
завершения
подпрограммы
CALL
имя_подпрограммы[(список_фактических_парамет
ров)]
Оператор
передачи
управления
подпрограмме
-
процедуре
RETURN
Оператор
возврата
управления
вызывающему
компоненту
программы
STOP[ сообщение]
Оператор
останова
программы
Таблица 7.
Операторы
присваивания
Оператор Описание
переменная = выражение
Оператор
присваивания
для
скалярных
и
массивоподобных
объектов
ссылка => адресат
Оператор
прикрепления
ссылки
к
адресату
83
Таблица 8.
Управляющие
конструкции
и
условные
операторы
Оператор Описание
IF(скалярное_логическое_выражение)
исполняемый_оператор
Условный
оператор
WHERE(логическое_выражение_массив)
массив_переменная = выражение_массив
Условное
присваивание
для
массивов
[if_имя:]
IF(скалярное_логическое_выражение) THEN
ELSE[[ ]IF(скалярное_логическое_выражение)
THEN[ if_имя]
END[ ]IF[ if_имя]
Конструкция
ветвления
IF_THEN_ELSE
WHERE(логическое_выражение_массив)
ELSEWHERE
END[ ]WHERE
Конструкция
ветвления
в
присваивании
массивов
[select_имя:] SELECT[ ]CASE
(скалярное_выражение)
CASE (список_возможных_значений)[
select_имя]
CASE DEFAULT[ select_имя]
END[ ]SELECT[ select_имя]
Конструкция
SELECT
GO[ ]TO метка
Оператор
перехода
[do_имя:] DO[ метка] переменная =
скалярное_целое_выражение1,
скалярное_целое_выражение2[,
скалярное_целое_выражение3]
Заголовок
оператора
цикла
[do_имя:] DO[ метка] [,]
WHILE(скалярное_лог_выражение)
Заголовок
оператора
цикла
в
альтернативной
форме
CYCLE[ do_имя]
Оператор
перехода
к
оператору
завершения
цикла
с
именем
do_имя
EXIT[ do_имя]
Оператор
выхода
из
цикла
с
именем
do_имя
CONTINUE
Оператор
перехода
к
следующему
шагу
цикла
END[ ]DO[ do_имя]
Оператор
завершения
цикла
с
именем
do_имя
Таблица 9.
Операторы
управления
динамической
памятью
Оператор Описание
ALLOCATE(список_выделяемых_объектов[,
STAT=статус])
Оператор
выделения
динамической
памяти
для
выделяемых
объектов
DEALLOCATE(список_выделенных_объектов[,
STAT=статус])
Оператор
освобождения
динамической
памяти
от
выделенных
объектов
84
Таблица 10.
Операторы
ввода
-
вывода
Оператор Описание
READ(список_управления_вводом) [список_ввода]
READ формат[, список_ввода]
Оператор
чтения
данных
WRITE(список_управления_выводом)
[список_вывода]
Оператор
записи
данных
PRINT формат[, список_вывода]
Оператор
вывода
данных
на
устройство
стандартного
вывода
OPEN(список_спецификаций)
Оператор
соединения
файла
с
логическим
устройством
ввода
-
вывода
CLOSE(список_спецификаций)
Оператор
закрытия
файла
Таблица 11.
Встроенные
подпрограммы
Имя подпрограммы Возвращаемое значение или
производимое действие
ABS(A)
Абсолютная
величина
ACHAR(I)
I-
ый
символ
сортирующей
последовательности
ASCII
ACOS(X)
Арккосинус
в
радианах
AIMAG(Z)
Мнимая
часть
комплексного
числа
AINT(A[, KIND])
Усечение
до
целого
ALLOCATED(ARRAY)
Проверка
выделенности
динамического
массива
ANINT(A [, KIND])
Ближайшее
целое
ASIN(X)
Арксинус
в
радианах
ATAN(X)
Арктангенс
в
радианах
ATAN2(Y, X)
Аргумент
комплексного
числа
CALL DATE_AND_TIME([DATE][,T
IME]
[,ZONE] [,VALUES])
Считывание
времени
и
даты
с
часов
реального
времени
CALL RANDOM_NUMBER(HARVEST)
Случайное
число
в
интервале
[0,1)
CALL RANDOM_SEED([SIZE] [,PUT][,GET])
Получение
/
назначение
затравочного
массива
CALL SYSTEM_CLOCK([COUNT]
[,COUNT_RATE] [,COUNT_MAX])
Целочисленный
отсчет
часов
реального
времени
CEILING(A)
Наименьшее
целое
не
меньшее
аргумента
CHAR(I [, KIND]) и ICHAR(C)
I
-
ый
символ
в
сортирующей
последовательности
процессора
85
CMPLX(X [, Y] [, KIND])
Конструктор
комплексного
числа
CONJG(Z)
Комплексное
сопряжение
COS(X)
Косинус
COSH(X)
Гиперболический
косинус
COUNT(MASK [, DIM])
Число
элементов
массива
,
имеющих
значение
"
истина
"
CSHIFT(ARRAY, SHIFT [, DIM])
Циклический
сдвиг
элементов
массива
DIGITS(X)
Число
значащих
цифр
в
модели
представления
аргумента
DOT_PRODUCT(VECTOR_A, VECTOR_B)
Скалярное
произведение
векторов
DPROD(X, Y)
Умножение
с
двойной
точностью
EOSHIFT(ARRAY, SHIFT [, BOUNDARY] [,
DIM])
Вытесняющий
сдвиг
элементов
массива
EPSILON(X)
Наименьшее
число
в
модели
представления
аргумента
,
не
пренебрежимое
по
сравнению
с
единицей
EXP(X)
Экспонента
EXPONENT(X)
Степенная
часть
в
модели
представления
аргумента
FLOOR(A)
Наименьшее
целое
,
не
превышающее
аргумент
FRACTION(X)
Дробная
часть
в
модели
представления
аргумента
HUGE(X)
Наибольшее
число
в
модели
представления
аргумента
IACHAR(С)
Индекс
символа
-
аргумента
в
сортирующей
последовательности
ASCII
IAND(I, J)
Побитовое
логическое
И
IBCLR(I, POS)
Установка
нуля
в
заданном
бите
IBITS(I, POS, LEN)
Извлечение
цепочки
битов
IBSET(I, POS)
Установка
единицы
в
заданном
бите
ICHAR(C)
Индекс
символа
-
аргумента
в
сортирующей
последовательности
процессора
IEOR(I, J)
Побитовое
ИСКЛЮЧАЮЩЕЕ
ИЛИ
INDEX(STRING, SUBSTRING [,BACK])
Индекс
начала
подстроки
в
строке
INT(A [, KIND])
Приведение
к
целому
типу
IOR(I, J)
Побитовое
логическое
ИЛИ
86
Таблица 11.
(
Продолжение
)
ISHIFT(I, SHIFT)
Логический
сдвиг
битов
ISHIFTC(I, SHIFT [, SIZE])
Логический
циклический
сдвиг
части
битов
вправо
KIND(X)
Разновидность
типа
аргумента
LBOUND(ARRAY [, DIM])
Нижняя
граница
массива
LEN(S)
Длина
текстового
аргумента
LEN_TRIM(STRING)
Длина
строки
без
учета
конечных
пробелов
LOG(X)
Натуральный
логарифм
LOG10(X)
Десятичный
логарифм
LOGICAL(L [, KIND])
Приведение
к
заданной
разновидности
логического
типа
MATMUL(MATRIX_A, MATRIX_B)
Перемножение
матриц
MAX(A1, A2 [, A3, …..])
Выбор
максимального
аргумента
MAXLOC(ARRAY [, MASK])
Индекс
наибольшего
элемента
массива
MAXVAL(ARRAY [, DIM ] [,MASK])
Наибольший
элемент
массива
MIN(A1, A2 [, A3, …..])
Выбор
минимального
аргумента
MINLOC(ARRAY [, MASK])
Индекс
наименьшего
элемента
массива
MINVAL(ARRAY [, DIM ] [,MASK])
Наименьший
элемент
массива
MOD(A, P)
Остаток
от
деления
по
модулю
MODULO(A, P)
Деление
по
модулю
NINT(A [, KIND])
Ближайшее
целое
NOT(I)
Побитовое
логическое
дополнение
PRECISION(X)
Десятичная
точность
в
модели
представления
аргумента
PRESENT(A)
Проверка
присутствия
необязательного
аргумента
PRODUCT(ARRAY [, DIM] [,MASK])
Произведение
элементов
массива
REAL(A [, KIND])
Приведение
к
вещественному
типу
RESHAPE(SOURCE, SHAPE [,PAD] [,
ORDER])
Изменение
формы
массива
SCAN(STRING,SET[,BACK])
Индекс
крайнего
символа
строки
STRING
в
наборе
SET
SELECTED_INT_KIND(R)
Параметр
разновидности
целого
типа
для
заданного
степенного
диапазона
87
Таблица 11.
(
Продолжение
)
SELECTED_REAL_KIND([P][,R])
Параметр
разновидности
вещественного
типа
для
заданной
точности
и
/
или
заданного
степенного
диапазона
SHAPE(SOURCE)
Форма
аргумента
SIGN(A, B)
Абсолютное
значение
A
со
знаком
B
SIN(X)
Синус
SINH(X)
Гиперболический
синус
SIZE(ARRAY[,DIM])
Размер
массива
SQRT(X)
Квадратный
корень
SUM(ARRAY[,DIM][,MASK])
Сумма
элементов
массива
TAN(X)
Тангенс
TANH(X)
Гиперболический
тангенс
TINY(X)
Наименьшее
положительное
число
в
модели
представления
аргумента
TRANSPOSE(MATRIX)
Транспонирование
матрицы
UBOUND(ARRAY [, DIM])
Верхняя
граница
массива
88
V. Литература
1.
С
.
Немнюгин
,
О
.
Стесик
,
Параллельное
программирование
для
многопроцессорных
вычислительных
систем
. "
БХВ
",
Санкт
-
Петербург
, 2002
г
., 396
с
.
2.
В
.
В
.
Воеводин
,
Вл
.
В
.
Воеводин
,
Параллельные
вычисления
. "
БХВ
",
Санкт
-
Петербург
,
2002
г
., 599
с
.
3.
С
.
Немнюгин
,
О
.
Стесик
,
Современный
Фортран
.
Самоучитель
. "
БХВ
",
Санкт
-
Петербург
, 2004
г
., 481
с
.