module
precis
18
integer, parameter :: mrl=kind(1.0d0) !mrl=8
end module precis