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

       subroutine  adi

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

       call copy_faces

       call txinvr

       call x_solve

       call y_solve

       call z_solve

       call add

       return
       end