1 double precision function dcabs1(z) 2 double complex z,zz 3 double precision t(2) 4 equivalence (zz,t(1)) 5 zz = z 6 dcabs1 = dabs(t(1)) + dabs(t(2)) 7 return 8 end 9 10
