Lines Matching refs:e0
33 forcing(m,i,j,k,c) = 0.0e0;
55 dtpp = 1.0e0 / dtemp(1);
64 q(i) = 0.5e0*(buf(i,2)*ue(i,2) + buf(i,3)*ue(i,3) +
75 dx1tx1*(ue(ip1,1)-2.0e0*ue(i,1)+ue(im1,1));
80 xxcon1*(buf(ip1,2)-2.0e0*buf(i,2)+buf(im1,2))+
81 dx2tx1*( ue(ip1,2)-2.0e0* ue(i,2)+ue(im1,2));
85 xxcon2*(buf(ip1,3)-2.0e0*buf(i,3)+buf(im1,3))+
86 dx3tx1*( ue(ip1,3)-2.0e0*ue(i,3) +ue(im1,3));
90 xxcon2*(buf(ip1,4)-2.0e0*buf(i,4)+buf(im1,4))+
91 dx4tx1*( ue(ip1,4)-2.0e0* ue(i,4)+ ue(im1,4));
96 0.5e0*xxcon3*(buf(ip1,1)-2.0e0*buf(i,1)+
98 xxcon4*(cuf(ip1)-2.0e0*cuf(i)+cuf(im1))+
99 xxcon5*(buf(ip1,5)-2.0e0*buf(i,5)+buf(im1,5))+
100 dx5tx1*( ue(ip1,5)-2.0e0* ue(i,5)+ ue(im1,5));
110 (5.0e0*ue(i,m) - 4.0e0*ue(i+1,m) +ue(i+2,m));
113 (-4.0e0*ue(i-1,m) + 6.0e0*ue(i,m) -
114 4.0e0*ue(i+1,m) + ue(i+2,m));
121 (ue(i-2,m) - 4.0e0*ue(i-1,m) +
122 6.0e0*ue(i,m) - 4.0e0*ue(i+1,m) + ue(i+2,m));
130 (ue(i-2,m) - 4.0e0*ue(i-1,m) +
131 6.0e0*ue(i,m) - 4.0e0*ue(i+1,m));
134 (ue(i-2,m) - 4.0e0*ue(i-1,m) + 5.0e0*ue(i,m));
157 dtpp = 1.0e0/dtemp(1);
166 q(j) = 0.5e0*(buf(j,2)*ue(j,2) + buf(j,3)*ue(j,3) +
176 dy1ty1*(ue(jp1,1)-2.0e0*ue(j,1)+ue(jm1,1));
180 yycon2*(buf(jp1,2)-2.0e0*buf(j,2)+buf(jm1,2))+
186 yycon1*(buf(jp1,3)-2.0e0*buf(j,3)+buf(jm1,3))+
187 dy3ty1*( ue(jp1,3)-2.0e0*ue(j,3) +ue(jm1,3));
191 yycon2*(buf(jp1,4)-2.0e0*buf(j,4)+buf(jm1,4))+
192 dy4ty1*( ue(jp1,4)-2.0e0*ue(j,4)+ ue(jm1,4));
197 0.5e0*yycon3*(buf(jp1,1)-2.0e0*buf(j,1)+
199 yycon4*(cuf(jp1)-2.0e0*cuf(j)+cuf(jm1))+
200 yycon5*(buf(jp1,5)-2.0e0*buf(j,5)+buf(jm1,5))+
201 dy5ty1*(ue(jp1,5)-2.0e0*ue(j,5)+ue(jm1,5));
211 (5.0e0*ue(j,m) - 4.0e0*ue(j+1,m) +ue(j+2,m));
214 (-4.0e0*ue(j-1,m) + 6.0e0*ue(j,m) -
215 4.0e0*ue(j+1,m) + ue(j+2,m));
222 (ue(j-2,m) - 4.0e0*ue(j-1,m) +
223 6.0e0*ue(j,m) - 4.0e0*ue(j+1,m) + ue(j+2,m));
231 (ue(j-2,m) - 4.0e0*ue(j-1,m) +
232 6.0e0*ue(j,m) - 4.0e0*ue(j+1,m));
235 (ue(j-2,m) - 4.0e0*ue(j-1,m) + 5.0e0*ue(j,m));
259 dtpp = 1.0e0/dtemp(1);
268 q(k) = 0.5e0*(buf(k,2)*ue(k,2) + buf(k,3)*ue(k,3) +
278 dz1tz1*(ue(kp1,1)-2.0e0*ue(k,1)+ue(km1,1));
282 zzcon2*(buf(kp1,2)-2.0e0*buf(k,2)+buf(km1,2))+
283 dz2tz1*( ue(kp1,2)-2.0e0* ue(k,2)+ ue(km1,2));
287 zzcon2*(buf(kp1,3)-2.0e0*buf(k,3)+buf(km1,3))+
288 dz3tz1*(ue(kp1,3)-2.0e0*ue(k,3)+ue(km1,3));
293 zzcon1*(buf(kp1,4)-2.0e0*buf(k,4)+buf(km1,4))+
294 dz4tz1*( ue(kp1,4)-2.0e0*ue(k,4) +ue(km1,4));
299 0.5e0*zzcon3*(buf(kp1,1)-2.0e0*buf(k,1)
301 zzcon4*(cuf(kp1)-2.0e0*cuf(k)+cuf(km1))+
302 zzcon5*(buf(kp1,5)-2.0e0*buf(k,5)+buf(km1,5))+
303 dz5tz1*( ue(kp1,5)-2.0e0*ue(k,5)+ ue(km1,5));
313 (5.0e0*ue(k,m) - 4.0e0*ue(k+1,m) +ue(k+2,m));
316 (-4.0e0*ue(k-1,m) + 6.0e0*ue(k,m) -
317 4.0e0*ue(k+1,m) + ue(k+2,m));
324 (ue(k-2,m) - 4.0e0*ue(k-1,m) +
325 6.0e0*ue(k,m) - 4.0e0*ue(k+1,m) + ue(k+2,m));
333 (ue(k-2,m) - 4.0e0*ue(k-1,m) +
334 6.0e0*ue(k,m) - 4.0e0*ue(k+1,m));
337 (ue(k-2,m) - 4.0e0*ue(k-1,m) + 5.0e0*ue(k,m));
351 forcing(m,i,j,k,c) = -1.e0 * forcing(m,i,j,k,c);