Basic HTML version of Foils prepared August 7 98

Foil 39 Example of F77_LOCAL
(From NAS FT Benchmark)

From DoD HPF Training -- 3. Parallel Constructs in HPF DoD Training and Others -- 1995-98. by Chuck Koelbel -- Rice University
1 !
2 ! 3D FFT subroutine used by the PESSL implementation.
3 !
  • subroutine fft (n1, n2, n3, isign, scale, x, y)
  • use blacs
  • use types
  • implicit none
4 !
5 ! Arguments
6 !
  • integer, intent(in) :: n1, n2, n3, isign
  • real(R8), intent(in) :: scale
7 !
  • complex(R8), dimension(:,:,:), intent(in) :: x
8 !hpf$ template gridx(n1,n2,n3)
9 !hpf$ distribute(*,*,block) :: gridx
10 !hpf$ align(:,:,:) with *gridx :: x
11 !
  • complex(R8), dimension(:,:,:), intent(out) :: y
12 !hpf$ template gridy(n3,n2,n1)
13 !hpf$ distribute(*,*,block) :: gridy
14 !hpf$ align(:,:,:) with *gridy :: y
in Table To:

© Northeast Parallel Architectures Center, Syracuse University, npac@npac.syr.edu

If you have any comments about this server, send e-mail to webmaster@npac.syr.edu.

Page produced by wwwfoil on Sun Aug 9 1998