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¶