
  Procs p(2, 4, 4) ;
  p.dim(1)

  Dimension p_1(p.dim(1)) ;
  Dimension def0d_1(def0d) ;



  Range x_t1(b.rng(1)) ;
  Range x(12, t_1) ;
  Range i_a(16, p_1, blk) ;
  SubRange x_internal(10, 1, 1, x) ;

  _foxtrot.rng(1).size()
  for(x_internal.first() ; x_internal ; x_internal++)
  for(x_t1.last() ; x_t1 ; x_t1--)
  x_a()


  Embed a_e(3, x, NULL) ;
  if(a_e)


  Array<0, float> a(&a_e) ;
  Array<1, float> b(x) ;
  Array<1, int> temp1(&e_t1, i_t1) ;
  Array<2, float> a(x_a, y_a) ;
  Array<3, int> temp1(x_t1, y_t1, z_t1) ;
  Section<1, float>(u, SubRange(10, 0, 1, x))
  Section<1, float>(troggs, trogg.rng(1), Embed(j, trogg.rng(2))) ;
  Index(x_a)
  Aggregate<2> b(x_b, y_b) ;


  a.rng(2)
  fiji.emb()
  a()
  b(a_e)
  u(x_internal) = 0.5 * (n(x_internal) + p(x_internal))
  b(x_b, y_b) = new Array<1, float>(Range(x_b() + y_b(), t_3)) ;
  delete b(x_b, y_b) ;


  remap(n, Section<1, float> (u, SubRange(10, 0, 1, x))) ;
  scatter(a, b, subscript) ;
  gather(d, a, Index(x_d), subscript2) ;


