@@ -18,7 +18,7 @@ void setupmpi(int argc,char **argv,int &nproc, int &myrank)
1818 MPI_Aint dipc[2 ]={0 ,sizeof (double )};
1919
2020 // MPI_Type_struct: create a struct datatype
21- MPI_Type_struct (
21+ MPI_Type_create_struct (
2222 2 ,// count: number of blocks(integer)
2323 ac,// number of element in each block(array)
2424 dipc,// byte displacement of each block
@@ -30,36 +30,36 @@ void setupmpi(int argc,char **argv,int &nproc, int &myrank)
3030}
3131
3232
33- void divide_pools (const int &nproc, const int &myrank, int &nproc_in_pool, int &npool , int &mypool, int &rank_in_pool)
33+ void divide_pools (const int &nproc, const int &myrank, int &nproc_in_pool, int &kpar , int &mypool, int &rank_in_pool)
3434{
35- nproc_in_pool = nproc/npool ;
36- if (myrank < (nproc%npool )*(nproc_in_pool+1 ))
35+ nproc_in_pool = nproc/kpar ;
36+ if (myrank < (nproc%kpar )*(nproc_in_pool+1 ))
3737 {
3838 nproc_in_pool++;
3939 }
4040
41- int *nproc_pool = new int [npool ];
42- int *startpro_pool = new int [npool ];
43- for (int ip = 0 ; ip < npool ; ++ip)
41+ int *nproc_pool = new int [kpar ];
42+ int *startpro_pool = new int [kpar ];
43+ for (int ip = 0 ; ip < kpar ; ++ip)
4444 {
4545 nproc_pool[ip] = 0 ;
4646 startpro_pool[ip] = 0 ;
4747 }
4848
4949 for (int i=0 ; i<nproc; i++)
5050 {
51- int j = i%npool ;
51+ int j = i%kpar ;
5252 nproc_pool[j]++;
5353 }
5454
5555 // (3) To know start proc index in each pool.
56- for (int i=1 ; i<npool ; i++)
56+ for (int i=1 ; i<kpar ; i++)
5757 {
5858 startpro_pool[i]=startpro_pool[i-1 ]+nproc_pool[i-1 ];
5959 }
6060
6161 // use 'myrank' to know 'mypool'.
62- for (int i=0 ; i<npool ; i++)
62+ for (int i=0 ; i<kpar ; i++)
6363 {
6464 if (myrank >= startpro_pool[i])
6565 {
0 commit comments