    INTEGER,parameter :: IBUFMAX=45000000
