Lines Matching refs:fres
108 subroutine getxnut (fres, xden, xnum, ien, shp) argument
112 dimension ien(npro,nshl), fres(nshg,22),
122 call local (fres, fresl, ien, 22, 'gather ')
289 dimension fres(nshg,24), fwr(nshg),
300 fres = zero
329 call asithf (yold, x, strl(iel:inum,:), mien(iblk)%p, fres,
336 if(numpe>1) call commu (fres, ilwork, 24, 'in ')
343 fres(i,:) = fres(i,:) + fres(j,:)
350 fres(j,:) = fres(i,:)
355 call commu (fres, ilwork, 24, 'out')
358 fres(:,23) = one / fres(:,23)
360 fres(:,j) = fres(:,j) * fres(:,23)
376 call smagcoeff (fres(:,1:22), xden, xnum, mien(iblk)%p,
448 subroutine smagcoeff (fres, xden, xnum, ien, shp, lfathe) argument
452 dimension ien(npro,nshl), fres(nshg,22),
461 call local (fres, fresl, ien, 22, 'gather ')