Lines Matching refs:src
38 real*8 src(npro,nflow), bcool(npro),
45 src=zero
50 src(:,1) = zero
51 src(:,2) = rho(:) * datmat(1,5,1)
52 src(:,3) = rho(:) * datmat(2,5,1)
53 src(:,4) = rho(:) * datmat(3,5,1)
54 src(:,5) = u1*src(:,2) + u2*src(:,3) + u3*src(:,4)
71 src(:,2) = rho(:) * ampl * delta
75 src(:,5) = u1*src(:,2)
112 & src(id,1) = -bcool(id)*(dui(id,1) - duitarg(id,1))
114 & src(id,2) = -bcool(id)*(dui(id,2) - duitarg(id,2))
116 & src(id,3) = -bcool(id)*(dui(id,3) - duitarg(id,3))
118 & src(id,4) = -bcool(id)*(dui(id,4) - duitarg(id,4))
120 & src(id,5) = -bcool(id)*(dui(id,5) - duitarg(id,5))
128 src=zero
165 & src(id,1) = -bcool(id)*(dui(id,1) - duitarg(id,1))
167 & src(id,2) = -bcool(id)*(dui(id,2) - duitarg(id,2))
169 & src(id,3) = -bcool(id)*(dui(id,3) - duitarg(id,3))
171 & src(id,4) = -bcool(id)*(dui(id,4) - duitarg(id,4))
173 & src(id,5) = -bcool(id)*(dui(id,5) - duitarg(id,5))
185 src(:,2) = src(:,2) + rho(:)*sforce(:,1)
186 src(:,3) = src(:,3) + rho(:)*sforce(:,2)
187 src(:,4) = src(:,4) + rho(:)*sforce(:,3)
188 src(:,5) = src(:,5) + (u1*sforce(:,1)+u2*sforce(:,2)
196 rLyi(:,1) = rLyi(:,1) - src(:,1)
197 rLyi(:,2) = rLyi(:,2) - src(:,2)
198 rLyi(:,3) = rLyi(:,3) - src(:,3)
199 rLyi(:,4) = rLyi(:,4) - src(:,4)
200 rLyi(:,5) = rLyi(:,5) - src(:,5)
204 ri (:,16) = ri (:,16) - src(:,1)
205 ri (:,17) = ri (:,17) - src(:,2)
206 ri (:,18) = ri (:,18) - src(:,3)
207 ri (:,19) = ri (:,19) - src(:,4)
208 ri (:,20) = ri (:,20) - src(:,5)
213 rmi (:,16) = rmi (:,16) - src(:,1)
214 rmi (:,17) = rmi (:,17) - src(:,2)
215 rmi (:,18) = rmi (:,18) - src(:,3)
216 rmi (:,19) = rmi (:,19) - src(:,4)
217 rmi (:,20) = rmi (:,20) - src(:,5)