DIM (The GNU Fortran Compiler)

### 8.92 `DIM` — Positive difference ¶

Synopsis:

  `RESULT = DIM(X, Y)`

Description:

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

Class:

  Elemental function

Arguments:

  X | The type shall be `INTEGER` or `REAL`
  Y | The type shall be the same type and kind as X. (As a GNU extension, arguments of different kinds are permitted.)

Return value:

  The return value is of type `INTEGER` or `REAL`. (As a GNU extension, kind is the largest kind of the actual arguments.)

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
  --- | --- | --- | ---
  `DIM(X,Y)` | `REAL(4) X, Y` | `REAL(4)` | Fortran 77 and later
  `IDIM(X,Y)` | `INTEGER(4) X, Y` | `INTEGER(4)` | Fortran 77 and later
  `DDIM(X,Y)` | `REAL(8) X, Y` | `REAL(8)` | Fortran 77 and later

Standard:

  Fortran 77 and later