8 lines
199 B
Fortran
8 lines
199 B
Fortran
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
|