Lines Matching refs:qres
1 subroutine qpbc( rmass, qres, iBC, iper, ilwork ) argument
15 dimension rmass(nshg), qres(nshg,idflx),
23 uv(:,j)=qres(:,istrt)
28 qres(:,istrt)=uv(:,j)
37 call commu (qres , ilwork, idflx , 'in ')
51 qres(i,1:idflow) = qres(i,1:idflow) + qres(j,1:idflow)
60 qres(j,1:idflow) = qres(i,1:idflow)
69 qres(:,i) = rmass*qres(:,i)
76 tmp = sqrt(qres(:,idflow+1)**2
77 & + qres(:,idflow+2)**2
78 & + qres(:,idflow+3)**2)
85 qres(:,idflow+i) = tmp*qres(:,idflow+i)
90 call commu (qres, ilwork, idflx, 'out')
100 uv(:,j)=qres(:,istrt)
105 qres(:,istrt)=uv(:,j)
117 subroutine qpbcSclr( rmass, qres, iBC, iper, ilwork ) argument
131 dimension rmass(nshg), qres(nshg,nsd),
135 & call rotabc(qres, iBC, 'in ')
141 call commu (qres , ilwork, nsd , 'in ')
152 qres(i,:) = qres(i,:) + qres(j,:)
160 qres(j,:) = qres(i,:)
169 qres(:,i) = rmass*qres(:,i)
173 call commu (qres, ilwork, nsd, 'out')
177 & call rotabc(qres, iBC, 'out')