43 integer,
parameter,
public ::
dp =
mpd
44 integer,
parameter,
public ::
sp =
mps
47 integer,
parameter,
public ::
ip =
mpi
52 integer,
parameter,
public ::
prcsn = precision(
zero)
55 logical,
public ::
debug = .false.
Defines precision and range in real(kind=dp) and integer(kind=ip) for portability and a few constants...
real(dp), parameter, public eps
real(dp), parameter, public one
integer, parameter, public prcsn
real(dp), parameter, public zero
integer, parameter, public sp
integer, parameter, public ip
logical, public testsymortho
integer, parameter, public dp
real(dp), parameter, public realmin
real(dp), parameter, public realmax
integer, parameter mpd
double precision
integer, parameter mps
single precision
integer, parameter mpi
integer