HPF Example with Multiple Statement Groups

        program alignloop

        integer i
        parameter (n=1024)
        double precision a(n), b(n), c(n)

!HPF$   processors p(4)
!HPF$   template t(n)
!HPF$   align a(i) with t(i)
!HPF$   align b(i) with t(i)
!HPF$   align c(i) with t(i)
!HPF$   distribute t(block) onto p

C**********************************************
C       computation
C**********************************************

        do i = 2, n
          b(i) = 2 * a(i)
          c(i) = a(i-1) + b(i-1)
        enddo

      end