adi.f 432 Bytes

Edit Raw Blame History

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

      subroutine  adi

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

      call copy_faces

      call x_solve

      call y_solve

      call z_solve

      call add

      return
      end