dcabs1(3)
| () | () |
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
manpagesmanpages| () | () |
double complex z,zz double precision t(2) equivalence (zz,t(1)) zz = z dcabs1 = dabs(t(1)) + dabs(t(2)) return end