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