1 /* Copyright (c) 2007-2014. The SimGrid Team.
2 * All rights reserved. */
4 /* This program is free software; you can redistribute it and/or modify it
5 * under the terms of the license (GNU LGPL) which comes with this package. */
10 #cmakedefine SMPI_F2C @SMPI_F2C@
15 #include <smpi/smpi.h>
18 XBT_PUBLIC_DATA(__thread int) smpi_current_rank;
20 XBT_PUBLIC(int) smpi_process_argc(void);
21 XBT_PUBLIC(int) smpi_process_getarg(integer* index, char* dst, ftnlen len);
23 #define smpi_sample_local__(pi,pt) \
25 if(smpi_sample_1(0, __FILE__, __LINE__, *pi, *pt)) { \
26 smpi_sample_3(0, __FILE__, __LINE__); \
28 if(!smpi_sample_2(0, __FILE__, __LINE__)) { \
33 #define smpi_sample_global__(pi,pt) \
35 if(smpi_sample_1(1, __FILE__, __LINE__, *pi, *pt)) { \
36 smpi_sample_3(1, __FILE__, __LINE__); \
38 if(!smpi_sample_2(1, __FILE__, __LINE__)) { \