---

Manual Reference Pages  - dim (3)

---

NAME

dim(3f) - [FORTRAN:INTRINSIC:NUMERIC] Positive difference

SYNTAX

result = DIM(X, Y)

DESCRIPTION

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

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

Sample program:

    program demo_dim
    use, intrinsic :: iso_fortran_env, only : real_kinds, &
    & real32, real64, real128
    implicit none
    integer :: i
    real(kind=real64) :: x
        i = dim(4, 15)
        x = dim(4.345_real64, 2.111_real64)
        print *, i
        print *, x
    end program demo_dim

STANDARD

[[FORTRAN 77]] and later

CLASS

[[Elemental procedure|Elemental function]]

---

dim (3)

March 11, 2021

Generated by manServer 1.08 from 421237c2-c1ef-4f0e-a66b-c455815fa51c using man macros.