Lines Matching refs:isclr
235 isclr=1 ! fix scalar
253 isclr=0
304 isclr=1 ! fix scalar
400 isclr = zero
402 do isclr=1,nsclr
528 isclr=isolve
529 … etol=epstol(isclr+2) ! note that for both epstol and LHSupd 1 is flow 2 temp isclr+2 for scalars
530 ifuncs(isclr+2) = ifuncs(isclr+2) + 1
532 & .and.(isclr.eq.2)) then
556 lhs = 1 - min(1,mod(ifuncs(isclr+2)-1,
557 & LHSupd(isclr+2)))
569 & solinc(1,isclr+5),fncorp)
576 & acold, EGmasst(1,isclr),
584 & shpb, shglb, solinc(1,isclr+5))
606 isclr=iupdate !unless
607 if(iupdate.eq.nsclr+1) isclr=0
609 & solinc(1,isclr+5))
610 if (ilset.eq.2 .and. isclr.eq.2) then
658 do isclr=1,nsclr