test6.c

shpf 1.9一个并行编译器

//   !hpf$ processors p(2, 2)
// 
//   integer a(6, 4)
//   !hpf$ distribute a(block, block) onto p
// 
//   !hpf$ template s(10, 4)
//   !hpf$ distribute s(cyclic, block) onto p
// 
//   integer b(6, 4)
//   !hpf$ align b(i, j) with s(1 + i, j)
// 
//   integer i, j, k
// 
//   do i = 1, 6
//     do j = 1, 4
//       a(i, j) = 100 * (i - 1) + 10 * (j - 1)
//     enddo
//   enddo
// 
//   b = a
// 
//   do i = 1, 6
//     do j = 1, 4
//       print "(i3, i3, i10)", i - 1, j - 1, b(i, j)
//     enddo
//   enddo
// 
// end


#include <stdio.h>
#include "ad++.h"
#include "admacros.h"


void main(int argc, char* argv[]) {
  AdlibInit(argc, argv) ;

  Procs2 p(2, 2) ;
  on(p) {
    Range x(6, p.dim(0), BLK) ;
    Range y(4, p.dim(1), BLK) ;
    Array2<int> a(x, y) ;

    Range z = Range(10, p.dim(0), CYC).subrng(6, 1) ;
    Array2<int> b(z, y) ;

    where(x) {
      where(y) {
        a(x, y) = 100 * x + 10 * y ;
      } erewh(y) ;
    } erewh(x) ;

    remap(b, a) ;

    aprintf("%3R0%3R1%10d\n", b) ;
  } no(p) ;

  AdlibFinalize() ;
}