Searched refs:scalIntProc (Results 1 – 1 of 1) sorted by relevance
1280 real*8 scal(nshg), scalInt(0:MAXSURF), scalIntProc(0:MAXSURF) local1282 scalIntProc = zero1289 scalIntProc(irankCoupled) = scalIntProc(irankCoupled)1304 call MPI_ALLREDUCE (scalIntProc, scalInt(:), npars,