NAME

dim, ddim, idim, jidim, iidim - positive difference intrinsic functions

SYNOPSIS

integer i1,i2,i3
integer∗2  j1,j2,j3
real a1,a2,a3
double precision dp1,dp2,dp3

i3 = idim(i1,i2)
i3 = jidim(i1,i2)

j3 = idim(j1,j2)
j3 = iidim(j1,j2)

a3 = dim(a1,a2)

dp3 = ddim(dp1,dp2)

DESCRIPTION

dim is the family of difference intrinsic functions.  ddim returns the double-precision absolute value of its double-precision argument.  idim returns the integer absolute value of its integer argument.  The generic form dim returns the type of its argument. 

The functions jidim and iidim have been included to provide compatibility with other vendors and are not recommended for general use. 

These functions return:
     a1-a2     if a1 > a2
     0         if a1 <= a2

CX/UX Hf77 Fortran Reference Manual