Lines Matching refs:alfi
426 alfit=alfi
431 alfi = 1
511 alfi =alfit
1016 ConvCoef(j,1)=ConvCoef(j,1)*(1.0-alfi)*(1.0-alfi)
1017 ConvCoef(j,2)=ConvCoef(j,2)*(1.0+2*alfi*(1.0-alfi))
1018 ConvCoef(j,3)=ConvCoef(j,3)*alfi*alfi
1056 & - ImpConvCoef(numTpoints+2,:)*(1.0-alfi)/alfi
1057 ImpConvCoef(numTpoints+2,:)= ImpConvCoef(numTpoints+2,:)/alfi
1183 RCRConvCoef(1,:) = ValueListRCR(1,:)*(1.0-alfi) +
1184 & ValueListRCR(3,:)*(-alfi + 1.0 + 1/dtRCR(:)
1185 & - exp(-alfi*dtRCR(:))*(1 + 1/dtRCR(:)))
1186 RCRConvCoef(2,:) = ValueListRCR(1,:)*alfi
1188 & *(alfi - 1/dtRCR(:) + exp(-alfi*dtRCR(:))/dtRCR(:))
1191 RCRConvCoef(1,:) =-ValueListRCR(3,:)*exp(-dtRCR(:)*(stepn+alfi))
1193 RCRConvCoef(stepn+1,:) = ValueListRCR(1,:)*(1-alfi)
1194 & - ValueListRCR(3,:)*(alfi - 1 - 1/dtRCR(:)
1195 & + exp(-alfi*dtRCR(:))/dtRCR(:)*(2 - exp(-dtRCR(:))))
1196 RCRConvCoef(stepn+2,:) = ValueListRCR(1,:)*alfi
1198 & *(alfi - 1/dtRCR(:) + exp(-alfi*dtRCR(:))/dtRCR(:))
1203 & exp(-dtRCR(:)*(stepn + alfi + 2 - j))*
1210 & - RCRConvCoef(stepn+2,:)*(1.0-alfi)/alfi
1211 RCRConvCoef(stepn+2,:)= RCRConvCoef(stepn+2,:)/alfi
1229 call RCRint(timestepRCR*(stepn + alfi),PdistCur)
1231 & *exp(-dtRCR(1:numSrfs)*(stepn + alfi)) + PdistCur(1:numSrfs)