KTH framework for Nek5000 toolboxes; testing version  0.0.1
dcabs1.f
Go to the documentation of this file.
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
dcabs1
double precision function dcabs1(z)
Definition: dcabs1.f:2