dcabs1(l) redhat man page | unix.com

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