/[lmdze]/trunk/phylmd/radepsi.f90
ViewVC logotype

Contents of /trunk/phylmd/radepsi.f90

Parent Directory Parent Directory | Revision Log Revision Log

Revision 328 - (show annotations)
Thu Jun 13 14:40:06 2019 UTC (4 years, 11 months ago) by guez
File size: 548 byte(s) 
Change all `.f` suffixes to `.f90`. (The opposite was done in revision
82.)  Because of change of philosopy in GNUmakefile: we already had a
rewritten rule for `.f`, so it does not make the makefile longer to
replace it by a rule for `.f90`. And it spares us options of
makedepf90 and of the compiler. Also we prepare the way for a simpler
`CMakeLists.txt`.
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 ! (1d-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
  ViewVC Help
Powered by ViewVC 1.1.21