Lines Matching refs:j
21 do j=1,2
22 istrt=j+(i-1)*(nflow-1)
23 uv(:,j)=qres(:,istrt)
26 do j=1,2
27 istrt=j+(i-1)*(nflow-1)
28 qres(:,istrt)=uv(:,j)
46 do j= 1,nshg
47 if ((btest(iBC(j),10))) then
48 i = iper(j)
49 rmass(i) = rmass(i) + rmass(j)
51 qres(i,1:idflow) = qres(i,1:idflow) + qres(j,1:idflow)
55 do j= 1,nshg
56 if ((btest(iBC(j),10))) then
57 i = iper(j)
58 rmass(j) = rmass(i)
60 qres(j,1:idflow) = qres(i,1:idflow)
98 do j=1,2
99 istrt=j+(i-1)*(nflow-1)
100 uv(:,j)=qres(:,istrt)
103 do j=1,2
104 istrt=j+(i-1)*(nflow-1)
105 qres(:,istrt)=uv(:,j)
148 do j= 1,nshg
149 if (btest(iBC(j),10)) then
150 i = iper(j)
151 rmass(i) = rmass(i) + rmass(j)
152 qres(i,:) = qres(i,:) + qres(j,:)
156 do j= 1,nshg
157 if (btest(iBC(j),10)) then
158 i = iper(j)
159 rmass(j) = rmass(i)
160 qres(j,:) = qres(i,:)