Lines Matching refs:fres
21 dimension fres(nshg,24), fwr(nshg),
57 fres = zero
83 call asithf (y, x, strl(iel:inum,:), mien(iblk)%p, fres,
115 if(numpe>1) call commu (fres, ilwork, 24, 'in ')
123 fres(i,:) = fres(i,:) + fres(j,:) ! masters = masters + slaves
129 fres(j,:) = fres(i,:) !slaves get copy of the complete master
134 if(numpe>1) call commu (fres, ilwork, 24, 'out')
140 fres(:,23) = one / fres(:,23)
142 fres(:,j) = fres(:,j) * fres(:,23) !"solve"
151 & two * (fres(:,10)**2 + fres(:,11)**2 + fres(:,12)**2)
152 & + four * ( fres(:,13)**2 + fres(:,14)**2 + fres(:,15)**2 ) )
154 fwr = fwr1 * fres(:,22) * strnrm
165 & * pt33 * (two*fres(:,10) - fres(:,11) - fres(:,12))
166 & + pt33 * (two*fres(:,16) - fres(:,17) - fres(:,18))
168 & * pt33 * (two*fres(:,11) - fres(:,10) - fres(:,12))
169 & + pt33 * (two*fres(:,17) - fres(:,16) - fres(:,18))
171 & * pt33 * (two*fres(:,12) - fres(:,10) - fres(:,11))
172 & + pt33 * (two*fres(:,18) - fres(:,16) - fres(:,17))
177 & * fres(:,10) + fres(:,16)
179 & * fres(:,11) + fres(:,17)
181 & * fres(:,12) + fres(:,18)
185 xmij(:,4) = -fwr * fres(:,13) + fres(:,19)
186 xmij(:,5) = -fwr * fres(:,14) + fres(:,20)
187 xmij(:,6) = -fwr * fres(:,15) + fres(:,21)
189 fres(:,22) = one / fres(:,22)
191 xlij(:,1) = fres(:,4) - fres(:,1) * fres(:,1) * fres(:,22)
192 xlij(:,2) = fres(:,5) - fres(:,2) * fres(:,2) * fres(:,22)
193 xlij(:,3) = fres(:,6) - fres(:,3) * fres(:,3) * fres(:,22)
194 xlij(:,4) = fres(:,7) - fres(:,1) * fres(:,2) * fres(:,22)
195 xlij(:,5) = fres(:,8) - fres(:,1) * fres(:,3) * fres(:,22)
196 xlij(:,6) = fres(:,9) - fres(:,2) * fres(:,3) * fres(:,22)