integer, parameter :: thousand = 1000