Lines Matching refs:isclr
288 isclr=1 ! fix scalar
289 do isclr=1,nsclr
366 isclr=0
369 do isclr=1,nsclr
408 isclr=0
412 isclr=isolve
413 ifuncs(isclr+2) = ifuncs(isclr+2) + 1
414 j=isclr+nsolt
416 & .and.(isclr.eq.2)) then
439 lhs = 1 - min(1,mod(ifuncs(isclr+2)-1,
440 & LHSupd(isclr+2)))
450 & solinc(1,isclr+5), tcorecpscal
452 & ,svLS_lhs_S(isclr), svLS_ls_S(isclr), svls_nfaces)
466 isclr=iupdate !unless
467 if(icode.eq.6) isclr=0
469 call itrCorrectSclrPos(y,ac,solinc(1,isclr+5))
471 call itrCorrectSclr (y, ac, solinc(1,isclr+5))
473 if (ilset.eq.2 .and. isclr.eq.2) then