mirror of
https://github.com/Cantera/cantera.git
synced 2025-02-25 18:55:29 -06:00
9 lines
199 B
Fortran
Executable File
9 lines
199 B
Fortran
Executable File
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
|