1 |
module radepsi |
2 |
|
3 |
! From phylmd/radepsi.h, version 1.1.1.1 2004/05/19 12:53:08 |
4 |
|
5 |
implicit none |
6 |
|
7 |
double precision, parameter:: ZEELOG = 1.D-07 |
8 |
! (1.d-10 (not good for 32-bit machines)) |
9 |
|
10 |
double precision, parameter:: ZEPSC = 1.D-20 |
11 |
double precision, parameter:: ZEPSCO = 1.D-10 |
12 |
double precision, parameter:: ZEPSCQ = 1.D-10 |
13 |
double precision, parameter:: ZEPSCT = 1.D-20 |
14 |
double precision, parameter:: ZEPSCW = 1.D-20 |
15 |
double precision, parameter:: ZEPSEC = 1.0d-12 |
16 |
double precision, parameter:: ZEPSCR = 1.0d-10 |
17 |
|
18 |
end module radepsi |