Опубликован: 11.02.2010 | Уровень: специалист | Доступ: платный | ВУЗ: Санкт-Петербургский государственный университет
Лекция 4:

Фортран 90

Таблица 4.8 . Встроенные подпрограммы
Имя подпрограммы Возвращаемое значение или производимое действие
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][,TIME] [,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-ый символ в сортирующей последовательности процессора
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) Побитовое логическое ИЛИ
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) Параметр разновидности целого типа для заданного степенного диапазона
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]) Верхняя граница массива
Сергей Лебедев
Сергей Лебедев
Россия
Паулус Шеетекела
Паулус Шеетекела
Россия, ТГТУ, 2010