Searched defs:COMMUV (Results 1 – 1 of 1) sorted by relevance
| /phasta/svLS/ |
| H A D | INCOMMU.f | 41 SUBROUTINE COMMUV(dof, nNo, commu, cS, R) subroutine
45 INTEGER, INTENT(IN) :: dof, nNo
46 TYPE(svLS_commuType), INTENT(IN) :: commu
47 TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks)
48 REAL*8, INTENT(INOUT) :: R(dof,nNo)
50 INTEGER i, j, k, s, e, ierr, nTasks, tF, stat(MPI_STATUS_SIZE) local
51 INTEGER comm
52 REAL*8, ALLOCATABLE :: rTmp(:,:)
|