3
* This is to test GA_Ndim (is a local operation)
4
* verifing GA_Ndim -- which returns dimension of the g_A
20
int g_A, dims[ONE_DIM]={SIZE};
22
g_A = NGA_Create(C_INT, ONE_DIM, dims, "array_A", NULL);
24
if(GA_Ndim(g_A) != ONE_DIM)
25
printf("ERROR: GA_Ndim didnt return nDimension after GA_Initialize \n");
32
int g_A, dims[TWO_DIM]={SIZE,SIZE};
34
g_A = NGA_Create(C_INT, TWO_DIM, dims, "array_A", NULL);
36
if(GA_Ndim(g_A) != TWO_DIM)
37
printf("ERROR: GA_Ndim didnt return nDimension after GA_Initialize \n");
44
int g_A, dims[THREE_DIM]={SIZE,SIZE,SIZE};
46
g_A = NGA_Create(C_INT, THREE_DIM, dims, "array_A", NULL);
48
if(GA_Ndim(g_A) != THREE_DIM)
49
printf("ERROR: GA_Ndim didnt return nDimension after GA_Initialize \n");
54
int main(int argc, char **argv)
56
int rank, nprocs, n=1, temp=0;
58
MPI_Init(&argc, &argv);
60
MPI_Comm_rank(MPI_COMM_WORLD, &rank);
61
MPI_Comm_size(MPI_COMM_WORLD, &nprocs);
63
MA_init(C_INT, 1000, 1000);
73
printf("Test Completed \n");