INTEGER IBUFMAX
c      PARAMETER ( IBUFMAX = 15000000 )    
      PARAMETER ( IBUFMAX =  30000000 )