9.79. DIM

9.79 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:

`X`	The type shall be `INTEGER` or `REAL`
`Y`	The 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	          			          		登录查看完整内容