Home
last modified time | relevance | path

Searched refs:salfa (Results 1 – 14 of 14) sorted by relevance

/dports/math/sisl/SISL-SISL-4.6.0-44-g9114631/src/
H A Ds1700.c145 double *salfa; /* Help pointer to galfa. */ local
199 for (salfa=galfa+*jfi,t1=et+*jfi,t2=et+*jla; t1<=t2; t1++,salfa++)
203 tbeta = *salfa/(td1 + td2);
204 salfa[-1] = td2*tbeta + tbeta1;
216 *(salfa-1) = tbeta1+(*t1-apar)* *salfa/(*t1 - *(t2+1));
217 } else *(salfa-1) = tbeta1;
H A Ds1017.c124 double *salfa = SISL_NULL; /* A line of the trans.-matrix. */ local
184 if ((salfa = newarray (2 * kk, double)) == SISL_NULL)
187 sp = salfa + kk;
280 s1701 (ki, kmy - 1, kk, kn, &kpl, &kfi, &kla, st, pc->et, sp, salfa, &kstat);
289 *s1 += salfa[kj2] * ecoef[kj1 * kdim + kj];
352 out:if (salfa)
353 freearray (salfa);
H A Ds1730.c117 double *salfa=SISL_NULL; /* A line of the trans.-matrix. */ local
149 if ((salfa=newarray(kk,double))==SISL_NULL) goto err101;
179 s1701(ki,kmy,kk,kn,&kpl,&kfi,&kla,st,qkreg->et,sp,salfa,&kstat);
188 *s1 += salfa[kj2] * rcoef[ki2];
237 if (salfa) freearray(salfa);
H A Ds1731.c118 double *salfa=SISL_NULL; /* A line of the trans.-matrix. */ local
159 if ((salfa=newarray(kk1+kk2,double))==SISL_NULL) goto err101;
208 s1701(ki,kmy,kk1,qkreg->in1,&kpl,&kfi,&kla,st1,qkreg->et1,sp,salfa,&kstat);
216 *s2 += salfa[kj2] * rcoef[kj1*rdim+kj3];
228 s1701(ki,kmy,kk2,kn,&kpl,&kfi,&kla,st2,qkreg->et2,sp,salfa,&kstat);
236 *s2 += salfa[kj2] * scoefh[kj1*kn1*rdim+kj3];
281 if (salfa) freearray(salfa);
H A Ds1231.c136 double *salfa=SISL_NULL; /* A line of the trans.-matrix. */ local
246 if ((salfa = newarray (kk, double)) == SISL_NULL) goto err101;
248 else salfa = salfa_local;
342 s1700(kmy,kk,kn,++kv1,&kpl,&kfi,&kla,pc1->et,apar,salfa,&kstat);
350 *s1 += salfa[kj2] * scoef[kj1*kdim+kj];
370 s1700(kmy,kk,kn,kv1--,&kpl,&kfi,&kla,pc1->et,apar,salfa,&kstat);
378 *s1 += salfa[kj2] * scoef[kj1*kdim+kj];
455 if (kk > 5 && salfa)
456 freearray (salfa);
H A Ds1710.c145 double *salfa = SISL_NULL; /* A line of the trans.-matrix. */ local
259 if ((salfa = newarray (kk, double)) == SISL_NULL) goto err101;
261 else salfa = salfa_local;
381 s1700 (kmy, kk, kn, ++kv1, &kpl, &kfi, &kla, pc1->et, apar, salfa, &kstat);
390 *s1 += salfa[kj2] * scoef[kj1 * kdim + kj];
410 s1700 (kmy, kk, kn, kv1--, &kpl, &kfi, &kla, pc1->et, apar, salfa, &kstat);
419 *s1 += salfa[kj2] * scoef[kj1 * kdim + kj];
509 if (kk > 5 && salfa)
510 freearray (salfa);
H A Ds1711.c137 double *salfa=SISL_NULL; /* A line of the trans.-matrix. */ local
210 if ((salfa = newarray (kk, double)) == SISL_NULL) goto err101;
212 else salfa = salfa_local;
342 s1700(kmy,kk,kn,++kv1,&kpl,&kfi,&kla,st,apar,salfa,&kstat);
350 *s4 += salfa[kj2] * scoef[k1m*kj1+ki2+kj];
387 s1700(kmy,kk,kn,kv1--,&kpl,&kfi,&kla,st,apar,salfa,&kstat);
396 *s4 += salfa[kj2] * scoef[k1m*kj1+ki2+kj];
478 if (kk > 5 && salfa)
479 freearray (salfa);
H A Ds1941.c94 double *salfa=SISL_NULL; /* The values of a discrete B-spline local
149 salfa = smatrix + 4*kk*kk; /* Size kk */
150 scoef = salfa + kk; /* Size kdim*kn */
225 s1701(ki,kleft,kk,knstx,&kpl,&kfi,&kla,st1,stx,sp,salfa,&kstat);
230 memcopy(spek+kfi,salfa+kpl+kfi,kla-kfi+1,DOUBLE);
279 s1701(ki,kleft,kk,kn,&kpl,&kfi,&kla,stx,scycl,sp,salfa,&kstat);
284 memcopy(spek+kfi-(kn-kk),salfa+kpl+kfi,kla-kfi+1,DOUBLE);
H A Dmk_cv_cycl.c102 double *salfa=SISL_NULL; /* The values of a discrete B-spline local
160 salfa = smatrix + 4*kk*kk; /* Size kk */
161 scoef = salfa + kk; /* Size kdim2*kn */
234 s1701(ki,kleft,kk,knstx,&kpl,&kfi,&kla,st1,stx,sp,salfa,&kstat);
239 memcopy(spek+kfi,salfa+kpl+kfi,kla-kfi+1,DOUBLE);
287 s1701(ki,kleft,kk,kn,&kpl,&kfi,&kla,stx,scycl,sp,salfa,&kstat);
292 memcopy(spek+kfi-(kn-kk),salfa+kpl+kfi,kla-kfi+1,DOUBLE);
H A Ds1233.c114 double *salfa = SISL_NULL; /* The values of a discrete B-spline local
183 salfa = smatrix + 4*kk*kk; /* Size kk */
184 scoef = salfa + kk; /* Size kdim*kn */
254 s1701(ki, kleft, kk, knstx, &kpl, &kfi, &kla, st, stx, sp, salfa, &kstat);
259 memcopy(spek + kfi, salfa + kpl + kfi, kla - kfi + 1, DOUBLE);
304 s1701(ki, kleft, kk, kn, &kpl, &kfi, &kla, stx, ext, sp, salfa, &kstat);
309 memcopy(spek+kfi-(kn-kk), salfa+kpl+kfi, kla-kfi+1, DOUBLE);
H A Ds1333cycli.c100 double *salfa=SISL_NULL; /* The values of a discrete B-spline local
160 salfa = smatrix + 4*kk1*kk1; /* Size kk1 */
161 scoef = salfa + kk1; /* Size kdim2*kn1*kn2 */
236 s1701(ki,kleft,kk1,knstx,&kpl,&kfi,&kla,st1,stx,sp,salfa,&kstat);
241 memcopy(spek+kfi,salfa+kpl+kfi,kla-kfi+1,DOUBLE);
292 s1701(ki,kleft,kk1,kn1,&kpl,&kfi,&kla,stx,scycl,sp,salfa,&kstat);
297 memcopy(spek+kfi-(kn1-kk1),salfa+kpl+kfi,kla-kfi+1,DOUBLE);
H A Ds1018.c122 double *salfa = SISL_NULL; /* A line of the trans.-matrix. */ local
228 if ((salfa = newarray (kk, double)) == SISL_NULL)
270 s1701 (ki, kmy, kk, kn, &kpl, &kfi, &kla, st, pc->et, sp, salfa, &kstat);
280 *s1 += salfa[kj2] * coef[ki2];
364 out:if (salfa)
365 freearray (salfa);
/dports/math/fpc-numlib/fpc-3.2.2/packages/numlib/src/
H A Dtyp.pas176 procedure Rotate(calfa, salfa: ArbFloat; axe: vector);
557 procedure Vector.Rotate(calfa, salfa: arbfloat; axe: vector);
560 Uitprod(axe, qv); qv.scale(salfa);
/dports/lang/fpc-source/fpc-3.2.2/packages/numlib/src/
H A Dtyp.pas176 procedure Rotate(calfa, salfa: ArbFloat; axe: vector);
557 procedure Vector.Rotate(calfa, salfa: arbfloat; axe: vector);
560 Uitprod(axe, qv); qv.scale(salfa);