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)