SUBROUTINE BUPDAT3D(U,INX,INY,INZ)
C
C     Name: Boundaries UPDATe in 3D
C     Author: Anthony Leboissetier (10/01)
C     Objective: To update the process borders.
C     Called by: time_step, swp, momentum, rstrct, interp, addint,
C                relax & resid
C     It calls: PACKER3D
C     Modifications :
C
      include "undefined.h"
      INTEGER INX,INY,INZ
      DOUBLE PRECISION U(INX,INY,INZ)
      IF(HAVEMPI.EQ.0)   THEN
         RETURN
      ELSE
         STOP 'bupdat3D.f'
      ENDIF
      
      END