5 integer,
parameter::sp=kind(1.0e0)
7 integer,
parameter::dp=kind(1.0e0)
10 integer,
parameter::dp=kind(1.0e0)
12 integer,
parameter::dp=kind(1.0d0)
15 integer,
parameter::ndim=3
16 integer,
parameter::twotondim=2**ndim
17 integer,
parameter::threetondim=3**ndim
18 integer,
parameter::twondim=2*ndim
20 integer,
parameter::nvector=16