test0.c

shpf 1.9一个并行编译器

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


// real a(32)
// !hpf$ distribute a (block) onto p
// !hpf$ processors p (4)
// 
// a(13) = 23.0
// 
// print *, a(13)
// 
// end


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

  Procs1 p(4) ;
  on(p) {
    Range x(32, p.dim(0), BLK) ;
    Array1<float> a(x) ;

    Subscript s(x(12)) ;

    at(s)
      a(s) = 23.0 ;
    ta(s) ;

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

  AdlibFinalize() ;
}