Lines Matching refs:jp1
16 int c, m, i, j, k, ip1, im1, jp1,
172 jp1 = j+1;
175 ty2*( ue(jp1,3)-ue(jm1,3) )+
176 dy1ty1*(ue(jp1,1)-2.0e0*ue(j,1)+ue(jm1,1));
179 ue(jp1,2)*buf(jp1,3)-ue(jm1,2)*buf(jm1,3))+
180 yycon2*(buf(jp1,2)-2.0e0*buf(j,2)+buf(jm1,2))+
181 dy2ty1*( ue(jp1,2)-2.0* ue(j,2)+ ue(jm1,2));
184 (ue(jp1,3)*buf(jp1,3)+c2*(ue(jp1,5)-q(jp1)))-
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));
190 ue(jp1,4)*buf(jp1,3)-ue(jm1,4)*buf(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));
195 buf(jp1,3)*(c1*ue(jp1,5)-c2*q(jp1))-
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));