6 void ssqjac(int m, int n, const real *x, real *fjac, int ldfjac, int nprob)  in ssqjac()  argument
59     fjac -= 1 + ldfjac;  in ssqjac()
73                     fjac[i + j * ldfjac] = -temp;  in ssqjac()
75                 fjac[j + j * ldfjac] += 1.;  in ssqjac()
84                     fjac[i + j * ldfjac] = (real) i * (real) j;  in ssqjac()
94                     fjac[i + j * ldfjac] = 0.;  in ssqjac()
117                         fjac[i + j * ldfjac] = (real) (i - 1) * (real) j;  in ssqjac()
127             fjac[1 + 1 * ldfjac] = -20. * x[1];  in ssqjac()
128             fjac[1 + 2 * ldfjac] = 10.;  in ssqjac()
129             fjac[2 + 1 * ldfjac] = -1.;  in ssqjac()
130             fjac[2 + 2 * ldfjac] = 0.;  in ssqjac()
140             fjac[1 + 1 * ldfjac] = 100. * x[2] / tmp1;  in ssqjac()
141             fjac[1 + 2 * ldfjac] = -100. * x[1] / tmp1;  in ssqjac()
142             fjac[1 + 3 * ldfjac] = 10.;  in ssqjac()
143             fjac[2 + 1 * ldfjac] = 10. * x[1] / tmp2;  in ssqjac()
144             fjac[2 + 2 * ldfjac] = 10. * x[2] / tmp2;  in ssqjac()
145             fjac[2 + 3 * ldfjac] = 0.;  in ssqjac()
146             fjac[3 + 1 * ldfjac] = 0.;  in ssqjac()
147             fjac[3 + 2 * ldfjac] = 0.;  in ssqjac()
148             fjac[3 + 3 * ldfjac] = 1.;  in ssqjac()
156                     fjac[i + j * ldfjac] = 0.;  in ssqjac()
159             fjac[1 + 1 * ldfjac] = 1.;  in ssqjac()
160             fjac[1 + 2 * ldfjac] = 10.;  in ssqjac()
161             fjac[2 + 3 * ldfjac] = sqrt(5.);  in ssqjac()
162             fjac[2 + 4 * ldfjac] = -fjac[2 + 3 * ldfjac];  in ssqjac()
163             fjac[3 + 2 * ldfjac] = 2. * (x[2] - 2. * x[3]);  in ssqjac()
164             fjac[3 + 3 * ldfjac] = -2. * fjac[3 + 2 * ldfjac];  in ssqjac()
165             fjac[4 + 1 * ldfjac] = 2. * sqrt(10.) * (x[1] - x[4]);  in ssqjac()
166             fjac[4 + 4 * ldfjac] = -fjac[4 + 1 * ldfjac];  in ssqjac()
172             fjac[1 + 1 * ldfjac] = 1.;  in ssqjac()
173             fjac[1 + 2 * ldfjac] = x[2] * (10. - 3. * x[2]) - 2.;  in ssqjac()
174             fjac[2 + 1 * ldfjac] = 1.;  in ssqjac()
175             fjac[2 + 2 * ldfjac] = x[2] * (2. + 3. * x[2]) - 14.;  in ssqjac()
191                 fjac[i + 1 * ldfjac] = -1.;  in ssqjac()
192                 fjac[i + 2 * ldfjac] = tmp1 * tmp2 / tmp4;  in ssqjac()
193                 fjac[i + 3 * ldfjac] = tmp1 * tmp3 / tmp4;  in ssqjac()
203                 fjac[i + 1 * ldfjac] = -tmp1 / tmp2;  in ssqjac()
204                 fjac[i + 2 * ldfjac] = -v[i - 1] * x[1] / tmp2;  in ssqjac()
205                 fjac[i + 3 * ldfjac] = fjac[i + 1 * ldfjac] * fjac[i + 2 * ldfjac];  in ssqjac()
206                 fjac[i + 4 * ldfjac] = fjac[i + 3 * ldfjac] / v[i - 1];  in ssqjac()
217                 fjac[i + 1 * ldfjac] = tmp2;  in ssqjac()
218                 fjac[i + 2 * ldfjac] = x[1] * tmp2 / temp;  in ssqjac()
219                 fjac[i + 3 * ldfjac] = -tmp1 * fjac[i + 2 * ldfjac];  in ssqjac()
237                     fjac[i + j * ldfjac] = dx * ((real) (j - 1) - temp);  in ssqjac()
243                     fjac[i + j * ldfjac] = 0.;  in ssqjac()
246             fjac[30 + 1 * ldfjac] = 1.;  in ssqjac()
247             fjac[31 + 1 * ldfjac] = -2. * x[1];  in ssqjac()
248             fjac[31 + 2 * ldfjac] = 1.;  in ssqjac()
257                 fjac[i + 1 * ldfjac] = -tmp1 * exp(-tmp1 * x[1]);  in ssqjac()
258                 fjac[i + 2 * ldfjac] = tmp1 * exp(-tmp1 * x[2]);  in ssqjac()
259                 fjac[i + 3 * ldfjac] = exp(-temp) - exp(-tmp1);  in ssqjac()
268                 fjac[i + 1 * ldfjac] = -temp * exp(temp * x[1]);  in ssqjac()
269                 fjac[i + 2 * ldfjac] = -temp * exp(temp * x[2]);  in ssqjac()
281                 fjac[i + 1 * ldfjac] = 2. * tmp1;  in ssqjac()
282                 fjac[i + 2 * ldfjac] = temp * fjac[i + 1 * ldfjac];  in ssqjac()
283                 fjac[i + 3 * ldfjac] = 2. * tmp2;  in ssqjac()
284                 fjac[i + 4 * ldfjac] = ti * fjac[i + 3 * ldfjac];  in ssqjac()
299                     fjac[i + j * ldfjac] = dx * tmp4;  in ssqjac()
317                     fjac[i + j * ldfjac] = 1.;  in ssqjac()
319                 fjac[j + j * ldfjac] = 2.;  in ssqjac()
332                 fjac[n + j * ldfjac] = prod / temp;  in ssqjac()
343                 fjac[i + 1 * ldfjac] = -1.;  in ssqjac()
344                 fjac[i + 2 * ldfjac] = -tmp1;  in ssqjac()
345                 fjac[i + 3 * ldfjac] = -tmp2;  in ssqjac()
346                 fjac[i + 4 * ldfjac] = temp * x[2] * tmp1;  in ssqjac()
347                 fjac[i + 5 * ldfjac] = temp * x[3] * tmp2;  in ssqjac()
366                 fjac[i + 1 * ldfjac] = -tmp1;  in ssqjac()
367                 fjac[i + 2 * ldfjac] = -tmp2;  in ssqjac()
368                 fjac[i + 3 * ldfjac] = -tmp3;  in ssqjac()
369                 fjac[i + 4 * ldfjac] = -tmp4;  in ssqjac()
370                 fjac[i + 5 * ldfjac] = temp * x[1] * tmp1;  in ssqjac()
373                 fjac[i + 6 * ldfjac] = x[2] * (d__1 * d__1) * tmp2;  in ssqjac()
376                 fjac[i + 7 * ldfjac] = x[3] * (d__1 * d__1) * tmp3;  in ssqjac()
379                 fjac[i + 8 * ldfjac] = x[4] * (d__1 * d__1) * tmp4;  in ssqjac()
380                 fjac[i + 9 * ldfjac] = -2. * x[2] * x[6] * (temp - x[9]) * tmp2;  in ssqjac()
381                 fjac[i + 10 * ldfjac] = -2. * x[3] * x[7] * (temp - x[10]) * tmp3;  in ssqjac()
382                 fjac[i + 11 * ldfjac] = -2. * x[4] * x[8] * (temp - x[11]) * tmp4;  in ssqjac()