module prec

 integer, parameter :: sp = selected_real_kind(6,37)
 integer, parameter :: dp = selected_real_kind(12,37)

 integer, parameter :: wp = dp
 
end module prec