module accuracy

integer, parameter :: ik=4, rk=8, ark=16, out=6, cl=80
real(16), parameter :: pi = 3.1415926535897932384626433832795_16

end module accuracy