module accuracy_constants
      use iso_fortran_env
      implicit none
!      integer, parameter :: racc = real32  !real*4
      integer, parameter :: racc = real64  !real*8
!      integer, parameter :: racc = real128 !real*16
      integer,parameter :: idp= int32
      integer,parameter :: dp = real64
!      integer, parameter :: iacc = int16 !int*2
      integer, parameter :: iacc = int32 !int*4
!      integer, parameter :: iacc = int64 !int*8
      real(dp),parameter:: pi = acos(-1.0_dp)
      end module