Parent Directory | Revision Log | Revision Graph | Patch
revision 1.12 by jmc, Fri Apr 23 20:21:07 2010 UTC | revision 1.13 by jmc, Tue Sep 4 00:45:25 2012 UTC | |
---|---|---|
# | Line 83 C source and target tile | Line 83 C source and target tile |
83 | IF ( commSetting .EQ. 'M' ) THEN | IF ( commSetting .EQ. 'M' ) THEN |
84 | C Setup MPI stuff here | C Setup MPI stuff here |
85 | theTag = (thisTile-1)*W2_maxNeighbours + nN | theTag = (thisTile-1)*W2_maxNeighbours + nN |
86 | tProc = exch2_tProc(tgT)-1 | tProc = W2_tileProc(tgT)-1 |
87 | sProc = exch2_tProc(thisTile)-1 | sProc = W2_tileProc(thisTile)-1 |
88 | theType = _MPI_TYPE_RX | theType = _MPI_TYPE_RX |
89 | #ifdef W2_E2_DEBUG_ON | #ifdef W2_E2_DEBUG_ON |
90 | WRITE(msgBuf,'(A,I5,A,I5,A)') | WRITE(msgBuf,'(A,I5,A,I5,A)') |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |