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 |