INTEGER, PARAMETER :: MAXSIZE=1000000