HPF 1D Shift Kernel Source

      program simpletest

        integer i
        double precision a(100), b(100)

CHPF$   processors p(4)
CHPF$   template t(100)
CHPF$   align a(i) with t(i)
CHPF$   align b(i) with t(i)
CHPF$   distribute t(block) onto p

C       -- Initializations --

        a(1) = 0

        do i = 2, 100 - 1
            a(i) = 0.25 * b(i-1)
        enddo
      
      end