|
integer,
|
public, |
parameter
|
:: |
sp |
= |
selected_real_kind(6, 37) |
|
|
integer,
|
public, |
parameter
|
:: |
dp |
= |
selected_real_kind(15, 307) |
|
|
integer,
|
public, |
parameter
|
:: |
qp |
= |
selected_real_kind(33, 4931) |
|
|
integer,
|
public, |
parameter
|
:: |
int32 |
= |
selected_int_kind(8) |
|
|
integer,
|
public, |
parameter
|
:: |
int64 |
= |
selected_int_kind(15) |
|
|
integer,
|
public, |
parameter
|
:: |
int128 |
= |
selected_int_kind(38) |
|
|
real(kind=dp),
|
public, |
parameter
|
:: |
PI |
= |
4._dp*atan(1._dp) |
|
|
real(kind=dp),
|
public, |
parameter
|
:: |
PI2 |
= |
2._dp*PI |
|
|
real(kind=dp),
|
public, |
parameter
|
:: |
THIRD |
= |
1._dp/3._dp |
|
|
real(kind=dp),
|
public, |
parameter
|
:: |
Root2 |
= |
sqrt(2._dp) |
|
|
real(kind=dp),
|
public, |
parameter
|
:: |
OverR2 |
= |
1.0_dp/Root2 |
|
|
real(kind=dp),
|
public, |
parameter
|
:: |
EPS |
= |
1e-13_dp |
|
|
real(kind=dp),
|
public, |
parameter
|
:: |
INFINITY |
= |
huge(1.0_dp) |
|
|
integer,
|
public, |
parameter
|
:: |
sizeof_int |
= |
sizeof(0) |
|
|
integer,
|
public, |
parameter
|
:: |
bits_int |
= |
bit_size(0) |
|
|
integer,
|
public, |
parameter
|
:: |
sizeof_log |
= |
sizeof(.true.) |
|
|
integer,
|
public, |
parameter
|
:: |
sizeof_int32 |
= |
sizeof(0_int32) |
|
|
integer,
|
public, |
parameter
|
:: |
sizeof_int64 |
= |
sizeof(0_int64) |
|
|
integer,
|
public, |
parameter
|
:: |
sizeof_dp |
= |
sizeof(0._dp) |
|
|
integer,
|
public, |
parameter
|
:: |
sizeof_complexdp |
= |
sizeof(complex(0._dp, 0._dp)) |
|
|
integer,
|
public, |
parameter
|
:: |
sizeof_sp |
= |
sizeof(0._sp) |
|
|
integer,
|
public, |
parameter
|
:: |
maxExcit |
= |
3 |
|
|
integer,
|
public, |
parameter
|
:: |
rep_size |
= |
1 |
|
|
integer,
|
public, |
parameter
|
:: |
nreplicas |
= |
1 |
|
|
integer,
|
public, |
parameter
|
:: |
lenof_sign |
= |
1 |
|
|
integer,
|
public, |
parameter
|
:: |
inum_runs |
= |
1 |
|
|
integer,
|
public, |
parameter
|
:: |
lenof_sign_kp |
= |
1 |
|
|
integer,
|
public, |
parameter
|
:: |
lenof_sign_max |
= |
lenof_sign |
|
|
integer,
|
public, |
parameter
|
:: |
inum_runs_max |
= |
inum_runs |
|
|
integer,
|
public, |
parameter
|
:: |
sizeof_helement |
= |
8 |
|
|
real(kind=dp),
|
public, |
parameter
|
:: |
HEl_zero |
= |
0.0_dp |
|
|
real(kind=dp),
|
public, |
parameter, dimension(lenof_sign_max)
|
:: |
null_part |
= |
0.0_dp |
|
|
integer,
|
public, |
parameter
|
:: |
MPIArg |
= |
int32 |
|
|
integer,
|
public, |
parameter
|
:: |
n_int |
= |
int64 |
|
|
logical,
|
public |
|
:: |
build_64bit |
= |
.true. |
|
|
integer,
|
public, |
parameter
|
:: |
int_rdm |
= |
int64 |
|
|
integer(kind=n_int),
|
public |
|
:: |
temp3 |
= |
0 |
|
|
integer,
|
public, |
parameter
|
:: |
bits_n_int |
= |
bit_size(temp3) |
|
|
integer,
|
public, |
parameter
|
:: |
bni_ |
= |
bits_n_int |
|
|
integer,
|
public, |
parameter
|
:: |
bn2_ |
= |
bits_n_int/2 |
|
|
integer,
|
public, |
parameter
|
:: |
size_n_int |
= |
bits_n_int/8 |
|
|
integer,
|
public, |
parameter
|
:: |
end_n_int |
= |
bits_n_int-1 |
|
|
integer(kind=int_rdm),
|
public |
|
:: |
temp4 |
= |
0 |
|
|
integer,
|
public, |
parameter
|
:: |
bits_int_rdm |
= |
bit_size(temp4) |
|
|
integer,
|
public, |
parameter
|
:: |
size_int_rdm |
= |
bits_int_rdm/8 |
|
|
integer,
|
public, |
parameter
|
:: |
end_int_rdm |
= |
bits_int_rdm-1 |
|
|
integer,
|
public, |
parameter
|
:: |
hdf_err |
= |
int32 |
|
|
integer,
|
public, |
parameter
|
:: |
hdf_log |
= |
int32 |
|
|
integer,
|
public, |
parameter
|
:: |
NEL_UNINITIALIZED |
= |
-1 |
|