      INTEGER IBUFMAX
      PARAMETER ( IBUFMAX = 45000000 )    
