!--------------------------------------------------------------------------------------------------
    INTEGER, PARAMETER :: IBUFEXCH = 340800

