396 |
C xFace (y=constant) for XYZ arrays with real*4 declaration. |
C xFace (y=constant) for XYZ arrays with real*4 declaration. |
397 |
arrElSize = 4 |
arrElSize = 4 |
398 |
arrElSep = (sNx+OLx*2)*(sNy+OLy*2) |
arrElSep = (sNx+OLx*2)*(sNy+OLy*2) |
399 |
elCount = Nz |
elCount = Nr |
400 |
elLen = 1 |
elLen = 1 |
401 |
elStride = arrElSize*arrElSep |
elStride = arrElSize*arrElSep |
402 |
CALL MPI_TYPE_HVECTOR(elCount,elLen,elStride, |
CALL MPI_TYPE_HVECTOR(elCount,elLen,elStride, |
482 |
C yFace (x=constant) for XYZ arrays with real*4 declaration |
C yFace (x=constant) for XYZ arrays with real*4 declaration |
483 |
arrElSize = 4 |
arrElSize = 4 |
484 |
arrElSep = (sNx+OLx*2)*(sNy+OLy*2) |
arrElSep = (sNx+OLx*2)*(sNy+OLy*2) |
485 |
elCount = Nz |
elCount = Nr |
486 |
elLen = 1 |
elLen = 1 |
487 |
elStride = arrElSize*arrElSep |
elStride = arrElSize*arrElSep |
488 |
CALL MPI_TYPE_HVECTOR(elCount,elLen,elStride, |
CALL MPI_TYPE_HVECTOR(elCount,elLen,elStride, |