Searched refs:ivartsg (Results 1 – 4 of 4) sorted by relevance
15 integer, allocatable :: ivartsg(:) variable46 allocate (ivartsg(ntspts*ndof))68 deallocate (ivartsg)
1789 call MPI_ALLREDUCE(ivarts, ivartsg, ndof*ntspts,1801 … if(ivartsg(indxvarts+k).ne.0) then ! none of the vartssoln(parts) were non zero1803 & ivartsg(indxvarts+k)
41 allocate (ivartsg( ntspts*ndof))214 call MPI_REDUCE(ivarts, ivartsg, ndof*ntspts,224 if(ivartsg(indxvarts+k).ne.0) then ! none of the vartssoln(parts) were non zero226 & vartssolng(indxvarts+k) / ivartsg(indxvarts+k)332 deallocate(ivartsg)
17 integer, allocatable, dimension(:) :: ivartsg variable