3
* This is to test GA_Inquire (is a local operation)
4
* GA_Create -- used to create a global array using handles like 'g_A'
5
* GA_Inquire -- to verify that g_A handle returns the right spec. of _array created under it.
6
* This is one method used to verify the created array. Here to test the specified function _inquire
17
int main(int argc, char **argv)
21
int dims[DIM]={5,5}, dims2[DIM], ndim, type;
24
MPI_Init(&argc, &argv);
26
MPI_Comm_rank(MPI_COMM_WORLD, &rank);
27
MPI_Comm_size(MPI_COMM_WORLD, &nprocs);
29
MA_init(C_DBL, 1000, 1000);
33
g_A = NGA_Create(C_DBL, DIM, dims, "array_A", NULL);
38
if(!g_A) printf("ERROR : \n");
40
NGA_Inquire(g_A, &type, &ndim, dims2);
41
printf(" %d -- %d,,\n", type, ndim);
44
printf("%d: %d[ %d] ...* \n", rank, i, dims2[i]);
48
printf("Test Completed \n");