Translation of call with row-aligned actual
Source:
!HPF$ PROCESSORS Q(2, 2)
REAL A(6, 50)
!HPF$ DISTRIBUTE
A(BLOCK, BLOCK) ONTO Q
CALL INIT(A(2, :))
Translation:
Procs2 q(2, 2);
BlockRange x(6, q.dim(0)), y(50, q.dim(1));
float* a = new float [x.volume() * y.volume()];
// Create DAD for section a(1, :)
Location i;
x.location(&i, 1);
Group p = q;
p.restrict(q.dim(0), i.crd);
Map maps [1];
maps [0] = Map(y, x.volume());
DAD dad(1, p, maps);
init(a + i.sub, &dad);
Previous slide
Next slide
Back to first slide
View graphic version