Searched defs:COMMUS (Results 1 – 1 of 1) sorted by relevance
| /phasta/svLS/ |
| H A D | INCOMMU.f | 129 SUBROUTINE COMMUS(nNo, commu, cS, R) subroutine
133 INTEGER, INTENT(IN) :: nNo
134 TYPE(svLS_commuType), INTENT(IN) :: commu
135 TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks)
136 REAL*8, INTENT(INOUT) :: R(nNo)
138 INTEGER i, j, k, s, e, ierr, nTasks, tF, stat(MPI_STATUS_SIZE) local
139 INTEGER comm
140 REAL*8, ALLOCATABLE :: rTmp(:)
|