Query: dcabs1
OS: redhat
Section: l
Format: Original Unix Latex Style Formatted with HTML and a Horizontal Scroll Bar
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