|
integer, parameter | kinddeclaration::single = kind(1.0e0) |
| Single precision parameter for real variables.
|
|
integer, parameter | kinddeclaration::double = kind(1.0d0) |
| Double precision parameter for real variables.
|
|
real(kind=double), parameter | kinddeclaration::zero = 0.0d0 |
|
real(kind=double), parameter | kinddeclaration::one = 1.0d0 |
|
real(kind=double), parameter | kinddeclaration::two = 2.0d0 |
|
real(kind=double), parameter | kinddeclaration::three = 3.0d0 |
|
real(kind=double), parameter | kinddeclaration::four = 4.0d0 |
|
real(kind=double), parameter | kinddeclaration::onehalf = 0.5d0 |
|
real(kind=double), parameter | kinddeclaration::onethird = 1.0d0/3.0d0 |
|
real(kind=double), parameter | kinddeclaration::onefourth = 1.0d0/4.0d0 |
|
real(kind=double), parameter | kinddeclaration::onesixth = 1.0d0/6.0d0 |
|
real(kind=double), parameter | kinddeclaration::verysmall = 1.0d-40 |
|
real(kind=double), parameter | kinddeclaration::small = 1.0d-15 |
|
real(kind=double), parameter | kinddeclaration::large = 1.0d10 |
|
real(kind=double), parameter | kinddeclaration::huge = 1.0d30 |
|
real(kind=double), parameter | kinddeclaration::pigreco = 4.0d0*atan(one) |
|
real(kind=double), parameter | kinddeclaration::grav = 9.806d0 |
|
real(kind=double), parameter | kinddeclaration::zerodepth = 1.0d-9 |
|
real(kind=double), parameter | kinddeclaration::noflux = 1.0d-10 |
|