test1.c

shpf 1.9一个并行编译器

// real a(8, 8)
// !hpf$ distribute a (block, block) onto p
// !hpf$ processors p (2, 2)
// 
// a(2, 6) = 23.0
// 
// print *, a(2, 6)
// 
// 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(8, p.dim(0), BLK) ;
    Range y(8, p.dim(1), BLK) ;
    Array2<float> a(x, y) ;

    Subscript s(x(1)), t(y(5)) ;

    at(s) {
      at(t) {
	a(s, t) = 23.0 ;
      } ta(t) ;
    } ta(s) ;

    aprintf("%f\n", a.sect(s, t)) ;
  } no(p) ;

  AdlibFinalize() ;
}