module kinds
!integer, parameter :: sp = kind(1.0)
!integer, parameter :: dp = kind(1.0d0)
integer, parameter :: sp = 4
integer, parameter :: dp = 8
end module kinds