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
!
! 3D FFT subroutine used by the PESSL implementation.
!
  • subroutine fft (n1, n2, n3, isign, scale, x, y)
  • use blacs
  • use types
  • implicit none
!
! Arguments
!
  • integer, intent(in) :: n1, n2, n3, isign
  • real(R8), intent(in) :: scale
!
  • complex(R8), dimension(:,:,:), intent(in) :: x
!hpf$ template gridx(n1,n2,n3)
!hpf$ distribute(*,*,block) :: gridx
!hpf$ align(:,:,:) with *gridx :: x
!
  • complex(R8), dimension(:,:,:), intent(out) :: y
!hpf$ template gridy(n3,n2,n1)
!hpf$ distribute(*,*,block) :: gridy
!hpf$ align(:,:,:) with *gridy :: y

© 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