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 |