!--------------------------------------------------------------------------------------------------
    INTEGER(KIND=I4KIND), PARAMETER :: IBUFMAX = 45000000