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