NAME¶

SYNOPSIS¶

double precision

function dcabs1(z)

double complex z,zz double precision t(2) equivalence (zz,t(1)) zz = z dcabs1 = dabs(t(1)) + dabs(t(2)) return end

PURPOSE¶