examples/smpi/NAS/SP/adi.f

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