A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Exclude smpi_process_argc and smpi_glogal_size when !SMPI_F2C.
[simgrid.git]
/
src
/
smpi
/
smpi_global.c
diff --git
a/src/smpi/smpi_global.c
b/src/smpi/smpi_global.c
index
95d4457
..
c6f99f9
100644
(file)
--- a/
src/smpi/smpi_global.c
+++ b/
src/smpi/smpi_global.c
@@
-89,13
+89,13
@@
void smpi_process_finalize(void)
}
}
}
}
+#ifdef SMPI_F2C
int smpi_process_argc(void) {
smpi_process_data_t data = smpi_process_data();
return data->argc ? *(data->argc) - 1 : 0;
}
int smpi_process_argc(void) {
smpi_process_data_t data = smpi_process_data();
return data->argc ? *(data->argc) - 1 : 0;
}
-#ifdef SMPI_F2C
int smpi_process_getarg(integer* index, char* dst, ftnlen len) {
smpi_process_data_t data = smpi_process_data();
char* arg;
int smpi_process_getarg(integer* index, char* dst, ftnlen len) {
smpi_process_data_t data = smpi_process_data();
char* arg;
@@
-114,7
+114,6
@@
int smpi_process_getarg(integer* index, char* dst, ftnlen len) {
}
return 0;
}
}
return 0;
}
-#endif
int smpi_global_size(void) {
char* value = getenv("SMPI_GLOBAL_SIZE");
int smpi_global_size(void) {
char* value = getenv("SMPI_GLOBAL_SIZE");
@@
-125,6
+124,7
@@
int smpi_global_size(void) {
}
return atoi(value);
}
}
return atoi(value);
}
+#endif
smpi_process_data_t smpi_process_data(void)
{
smpi_process_data_t smpi_process_data(void)
{