Lines Matching refs:ql
26 dimension qres(nshg,nsd*nsd), ql(npro,nshl,nsd*nsd),
62 call local (qres, ql, ien, nsd*nsd, 'gather ')
67 & xl, ql, xmudmi,
250 divqi(:,1) = divqi(:,1) + shg(:,n,1)*ql(:,n,1 )
251 & + shg(:,n,2)*ql(:,n,4 )
252 & + shg(:,n,3)*ql(:,n,7 )
254 divqi(:,2) = divqi(:,2) + shg(:,n,1)*ql(:,n,2 )
255 & + shg(:,n,2)*ql(:,n,5 )
256 & + shg(:,n,3)*ql(:,n,8)
258 divqi(:,3) = divqi(:,3) + shg(:,n,1)*ql(:,n,3 )
259 & + shg(:,n,2)*ql(:,n,6 )
260 & + shg(:,n,3)*ql(:,n,9 )