Lines Matching refs:fact
24 dimension fact(npro,5), temp(npro),
44 fact(:,1) = shpij * (temp + bcool*spongeContinuity)
45 fact(:,2) = shpij * (temp + bcool*spongeMomentum1)
46 fact(:,3) = shpij * (temp + bcool*spongeMomentum2)
47 fact(:,4) = shpij * (temp + bcool*spongeMomentum3)
48 fact(:,5) = shpij * (temp + bcool*spongeEnergy)
54 & + fact(:,1) * A0(:,1,jdof)
56 & + fact(:,2) * A0(:,2,jdof)
58 & + fact(:,3) * A0(:,3,jdof)
60 & + fact(:,4) * A0(:,4,jdof)
62 & + fact(:,5) * A0(:,5,jdof)
103 dimension fact(npro), temp(npro),
118 fact = shpij * temp
119 EGmasst(:,i,j) = EGmasst(:,i,j) + fact * A0t(:)