NAME

dim, ddim, idim − positive difference Fortran intrinsic functions

SYNTAX

integer a1,a2,a3
a3 = idim(a1,a2)

real a1,a2,a3
a3 = dim(a1,a2)

double precision a1,a2,a3
a3 = ddim(a1,a2)

DESCRIPTION

These functions return:

a1-a2if a1 > a2
oif a1 <= a2