!##############################################################
MODULE prec
implicit none
integer, parameter :: pReal = 8
integer, parameter :: pInz = 4
END MODULE prec