Lines Matching refs:ider2

55 s1386(SISLSurf *ps,int ider1,int ider2,SISLSurf **rsnew,int *jstat)  in s1386()  argument
57 void s1386(ps,ider1,ider2,rsnew,jstat)  in s1386()
60      int  	ider2;
186   if ( ider1 < 0  ||  ider2 < 0 )  goto err156;
215      kk1 = (ider1 + ider2 + 1)*ps->ik1 - (ider1 + ider2);
216      multadd = (ider1+ider2)*ps->ik1 - ider2;
272      kk2 = (ider1 + ider2 + 1)*ps->ik2 - (ider1 + ider2);
273      multadd = (ider1 + ider2)*ps->ik2 - ider1;
324      deriv = newarray((ider1 + 1)*(ider2 + 1)*kdim, DOUBLE);
336 	   denom = pow(denom, (ider1 + ider2 + 1));
337 	   s1424(ps, ider1, ider2, par, &left1, &left2, deriv, &kstat);
341 		 deriv[(ider2*(ider1+1)+ider1)*kdim + ki]*denom;
396      s1720(qc1,ider2,&qc2,&kstat);