Lines Matching refs:a
455 double* a; in NaturalSpline() local
461 a=new double[n+1]; in NaturalSpline()
465 if (h[i]<=0.0) { delete[] a; delete[] h; return 1; } in NaturalSpline()
468 a[i]=3.0*((y[i+2]-y[i+1])/h[i+1]-(y[i+1]-y[i])/h[i]); in NaturalSpline()
476 a[0]=a[0]/3.0; in NaturalSpline()
479 a[0] =a[0]*h[1]/(h[0]+h[1]); in NaturalSpline()
480 a[n-2]=a[n-2]*h[n-2]/(h[n-1]+h[n-2]); in NaturalSpline()
488 a[0] =a[0]-1.5*((y[1]-y[0])/h[0]-Marg0); in NaturalSpline()
489 a[n-2]=a[n-2]-1.5*(MargN-(y[n]-y[n-1])/h[n-1]); in NaturalSpline()
494 a[0] =a[0]-h[0]*Marg0*0.5; in NaturalSpline()
495 a[n-2]=a[n-2]-h[n-1]*MargN*0.5; in NaturalSpline()
498 a[0] =a[0]+Marg0*h[0]*h[0]*0.5; in NaturalSpline()
499 a[n-2]=a[n-2]-MargN*h[n-1]*h[n-1]*0.5; in NaturalSpline()
505 c[1]=a[0]/d[0]; in NaturalSpline()
507 error=TriDiagGS(sal_False,n-1,b,d,c,a); in NaturalSpline()
508 if (error!=0) { delete[] a; delete[] h; return error+2; } in NaturalSpline()
509 for (i=0;i<n-1;i++) c[i+1]=a[i]; in NaturalSpline()
540 delete[] a; in NaturalSpline()
564 double* a; in PeriodicSpline() local
573 a =new double[n+1]; in PeriodicSpline()
590 a[im1]=3.0*((y[i+1]-y[i])/hr-(y[i]-y[im1])/hl); in PeriodicSpline()
598 a[nm1]=3.0*((y[1]-y[0])/hr-(y[n]-y[nm1])/hl); in PeriodicSpline()
599 Error=ZyklTriDiagGS(sal_False,n,b,d,c,lowrow,ricol,a); in PeriodicSpline()
602 delete[] a; in PeriodicSpline()
607 for (i=0;i<=nm1;i++) c[i+1]=a[i]; in PeriodicSpline()
616 delete[] a; in PeriodicSpline()