INTEGER IBUFMAX PARAMETER ( IBUFMAX = 15000000 )