Searched refs:ivarts (Results 1 – 4 of 4) sorted by relevance
14 integer, allocatable :: ivarts(:) variable45 allocate (ivarts(ntspts*ndof))67 deallocate (ivarts)
1768 ivarts=zero1771 if(vartssoln(k).ne.zero) ivarts(k)=11789 call MPI_ALLREDUCE(ivarts, ivartsg, ndof*ntspts,
40 allocate (ivarts( ntspts*ndof))201 ivarts=zero206 if(vartssoln(k).ne.zero) ivarts(k)=1214 call MPI_REDUCE(ivarts, ivartsg, ndof*ntspts,331 deallocate(ivarts)
16 integer, allocatable, dimension(:) :: ivarts variable