Basic HTML version of Foils prepared August 7 98

Foil 40 Example of F77_LOCAL
(From NAS FT Benchmark) II

From DoD HPF Training -- 3. Parallel Constructs in HPF DoD Training and Others -- 1995-98. by Chuck Koelbel -- Rice University
1 !
2 ! Interfaces
3 !
  • interface
    • extrinsic (f77_local) subroutine &
  • & pdcft3 (x, y, n1, n2, n3, isign, scale, ictxt, ip)
    • use types
    • implicit none
    • integer, intent(in) :: n1, n2, n3, isign, ictxt
    • real(R8), intent(in) :: scale
    • integer, dimension(:), intent(in) :: ip
    • complex(R8), dimension(:,:,:), intent(in) :: x
4 !hpf$ template tempx(n1,n2,n3)
5 !hpf$ distribute(*,*,block) :: tempx
6 !hpf$ align(:,:,:) with *tempx :: x
    • complex(R8), dimension(:,:,:), intent(out) :: y
7 !hpf$ template tempy(n3,n2,n1)
8 !hpf$ distribute(*,*,block) :: tempy
9 !hpf$ align(:,:,:) with *tempy :: y
    • end subroutine pdcft3
  • end interface
10 !
  • ip = 0
  • call pdcft3 (x, y, n1, n2, n3, isign, scale, ictxt, ip)
11 !
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