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
kill all trailling whitespaces
[simgrid.git]
/
src
/
smpi
/
smpi_f77.cpp
diff --git
a/src/smpi/smpi_f77.cpp
b/src/smpi/smpi_f77.cpp
index
be97ecd
..
ffaad7c
100644
(file)
--- a/
src/smpi/smpi_f77.cpp
+++ b/
src/smpi/smpi_f77.cpp
@@
-1,13
+1,15
@@
-/* Copyright (c) 2010-2017. The SimGrid Team.
- * All rights reserved. */
+/* Copyright (c) 2010-2017. The SimGrid Team. All rights reserved. */
/* This program is free software; you can redistribute it and/or modify it
* under the terms of the license (GNU LGPL) which comes with this package. */
/* This program is free software; you can redistribute it and/or modify it
* under the terms of the license (GNU LGPL) which comes with this package. */
-#include <limits.h>
-#include <stdio.h>
-#include "private.h"
-#include "xbt.h"
+#include "src/smpi/private.h"
+#include "src/smpi/smpi_comm.hpp"
+#include "src/smpi/smpi_datatype.hpp"
+#include "src/smpi/smpi_op.hpp"
+#include "src/smpi/smpi_process.hpp"
+#include "src/smpi/smpi_request.hpp"
+#include "src/smpi/smpi_win.hpp"
static int running_processes = 0;
static int running_processes = 0;
@@
-274,7
+276,7
@@
void mpi_startall_(int* count, int* requests, int* ierr) {
void mpi_wait_(int* request, MPI_Status* status, int* ierr) {
MPI_Request req = simgrid::smpi::Request::f2c(*request);
void mpi_wait_(int* request, MPI_Status* status, int* ierr) {
MPI_Request req = simgrid::smpi::Request::f2c(*request);
-
+
*ierr = MPI_Wait(&req, FORT_STATUS_IGNORE(status));
if(req==MPI_REQUEST_NULL){
simgrid::smpi::Request::free_f(*request);
*ierr = MPI_Wait(&req, FORT_STATUS_IGNORE(status));
if(req==MPI_REQUEST_NULL){
simgrid::smpi::Request::free_f(*request);
@@
-562,7
+564,7
@@
void mpi_win_set_name_ (int* win, char * name, int* ierr, int size){
void mpi_win_get_name_ (int* win, char * name, int* len, int* ierr){
*ierr = MPI_Win_get_name(simgrid::smpi::Win::f2c(*win),name,len);
void mpi_win_get_name_ (int* win, char * name, int* len, int* ierr){
*ierr = MPI_Win_get_name(simgrid::smpi::Win::f2c(*win),name,len);
- if(*len>0)
+ if(*len>0)
name[*len]=' ';//blank padding, not \0
}
name[*len]=' ';//blank padding, not \0
}
@@
-584,7
+586,7
@@
void mpi_info_set_( int *info, char *key, char *value, int* ierr, unsigned int k
}
char* tkey = xbt_new(char,keylen+1);
strncpy(tkey, key, keylen);
}
char* tkey = xbt_new(char,keylen+1);
strncpy(tkey, key, keylen);
- tkey[keylen]='\0';
+ tkey[keylen]='\0';
while(value[valuelen-1]==' ')
valuelen--;
while(value[valuelen-1]==' ')
valuelen--;
@@
-594,7
+596,7
@@
void mpi_info_set_( int *info, char *key, char *value, int* ierr, unsigned int k
}
char* tvalue = xbt_new(char,valuelen+1);
strncpy(tvalue, value, valuelen);
}
char* tvalue = xbt_new(char,valuelen+1);
strncpy(tvalue, value, valuelen);
- tvalue[valuelen]='\0';
+ tvalue[valuelen]='\0';
*ierr = MPI_Info_set( simgrid::smpi::Info::f2c(*info), tkey, tvalue);
xbt_free(tkey);
*ierr = MPI_Info_set( simgrid::smpi::Info::f2c(*info), tkey, tvalue);
xbt_free(tkey);
@@
-607,7
+609,7
@@
void mpi_info_get_ (int* info,char *key,int* valuelen, char *value, int *flag, i
while(*key==' '){//handle leading blanks
keylen--;
key++;
while(*key==' '){//handle leading blanks
keylen--;
key++;
- }
+ }
char* tkey = xbt_new(char,keylen+1);
strncpy(tkey, key, keylen);
tkey[keylen]='\0';
char* tkey = xbt_new(char,keylen+1);
strncpy(tkey, key, keylen);
tkey[keylen]='\0';
@@
-622,7
+624,7
@@
void mpi_info_get_ (int* info,char *key,int* valuelen, char *value, int *flag, i
if(replace)
value[i]=' ';
}
if(replace)
value[i]=' ';
}
- }
+ }
}
void mpi_info_free_(int* info, int* ierr){
}
void mpi_info_free_(int* info, int* ierr){
@@
-701,7
+703,7
@@
void mpi_type_set_name_ (int* datatype, char * name, int* ierr, int size){
void mpi_type_get_name_ (int* datatype, char * name, int* len, int* ierr){
*ierr = MPI_Type_get_name(simgrid::smpi::Datatype::f2c(*datatype),name,len);
void mpi_type_get_name_ (int* datatype, char * name, int* len, int* ierr){
*ierr = MPI_Type_get_name(simgrid::smpi::Datatype::f2c(*datatype),name,len);
- if(*len>0)
+ if(*len>0)
name[*len]=' ';
}
name[*len]=' ';
}
@@
-867,7
+869,7
@@
void mpi_comm_free_keyval_ (int* keyval, int* ierr) {
void mpi_comm_get_name_ (int* comm, char* name, int* len, int* ierr){
*ierr = MPI_Comm_get_name(simgrid::smpi::Comm::f2c(*comm), name, len);
void mpi_comm_get_name_ (int* comm, char* name, int* len, int* ierr){
*ierr = MPI_Comm_get_name(simgrid::smpi::Comm::f2c(*comm), name, len);
- if(*len>0)
+ if(*len>0)
name[*len]=' ';
}
name[*len]=' ';
}