Lines Matching refs:Forout

269         real*8   Forout(3), Forin(3)  local
276            call MPI_ALLREDUCE (Forin, Forout, 3,
278            xmax = Forout(1)
279            ymax = Forout(2)
280            zmax = Forout(3)
291            call MPI_ALLREDUCE (Forin, Forout, 3,
294            Forout(1) = xlngth
295            Forout(2) = ylngth
296            Forout(3) = zlngth
299         xlngth = xmax-Forout(1)
300         ylngth = ymax-Forout(2)
301         zlngth = zmax-Forout(3)