testsarray.c

shpf 1.9一个并行编译器

#include "ad++.h"


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

  SArray1<int>   a(4) ;
  SArray2<float> b(2, 3) ;
  SArray3<int>   c(2, 2, 2) ;

  int i, k, x ;

  for(i = 0 ; i < 4 ; i++)
    a(i) = i + 1 ;

  for(k = 0 ; k < 2 ; k++)
    for(int l = 0 ; l < 3 ; l++)
      b(k, l) = 10.0 * (k + 1) + l + 1 ;

  for(x = 0 ; x < 2 ; x++)
    for(int y = 0 ; y < 2 ; y++)
      for(int z = 0 ; z < 2 ; z++)
	c(x, y, z) = 100 * (x + 1) + 10 * (y + 1) + z + 1 ;

  for(i = 0 ; i < 4 ; i++)
    gprintf("a(%d) = %d\n", i, a(i)) ;

  for(k = 0 ; k < 2 ; k++)
    for(int l = 0 ; l < 3 ; l++)
      gprintf("b(%d, %d) = %f\n", k, l, b(k, l)) ;

  for(x = 0 ; x < 2 ; x++)
    for(int y = 0 ; y < 2 ; y++)
      for(int z = 0 ; z < 2 ; z++)
	gprintf("c(%d, %d, %d) = %d\n", x, y, z, c(x, y, z)) ;

  AdlibFinalize() ;
}