Lines Matching refs:giju
270 subroutine e3LHSSclr ( uMod, giju, dcFct, argument
293 & tmp(npro), dcFct(npro), giju(npro,6)
346 giju(:,1) = tmp * giju(:,1)
347 giju(:,2) = tmp * giju(:,2)
348 giju(:,3) = tmp * giju(:,3)
349 giju(:,4) = tmp * giju(:,4)
350 giju(:,5) = tmp * giju(:,5)
351 giju(:,6) = tmp * giju(:,6)
353 t1(:,1) = t1(:,1) + giju(:,1) * shg(:,b,1)
354 2 + giju(:,4) * shg(:,b,2)
355 3 + giju(:,6) * shg(:,b,3)
356 t1(:,2) = t1(:,2) + giju(:,4) * shg(:,b,1)
357 2 + giju(:,2) * shg(:,b,2)
358 3 + giju(:,5) * shg(:,b,3)
359 t1(:,3) = t1(:,3) + giju(:,6) * shg(:,b,1)
360 2 + giju(:,5) * shg(:,b,2)
361 3 + giju(:,3) * shg(:,b,3)