nek/comm__test_8c_source.html

 #include <stddef.h>

 #include <stdlib.h>

 #include <stdio.h>

 #include "name.h"

 #include "fail.h"

 #include "types.h"

 #include "gs_defs.h"

 #include "comm.h"


 int main(int narg, char *arg[])

 {

   comm_ext world; int np;

   struct comm comm;

   ulong sum[2],r[2],v, test;

 #ifdef MPI

   MPI_Init(&narg,&arg);

   world = MPI_COMM_WORLD;

   MPI_Comm_size(world,&np);

 #else

   world=0, np=1;

 #endif


   comm_init(&comm,world);


   v = comm.id+1;

   test = comm_reduce_slong(&comm,gs_add,(slong*)&v,1);

   comm_scan(sum, &comm,gs_slong,gs_add, &v,1, r);

   printf("%02d: %d %d %d\n",(int)comm.id,(int)sum[0],(int)sum[1],(int)test);


   comm_free(&comm);


 #ifdef MPI

   MPI_Finalize();

 #endif


   return 0;

 }

slong
#define slong
Definition: types.h:74

gs_slong
#define gs_slong
Definition: gs_defs.h:66

sum
static double sum(struct xxt *data, double v, uint n, uint tag)
Definition: xxt.c:400

types.h

comm.h

test
void test(const struct comm *const comm)
Definition: crs_test.c:16

main
int main(int narg, char *arg[])
Definition: comm_test.c:10

comm
Definition: comm.h:85

comm_free
static void comm_free(struct comm *c)
Definition: comm.h:176

comm_scan
void comm_scan(void *scan, const struct comm *com, gs_dom dom, gs_op op, const void *v, uint vn, void *buffer)
Definition: comm.c:101

fail.h

comm_ext
int comm_ext
Definition: comm.h:69

ulong
#define ulong
Definition: types.h:75

comm::id
uint id
Definition: comm.h:86

gs_defs.h

name.h
establishes some macros to establish naming conventions

np
static uint np
Definition: findpts_test.c:63

comm_init
static void comm_init(struct comm *c, comm_ext ce)
Definition: comm.h:133