Next: , Previous: DIGITS, Up: Intrinsic Procedures


6.51 DIM — Positive difference

Description:
DIM(X,Y) returns the difference X-Y if the result is positive; otherwise returns zero.
Standard:
F77 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 program test_dim
     

Specific names:

Name Argument Return type Standard
IDIM(X,Y) INTEGER(4) X,Y INTEGER(4) F77 and later
DDIM(X,Y) REAL(8) X,Y REAL(8) F77 and later