56 |
& Ny = sNy*nSy*nPy, |
& Ny = sNy*nSy*nPy, |
57 |
& Nr = 5) |
& Nr = 5) |
58 |
|
|
59 |
C MAX_OLX - Set to the maximum overlap region size of any array |
C MAX_OLX :: Set to the maximum overlap region size of any array |
60 |
C MAX_OLY that will be exchanged. Controls the sizing of exch |
C MAX_OLY that will be exchanged. Controls the sizing of exch |
61 |
C routine buufers. |
C routine buffers. |
62 |
INTEGER MAX_OLX |
INTEGER MAX_OLX |
63 |
INTEGER MAX_OLY |
INTEGER MAX_OLY |
64 |
PARAMETER ( MAX_OLX = OLx, |
PARAMETER ( MAX_OLX = OLx, |
65 |
& MAX_OLY = OLy ) |
& MAX_OLY = OLy ) |
66 |
|
|
67 |
integer nobcs |
INTEGER nobcs |
68 |
parameter ( nobcs = 4 ) |
PARAMETER ( nobcs = 4 ) |
69 |
|
|