--- trunk/Sources/phylmd/radepsi.f 2015/04/29 15:47:56 134 +++ trunk/phylmd/radepsi.f90 2019/06/13 14:40:06 328 @@ -1,11 +1,11 @@ module radepsi - ! 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 implicit none double precision, parameter:: ZEELOG = 1.D-07 - ! (1.d-10 (not good for 32-bit machines)) + ! (1d-10 (not good for 32-bit machines)) double precision, parameter:: ZEPSC = 1.D-20 double precision, parameter:: ZEPSCO = 1.D-10 @@ -15,6 +15,4 @@ double precision, parameter:: ZEPSEC = 1.0d-12 double precision, parameter:: ZEPSCR = 1.0d-10 - double precision, parameter:: REPSCT=1.0E-10 - end module radepsi