DCABS1(3f)

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