9.79 DIM — Положительная разность

Описание:

DIM(X,Y) возвращает разницу X-Y если результат положительный; в противном случае возвращает ноль.

Стандарт:

Fortran 77 и более поздние версии

Класс:

Элементарная функция

Синтаксис:

RESULT = DIM(X, Y)

Аргументы:

X	Тип должен быть INTEGER или REAL
Y	Тип должен быть такого же типа и размера, что и X.

Возвращаемое значение:

Возвращаемое значение имеет тип INTEGER или REAL.

Пример:

program test_dim
    integer :: i
    real(8) :: x
    i = dim(4, 15)
    x = dim(4.345_8, 2.111_8)
    print *, i
    print *, x
end program test_dim

Уникальные имена:

Имя	Аргумент	Тип возвращаемого значения	Стандарт
DIM(X,Y)	REAL(4) X, Y	REAL(4)	Fortran 77 и более поздние версии
IDIM(X,Y)	INTEGER(4) X, Y	INTEGER(4)	Fortran 77 и более поздние версии
DDIM(X,Y)	REAL(8) X, Y	REAL(8)	Fortran 77 и более поздние версии