I am realy interested what is the algorithm doing, can you explain it. It seem like it is only asigning average of four surounding elements to element.
2009/4/28 Martin Musatov <marty.musa...@gmail.com> > 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 -~----------~----~----~----~------~----~------~--~---