examples/smpi/NAS/BT/adi.f

   1 c---------------------------------------------------------------------
   2 c---------------------------------------------------------------------
   3
   4       subroutine  adi
   5
   6 c---------------------------------------------------------------------
   7 c---------------------------------------------------------------------
   8
   9       call copy_faces
  10
  11       call x_solve
  12
  13       call y_solve
  14
  15       call z_solve
  16
  17       call add
  18
  19       return
  20       end
  21