Lines Matching refs:fres
59 dimension fres(nshg,33), fwr(nshg),
90 fres = zero
250 & fres, hfres, shgl(lcsyst,:,1:nshl,:),
279 if(numpe>1) call commu (fres, ilwork, 33, 'in ')
286 fres(i,:) = fres(i,:) + fres(j,:)
287 fres(j,:) = fres(i,:)
292 fres = fres(iper,:)
293 if(numpe>1) call commu (fres, ilwork, 33, 'out')
299 fres(:,23) = one / fres(:,23)
301 fres(:,j) = fres(:,j) * fres(:,23)
305 fres(:,j) = fres(:,j) * fres(:,23)
313 & two * (fres(:,10)**2 + fres(:,11)**2 + fres(:,12)**2)
314 & + four * ( fres(:,13)**2 + fres(:,14)**2 + fres(:,15)**2 ) )
316 fwr = fwr1 * fres(:,22) * strnrm
321 & * pt33 * (two*fres(:,10) - fres(:,11) - fres(:,12))
322 & + pt33 * (two*fres(:,16) - fres(:,17) - fres(:,18))
325 & * pt33 * (two*fres(:,11) - fres(:,10) - fres(:,12))
326 & + pt33 * (two*fres(:,17) - fres(:,16) - fres(:,18))
329 & * pt33 * (two*fres(:,12) - fres(:,10) - fres(:,11))
330 & + pt33 * (two*fres(:,18) - fres(:,16) - fres(:,17))
335 & * fres(:,10) + fres(:,16)
337 & * fres(:,11) + fres(:,17)
339 & * fres(:,12) + fres(:,18)
343 xmij(:,4) = -fwr * fres(:,13) + fres(:,19)
344 xmij(:,5) = -fwr * fres(:,14) + fres(:,20)
345 xmij(:,6) = -fwr * fres(:,15) + fres(:,21)
347 fres(:,22) = one / fres(:,22)
349 xlij(:,1) = fres(:,4) - fres(:,1) * fres(:,1) * fres(:,22)
350 xlij(:,2) = fres(:,5) - fres(:,2) * fres(:,2) * fres(:,22)
351 xlij(:,3) = fres(:,6) - fres(:,3) * fres(:,3) * fres(:,22)
352 xlij(:,4) = fres(:,7) - fres(:,1) * fres(:,2) * fres(:,22)
353 xlij(:,5) = fres(:,8) - fres(:,1) * fres(:,3) * fres(:,22)
354 xlij(:,6) = fres(:,9) - fres(:,2) * fres(:,3) * fres(:,22)
356 xhij(:,1) = fres(:,28) - fres(:,25)*fres(:,25)
357 xhij(:,2) = fres(:,29) - fres(:,26)*fres(:,26)
358 xhij(:,3) = fres(:,30) - fres(:,27)*fres(:,27)
359 xhij(:,4) = fres(:,31) - fres(:,25)*fres(:,26)
360 xhij(:,5) = fres(:,32) - fres(:,25)*fres(:,27)
361 xhij(:,6) = fres(:,33) - fres(:,26)*fres(:,27)
825 subroutine twohfilter (y, x, strnrm, ien, fres, argument
830 dimension y(nshg,ndof), fres(nshg,33)
1036 fres(ien(nel,j),:) = fres(ien(nel,j),:) + fresl(nel,:)