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
remove unwanted files
[simgrid.git]
/
teshsuite
/
smpi
/
mpich-test
/
pt2pt
/
send1.f
diff --git
a/teshsuite/smpi/mpich-test/pt2pt/send1.f
b/teshsuite/smpi/mpich-test/pt2pt/send1.f
index
c0c954e
..
141f2d2
100644
(file)
--- a/
teshsuite/smpi/mpich-test/pt2pt/send1.f
+++ b/
teshsuite/smpi/mpich-test/pt2pt/send1.f
@@
-28,17
+28,15
@@
C
INTEGER STATUS(MPI_STATUS_SIZE)
INTEGER TAG_UP_BD
INTEGER STATUS(MPI_STATUS_SIZE)
INTEGER TAG_UP_BD
- LOGICAL FLAG
CALL MPI_INIT(IERR)
CALL MPI_COMM_RANK
$ (MPI_COMM_WORLD,INODE,IERR)
CALL MPI_COMM_SIZE
$ (MPI_COMM_WORLD,ITOTNODE,IERR)
CALL MPI_INIT(IERR)
CALL MPI_COMM_RANK
$ (MPI_COMM_WORLD,INODE,IERR)
CALL MPI_COMM_SIZE
$ (MPI_COMM_WORLD,ITOTNODE,IERR)
- CALL MPI_ATTR_GET
- $ (MPI_COMM_WORLD,MPI_TAG_UB,TAG_UP_BD,FLAG,IERR)
-
- IF (.NOT.FLAG) STOP
+C CALL MPI_ATTR_GET
+C $ (MPI_COMM_WORLD,MPI_TAG_UB,TAG_UP_BD,FLAG,IERR)
+ TAG_UP_BD=1000000
CALL MPI_BARRIER(MPI_COMM_WORLD,IERR)
CALL MPI_BARRIER(MPI_COMM_WORLD,IERR)