Информационные системы ускорителей

ВВЕДЕНИЕ В ФОРТРАН

Как пользоваться этим руководством.

Концепция данных Фортрана.

Типы и буквальные константы.

Имена (идентификаторы).

Переменные и константы.

Скаляры и массивы.

Именование данных.

Печать текста и чисел на экран.

Hello World!

Печать целых чисел.

Печать вещественных чисел.

Печать текста.

Когда format предпочтительней.

Арифметические и текстовые выражения.

Арифметические операторы и правила.

Вещественная арифметика.

Целая арифметика.

Смешанная арифметика.

Текстовые выражения.

Инициализация переменных и констант.

Оператор присваивания.

Инициализация скалярных констант.

Инициализация массивов констант.

Ввод данных с клавиатуры.

DATA-инициализация скалярных переменных.

DATA-инициализация массивов переменных.

Условные опреаторы.

Логические выражения.

Оператор IF.

Конструкция IF.

Конструкция CASE.

Циклы.

Цикл с фиксированным числом повторений.

Цикл с выходом по условию.

Пресловутый GOTO.

Неявные циклы.

Процедуры и функции.

Подпрограммы-процедуры.

Подпрограммы-функции.

Комплексный пример: сортировка массива.

Встроенные функции Фортрана.

Работа с внешними файлами.

Файловый ввод/вывод.

Открытие/закрытие файла.

Позиционирование файла.

ВСТРОЕННЫЕ ФУНКЦИИ ФОРТРАНА.

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


ПРЕОБРАЗОВАНИЕ ТИПОВ.

ИМЯТИПТИП АРГУМЕНТА
INT(X)INTEGERREAL
IDINT(X)INTEGERCHARACTER
ICHAR(X)INTEGERREAL
FLOAT(X)REALINTEGER
CHAR(X)CHARACTERREAL, INTEGER, DOUBLE PRECISION
DBLE(X)DOUBLE PRECISIONREAL, INTEGER
CMPLX(X)COMPLEXREAL, INTEGER

ВЗЯТИЕ ЦЕЛОЙ ЧАСТИ.

ИМЯТИПТИП АРГУМЕНТА
AINT(X) REAL REAL
DINT(X) DOUBLE PRECISION DOUBLE PRECISION

ОКРУГЛЕНИЕ.

ИМЯТИПТИП АРГУМЕНТА
ANINT(X)REALREAL
DNINT(X)DOUBLE PRECISIONDOUBLE PRECISION

ОКРУГЛЕНИЕ С ПЕРЕВОДОМ В ЦЕЛОЕ.

ИМЯТИПТИП АРГУМЕНТА
NINT(X)INTEGER REAL
IDNINT(X) INTEGER DOUBLE PRECISION

ВЗЯТИЕ АБСОЛЮТНОЙ ВЕЛИЧИНЫ (МОДУЛЯ ЧИСЛА).

ИМЯТИПТИП АРГУМЕНТА
IABS(X)INTEGER INTEGER
ABS(X) REALREAL
DABS(X) DOUBLE PRECISION DOUBLE PRECISION
CABS(X) REAL

ВЗЯТИЕ ОСТАТКА: X - INT(X/ Y)* Y

ИМЯТИПТИП АРГУМЕНТА
MOD(X, Y) INTEGERINTEGER
AMOD(X, Y) REALREAL
DMOD(X, Y) DOUBLE PRECISION DOUBLE PRECISION

ПЕРЕДАЧА ЗНАКА:X умножается на знак Y

ИМЯТИПТИП АРГУМЕНТА
ISIGN(X, Y) INTEGER INTEGER
SIGN(X, Y) REAL REAL
DSIGN(X, Y) DOUBLE PRECISION DOUBLE PRECISION

ПОЛОЖИТЕЛЬНАЯ РАЗНОСТЬ.
Возвращает X - Y, если эта разность больше нуля, иначе - ноль.

ИМЯТИПТИП АРГУМЕНТА
IDIM(X, Y) INTEGER INTEGER
DIM(X, Y) REAL REAL
DDIM(X, Y) DOUBLE PRECISION DOUBLE PRECISION

ПОИСК НАИБОЛЬШЕЙ (НАИМЕНЬШЕЙ) ВЕЛИЧИНЫ.
Возвращает максимальное (минимальное) значение из списка.

ИМЯТИПТИП АРГУМЕНТА
MAX(X1, X2, и т.д.) INTEGER, REAL, DOUBLE PRECISION INTEGER, REAL, DOUBLE PRECISION
MIN(X1, X2, и т.д.) INTEGER, REAL, DOUBLE PRECISION INTEGER, REAL, DOUBLE PRECISION

МНИМАЯ ЧАСТЬ КОМПЛЕКСНОГО ЧИСЛА.

ИМЯТИПТИП АРГУМЕНТА
AIMAG(X) REAL COMPLEX

СОПРЯЖЕННОЕ КОМПЛЕКСНОЕ ЧИСЛО.

ИМЯТИПТИП АРГУМЕНТА
CONYG(X) COMPLEX COMPLEX

КВАДРАТНЫЙ КОРЕНЬ.

ИМЯТИПТИП АРГУМЕНТА
SQRT(X) REAL REAL
DSQRT(X) DOUBLE PRECISION DOUBLE PRECISION
CSQRT(X) COMPLEX COMPLEX

ЕКСПОНЕНТА.

ИМЯТИПТИП АРГУМЕНТА
EXP(X)REAL REAL
DEXP(X) DOUBLE PRECISION DOUBLE PRECISION
CEXP(X) COMPLEXCOMPLEX

НАТУРАЛЬНЫЙ ЛОГАРИФМ.

ИМЯТИПТИП АРГУМЕНТА
ALOG(X) REAL REAL
DLOG(X) DOUBLE PRECISION DOUBLE PRECISION
CLOG(X) COMPLEX COMPLEX

ДЕСЯТИЧНЫЙ ЛОГАРИФМ.

ИМЯТИПТИП АРГУМЕНТА
ALOG10(X) REAL REAL
DLOG10(X) DOUBLE PRECISION DOUBLE PRECISION

ТРИГОНОМЕТРИЧЕСКИЕ ФУНКЦИИ. Синус, косинус, тангенс.

ИМЯТИПТИП АРГУМЕНТА
SIN(X) REAL REAL
DSIN(X) DOUBLE PRECISION DOUBLE PRECISION
CSIN(X) COMPLEX COMPLEX
COS(X) REAL REAL
DCOS(X) DOUBLE PRECISION DOUBLE PRECISION
CCOS(X) COMPLEX COMPLEX
TAN(X) REAL REAL
DTAN(X) DOUBLE PRECISION DOUBLE PRECISION

ОБРАТНЫЕ ТРИГОНОМЕТРИЧЕСКИЕ ФУНКЦИИ. Арксинус, арккосинус, арктангенс.

ИМЯТИПТИП АРГУМЕНТА
ASIN(X) REAL REAL
DASIN(X) DOUBLE PRECISION DOUBLE PRECISION
ACOS(X) REAL REAL
DACOS(X) DOUBLE PRECISION DOUBLE PRECISION
ATAN(X) REAL REAL
DATAN(X) DOUBLE PRECISION DOUBLE PRECISION

ГИПЕРБОЛИЧЕСКИЕ ФУНКЦИИ. Гиперболический синус, гиперболический косинус, гиперболический тангенс.

ИМЯТИПТИП АРГУМЕНТА
SINH(X)REAL REAL
DSINH(X)DOUBLE PRECISION DOUBLE PRECISION
COSH(X)REAL REAL
DCOSH(X)DOUBLE PRECISION DOUBLE PRECISION
TANH(X) REAL REAL
DTANH(X)DOUBLE PRECISION DOUBLE PRECISION