Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.1 by heimbach, Wed Jul 20 20:01:46 2005 UTC | revision 1.2 by jmc, Fri Nov 4 01:20:30 2005 UTC | |
|---|---|---|
| # | Line 13 C global,local - working arrays used | Line 13 C global,local - working arrays used |
| 13 | Real*8 global(length*nPx*nPy) | Real*8 global(length*nPx*nPy) |
| 14 | _RL local(length) | _RL local(length) |
| 15 | ||
| 16 | INTEGER iG,jG,lG, i, j, l | INTEGER iG,jG,lG, l |
| 17 | #ifdef ALLOW_USE_MPI | #ifdef ALLOW_USE_MPI |
| 18 | COMMON /GlobalLo/ mpi_myXGlobalLo, mpi_myYGlobalLo | COMMON /GlobalLo/ mpi_myXGlobalLo, mpi_myYGlobalLo |
| 19 | INTEGER mpi_myXGlobalLo(nPx*nPy) | INTEGER mpi_myXGlobalLo(nPx*nPy) |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |