module precision
implicit none
!integer, parameter :: PREC=selected_real_kind(13)
integer, parameter :: PREC=selected_real_kind(30)
end module precision