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
!
! Interfaces
!
  • 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
!hpf$ template tempx(n1,n2,n3)
!hpf$ distribute(*,*,block) :: tempx
!hpf$ align(:,:,:) with *tempx :: x
    • complex(R8), dimension(:,:,:), intent(out) :: y
!hpf$ template tempy(n3,n2,n1)
!hpf$ distribute(*,*,block) :: tempy
!hpf$ align(:,:,:) with *tempy :: y
    • end subroutine pdcft3
  • end interface
!
  • ip = 0
  • call pdcft3 (x, y, n1, n2, n3, isign, scale, ictxt, ip)
!

© 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