Subject: hpff-core: The infamous pipelined 3D FFT

From: [email-masked]
Date: Sun, 17 Mar 96 18:42:24 EST

---------------------------------------------------------------------------
[email-masked] is a mailing list for announcements related to High
Performance Fortran.  Instructions for adding or deleting yourself
from this list appear at the bottom of this message.
---------------------------------------------------------------------------

[This would make sense mainly to those involved in the
 tasking discussion at the recent HPFF meeting]

The following pseudocode will do the pipelined 3D FFT in our
tasking model. NO SWEAT!

Let me know if you see a problem.

jaspal

-----------------------

done1 = .false.
task region
do while (!done1) /* the only barrier happens once in 1000 iters*/

   do i=1,1000
      on (P1)
          if (!done1)
             done1 = read(...)
             if (!done1)  fft1(a1)
          endif
      endon
      on (P1,P2)
          done2 = done1
          if(!done1)  a2 = a1
      endon
      on (P2)
          if(!done2)  fft2(a2)
      endon
      on (P2,P3)
          done3 = done2
          if (!done2)  a3 = a2
      endon
      on(P3)
         if (!done3) fft3(a3)
      endon
   enddo

endddo
end task region 

---------------------------------------------------------------------------
To (un)subscribe to this list, send mail to [email-masked].
Leave the subject line blank, and in the body put the line
(un)subscribe <email-address>
---------------------------------------------------------------------------