re: mMiroslav Balaz <gpsla...@googlemail.com>reply-to algogeeks@googlegroups.com toalgoge...@googlegroups.co
On Tue, Apr 28, 2009 at 9:40 AM, Miroslav Balaz <gpsla...@googlemail.com>wrote: > ok, now seriously, wtf is that? Is that in what language it is? And what > does "CALL DA_WRITE_HALO(A, (/CYCL, CYCL/), (/1, 1/))" When you can ask me without cussing at me I will answer you. > > > 2009/4/28 Martin Michael Musatov <marty.musa...@gmail.com> > > >> PROCESSORS P(NP, NP) >> >> RANGE X(N), Y(N) >> DISTRIBUTE X ONTO P(BLOCK, *) >> DISTRIBUTE Y ONTO P(*, BLOCK) >> SHADOW (1) X, Y >> >> REAL A X, Y >> >> ON (P) >> ! Initialize the array... >> >> OVERALL(I = X, J = Y) >> A [I, J] = ... >> ENDOVERALL >> >> DO ITER = 1, NITER >> DO ICOLOUR = 0, 1 >> CALL DA_WRITE_HALO(A, (/CYCL, CYCL/), (/1, 1/)) >> >> OVERALL(I = X) >> OVERALL(J = Y(MOD(ICOLOUR + I, 2) : : 2)) >> A [I, J] = (A [I, J - 1] + A [I, J +1] + & >> & A [I - 1, J] + A [I + 1,J]) / 4 >> ENDOVERALL >> ENDOVERALL >> ENDDO >> ENDDO >> ENDON >> >> >> > > > > --~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "Algorithm Geeks" group. To post to this group, send email to algogeeks@googlegroups.com To unsubscribe from this group, send email to algogeeks+unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/algogeeks -~----------~----~----~----~------~----~------~--~---
