c---------------------------------------------------------------------
c---------------------------------------------------------------------

      subroutine  adi

c---------------------------------------------------------------------
c---------------------------------------------------------------------

      call copy_faces

      call x_solve

      call y_solve

      call z_solve

      call add

      return
      end