Basic HTML version of Foils prepared August 7 98

Foil 11 Typical Uses of Intrinsics

From DoD HPF Training -- 2. Fortran90 DoD Training and Others -- 1995-98. by Chuck Koelbel -- Rice University
Initialization
  • REAL, ALLOCATABLE :: u(:,:)
  • CALL RANDOM_SEED
  • CALL RANDOM_NUMBER(u)
Computing the error
  • REAL r(0:nx,0:ny)
  • error_value = SQRT( SUM(r*r) )
Prolongation
  • REAL u(0:nx,0:ny)
  • u(0:nx:jmp2,jmp:ny:jmp2) = &
    • u(0:nx:jmp2,jmp:ny:jmp2)+&
    • 0.5*CSHIFT(u(0:nx:jmp2,jmp2:ny:jmp2),1,2)

© 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