41       SUBROUTINE COMMUV(dof, nNo, commu, cS, R)  argument
46       TYPE(svLS_commuType), INTENT(IN) :: commu  local
47       TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks)
54       IF (commu%nTasks .EQ. 1) RETURN
56       nTasks = commu%nTasks
57       tF     = commu%tF
58       comm   = commu%comm
129       SUBROUTINE COMMUS(nNo, commu, cS, R)  argument
134       TYPE(svLS_commuType), INTENT(IN) :: commu  local
135       TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks)
142       IF (commu%nTasks .EQ. 1) RETURN
144       nTasks = commu%nTasks
145       tF     = commu%tF
146       comm   = commu%comm