Searched refs:nsclrsol (Results 1 – 3 of 3) sorted by relevance
26 subroutine aSDs(nsclrsol) argument29 allocate (lhsS(nnz_tot,nsclrsol))31 allocate (apermS(nshg,nPermDimsS,nsclrsol))
1499 nsclrsol=nsolt+nsclr ! total number of scalars solved At1625 if(nsclrsol.gt.0) then1626 do isolsc=1,nsclrsol ! this loop sets up unique data for each scalar solved1695 call aSDs(nsclrsol)
264 nsclrsol=nsclr ! total number of scalars solved. At271 if(nsclrsol.gt.0)allocate (EGmasst(numel*nshape*nshape272 & ,nsclrsol))