Commit eeefe6e6 authored by Moritz Hanke's avatar Moritz Hanke
Browse files

changes routine name Xt_initialize to lower case

parent cf1ce2cc
......@@ -17,7 +17,7 @@ int main(void) {
mpi_err_handler(MPI_Init(NULL, NULL), MPI_COMM_WORLD);
Xt_initialize (MPI_COMM_WORLD);
xt_initialize (MPI_COMM_WORLD);
int rank, size;
MPI_Comm_rank (MPI_COMM_WORLD, &rank);
......
#include "core/core.h"
void
Xt_initialize(MPI_Comm default_comm)
xt_initialize(MPI_Comm default_comm)
{
Xt_default_comm = default_comm;
}
......
......@@ -25,7 +25,7 @@ typedef struct xt_redist *Xt_redist;
* @param[in] default_comm communicator to use for collective aborts
*/
void
Xt_initialize(MPI_Comm default_comm);
xt_initialize(MPI_Comm default_comm);
/**
* destructor for an index list
......
......@@ -23,7 +23,7 @@ struct xt_redist_f {
void xt_initialize_f(MPI_Fint *comm_f) {
MPI_Comm comm_c;
comm_c = MPI_Comm_f2c(*comm_f);
Xt_initialize(comm_c);
xt_initialize(comm_c);
}
void xt_abort_cmsl_f(MPI_Fint *comm_f, const char *msg, const char *source, int line) {
......
......@@ -11,7 +11,7 @@ int main(void) {
int state[hsize];
mpi_err_handler(MPI_Init(NULL, NULL), MPI_COMM_WORLD);
Xt_initialize(MPI_COMM_WORLD);
xt_initialize(MPI_COMM_WORLD);
for (int i = 0; i<hsize; i++) {
state[i] = 0;
......
......@@ -22,7 +22,7 @@ int main(void) {
mpi_err_handler(MPI_Init(NULL, NULL), MPI_COMM_WORLD);
Xt_initialize(MPI_COMM_WORLD);
xt_initialize(MPI_COMM_WORLD);
{ // test packing and unpacking of collection index lists
......
......@@ -21,7 +21,7 @@ int main(void) {
mpi_err_handler(MPI_Init(NULL, NULL), MPI_COMM_WORLD);
Xt_initialize(MPI_COMM_WORLD);
xt_initialize(MPI_COMM_WORLD);
{ // test 1D section
......
......@@ -19,7 +19,7 @@ int main(void) {
mpi_err_handler(MPI_Init(NULL, NULL), MPI_COMM_WORLD);
Xt_initialize(MPI_COMM_WORLD);
xt_initialize(MPI_COMM_WORLD);
{ // general tests
Xt_idxlist idxstripes;
......
......@@ -22,7 +22,7 @@ int main(void) {
mpi_err_handler(MPI_Init(NULL, NULL), MPI_COMM_WORLD);
Xt_initialize(MPI_COMM_WORLD);
xt_initialize(MPI_COMM_WORLD);
{ // test packing and unpacking of index vectors
......
......@@ -60,7 +60,7 @@ int main(void) {
mpi_err_handler(MPI_Init(NULL, NULL), MPI_COMM_WORLD);
Xt_initialize(MPI_COMM_WORLD);
xt_initialize(MPI_COMM_WORLD);
{ // tests with empty data
......
......@@ -18,7 +18,7 @@ int main(void) {
mpi_err_handler(MPI_Init(NULL, NULL), MPI_COMM_WORLD);
Xt_initialize(MPI_COMM_WORLD);
xt_initialize(MPI_COMM_WORLD);
{ // general test with one redist
// set up data
......
......@@ -30,7 +30,7 @@ int main(void) {
mpi_err_handler(MPI_Init(NULL, NULL), MPI_COMM_WORLD);
Xt_initialize(MPI_COMM_WORLD);
xt_initialize(MPI_COMM_WORLD);
mpi_err_handler(MPI_Comm_rank(MPI_COMM_WORLD, &rank), MPI_COMM_WORLD);
mpi_err_handler(MPI_Comm_size(MPI_COMM_WORLD, &size), MPI_COMM_WORLD);
......
......@@ -18,7 +18,7 @@ int main(void) {
mpi_err_handler(MPI_Init(NULL, NULL), MPI_COMM_WORLD);
Xt_initialize(MPI_COMM_WORLD);
xt_initialize(MPI_COMM_WORLD);
{ // general test with one redist
// set up data
......
......@@ -30,7 +30,7 @@ int main(void) {
mpi_err_handler(MPI_Init(NULL, NULL), MPI_COMM_WORLD);
Xt_initialize(MPI_COMM_WORLD);
xt_initialize(MPI_COMM_WORLD);
mpi_err_handler(MPI_Comm_rank(MPI_COMM_WORLD, &rank), MPI_COMM_WORLD);
mpi_err_handler(MPI_Comm_size(MPI_COMM_WORLD, &size), MPI_COMM_WORLD);
......
......@@ -17,7 +17,7 @@ int main(void) {
mpi_err_handler(MPI_Init(NULL, NULL), MPI_COMM_WORLD);
Xt_initialize(MPI_COMM_WORLD);
xt_initialize(MPI_COMM_WORLD);
// offset-free test:
{
......
......@@ -26,7 +26,7 @@ int main(void) {
mpi_err_handler(MPI_Init(NULL, NULL), MPI_COMM_WORLD);
Xt_initialize(MPI_COMM_WORLD);
xt_initialize(MPI_COMM_WORLD);
mpi_err_handler(MPI_Comm_rank(MPI_COMM_WORLD, &rank), MPI_COMM_WORLD);
mpi_err_handler(MPI_Comm_size(MPI_COMM_WORLD, &size), MPI_COMM_WORLD);
......
......@@ -25,7 +25,7 @@ int main(void) {
// init mpi
mpi_err_handler(MPI_Init(NULL, NULL), MPI_COMM_WORLD);
Xt_initialize(MPI_COMM_WORLD);
xt_initialize(MPI_COMM_WORLD);
int my_rank;
MPI_Comm_rank(MPI_COMM_WORLD, &my_rank);
......
......@@ -15,7 +15,7 @@ int main(void) {
// init mpi
mpi_err_handler(MPI_Init(NULL, NULL), MPI_COMM_WORLD);
Xt_initialize(MPI_COMM_WORLD);
xt_initialize(MPI_COMM_WORLD);
int comm_rank, comm_size;
MPI_Comm_rank(MPI_COMM_WORLD, &comm_rank);
......
......@@ -25,7 +25,7 @@ int main(void) {
// init mpi
mpi_err_handler(MPI_Init(NULL, NULL), MPI_COMM_WORLD);
Xt_initialize(MPI_COMM_WORLD);
xt_initialize(MPI_COMM_WORLD);
int my_rank;
MPI_Comm_rank(MPI_COMM_WORLD, &my_rank);
......
......@@ -15,7 +15,7 @@ int main(void) {
// init mpi
mpi_err_handler(MPI_Init(NULL, NULL), MPI_COMM_WORLD);
Xt_initialize(MPI_COMM_WORLD);
xt_initialize(MPI_COMM_WORLD);
int comm_rank, comm_size;
MPI_Comm_rank(MPI_COMM_WORLD, &comm_rank);
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment