Lines Matching refs:itseq
17 if( rhoinf(itseq).lt.0.or.rhoinf(itseq).gt.1) then ! backward Euler
23 almi = (three-rhoinf(itseq))/(one+rhoinf(itseq))/two
24 alfi = one/(one+rhoinf(itseq))
36 if (impl(itseq) .eq. 3) then
38 impl(itseq) = 2
43 if (ipred.eq.4 .and. itseq .eq. 1 ) then
45 if ( rhoinf(itseq) .eq. 0.0 ) then
52 Dtgl = one / Delt(itseq) ! caution: inverse of time step
53 CFLfld = CFLfl(itseq)
54 CFLsld = CFLsl(itseq)
82 u(:,isd) = uold(:,isd) + Delt(itseq)*yold(:,isd) +
84 & Delt(itseq)*Delt(itseq)*acold(:,isd)
96 y = yold+alfi*Delt(itseq)*acold
125 fct1 = gami*Delt(itseq)
126 fct2 = gami*alfi*Delt(itseq)
135 & Delt(itseq)*Delt(itseq)*betai*solinc(:,isd)
155 fct1 = gami*Delt(itseq)
175 fct1 = gami*Delt(itseq)