1 /* Copyright (c) 2007, 2008, 2009, 2010. 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 HAVE_F2C_H @HAVE_SMPI_F2C_H@
13 #error F2C is mandatory
17 #include <smpi/smpi.h>
20 XBT_PUBLIC(int) smpi_process_argc(void);
21 XBT_PUBLIC(int) smpi_process_getarg(integer* index, char* dst, ftnlen len);
22 XBT_PUBLIC(int) smpi_global_size(void);
24 #define smpi_sample_local__(pi,pt) \
26 if(smpi_sample_1(0, __FILE__, __LINE__, *pi, *pt)) { \
27 smpi_sample_3(0, __FILE__, __LINE__); \
29 if(!smpi_sample_2(0, __FILE__, __LINE__)) { \
34 #define smpi_sample_global__(pi,pt) \
36 if(smpi_sample_1(1, __FILE__, __LINE__, *pi, *pt)) { \
37 smpi_sample_3(1, __FILE__, __LINE__); \
39 if(!smpi_sample_2(1, __FILE__, __LINE__)) { \