Home

Next: , Previous: , Up: Intrinsic Procedures   [Contents][Index]


9.86 DIM — Positive difference

Description:

DIM(X,Y) returns the difference X-Y if the result is positive; otherwise returns zero.

Standard:

Fortran 77 and later

Class:

Elemental function

Syntax:

RESULT = DIM(X, Y)

Arguments:
XThe type shall be INTEGER or REAL
YThe type shall be the same type and kind as X.
Return value:

The return value is of type INTEGER or REAL.

Example:
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
Specific names:
NameArgumentReturn typeStandard
DIM(X,Y)REAL(4) X, YREAL(4)Fortran 77 and later
IDIM(X,Y)INTEGER(4) X, YINTEGER(4)Fortran 77 and later
DDIM(X,Y)REAL(8) X, YREAL(8)Fortran 77 and later