Home
last modified time | relevance | path

Searched refs:y2a (Results 1 – 25 of 285) sorted by relevance

12345678910>>...12

/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/utilities/
H A Dnwpw_spline.F63 real*8 function nwpw_splint(xa,ya,y2a,n,nx,x)
65 real*8 xa(*),ya(*),y2a(*)
92 > + ((a**3-a)*y2a(klo) + (b**3-b)*y2a(khi)) * h**2 / 6.0d0
135 real*8 function nwpw_splint0(xa,ya,y2a,n,nx,x)
137 real*8 xa(*),ya(*),y2a(*)
152 > + ((a**3-a)*y2a(klo) + (b**3-b)*y2a(khi)) * h**2 / 6.0d0
164 real*8 function nwpw_dsplint(xa,ya,y2a,n,nx,x)
166 real*8 xa(*),ya(*),y2a(*)
199 > + ( (da*3*a**2-da)*y2a(klo)
215 real*8 xa(*),ya(*),y2a(*)
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/utilities/
H A Dnwpw_spline.F63 real*8 function nwpw_splint(xa,ya,y2a,n,nx,x)
65 real*8 xa(*),ya(*),y2a(*)
92 > + ((a**3-a)*y2a(klo) + (b**3-b)*y2a(khi)) * h**2 / 6.0d0
135 real*8 function nwpw_splint0(xa,ya,y2a,n,nx,x)
137 real*8 xa(*),ya(*),y2a(*)
152 > + ((a**3-a)*y2a(klo) + (b**3-b)*y2a(khi)) * h**2 / 6.0d0
164 real*8 function nwpw_dsplint(xa,ya,y2a,n,nx,x)
166 real*8 xa(*),ya(*),y2a(*)
199 > + ( (da*3*a**2-da)*y2a(klo)
215 real*8 xa(*),ya(*),y2a(*)
[all …]
/dports/science/octopus/octopus-10.5/src/species/
H A Dspline.cc88 void splint (const double *xa, const double *ya, const double *y2a, int n, double x, double *y) in splint() argument
122 ( (a*a*a-a) * y2a[klo] + (b*b*b-b) * y2a[khi] ); in splint()
126 void splintd (const double *xa, const double *ya, const double *y2a, in splintd() argument
151 ( (a*a*a-a) * y2a[klo] + (b*b*b-b) * y2a[khi] ); in splintd()
154 h * ( ( (1.0/6.0) - 0.5 * a * a ) * y2a[klo] + in splintd()
155 ( 0.5 * b * b - (1.0/6.0) ) * y2a[khi] ); in splintd()
/dports/science/qbox/qbox-public-rel1_73_3/src/
H A Dspline.cpp110 void splint (int n, double *xa, double *ya, double *y2a, double x, double *y) in splint() argument
134 ( (a*a*a-a) * y2a[kl] + (b*b*b-b) * y2a[kh] ); in splint()
138 void splintd (int n, double *xa, double *ya, double *y2a, in splintd() argument
163 ( (a*a*a-a) * y2a[kl] + (b*b*b-b) * y2a[kh] ); in splintd()
166 h * ( ( (1.0/6.0) - 0.5 * a * a ) * y2a[kl] + in splintd()
167 ( 0.5 * b * b - (1.0/6.0) ) * y2a[kh] ); in splintd()
H A Dspline.h20 void splint (int n, double *xa, double *ya, double *y2a, double x, double *y);
21 void splintd (int n, double *xa, double *ya, double *y2a,
/dports/science/qbox/qbox-public-rel1_73_3/util/upf2qso/src/
H A Dspline.cpp110 void splint (int n, double *xa, double *ya, double *y2a, double x, double *y) in splint() argument
134 ( (a*a*a-a) * y2a[kl] + (b*b*b-b) * y2a[kh] ); in splint()
138 void splintd (int n, double *xa, double *ya, double *y2a, in splintd() argument
163 ( (a*a*a-a) * y2a[kl] + (b*b*b-b) * y2a[kh] ); in splintd()
166 h * ( ( (1.0/6.0) - 0.5 * a * a ) * y2a[kl] + in splintd()
167 ( 0.5 * b * b - (1.0/6.0) ) * y2a[kh] ); in splintd()
H A Dspline.h20 void splint (int n, double *xa, double *ya, double *y2a, double x, double *y);
21 void splintd (int n, double *xa, double *ya, double *y2a,
/dports/science/gnudatalanguage/gdl-1.0.1/obsolete/pro/
H A Dspl_interp_old.pro20 ; y = spl_interp(xa,ya,y2a,x)
25 ; y2a- second derivative vector from SPLINF.PRO
45 ; function psplint,xa,ya,y2a,x ; name used to make comparison test with IDL
51 ;function PSPLINT, xa, ya, y2a, x, DOUBLE=double
52 function SPL_INTERP_OLD, xa, ya, y2a, x, DOUBLE=double
74 ( ( a^3 - a ) * y2a[klo] + ( b^3 - b ) * y2a[khi] ) * ( h^2 ) / 6.D
/dports/science/nwchem-data/nwchem-7.0.2-release/src/dimqm/
H A DCubicSpline.F80 Function interpolate_real (n, xa, ya, y2a, x) Result(y)
98 double precision, Intent(In) :: y2a(n) local
129 $ + ( ( a**3 - a ) * y2a(klo) + ( b**3 - b ) * y2a(khi) )
191 Function interpolate_complex2 (n, xa, ya, y2a, x) Result(y)
203 double complex, Intent(In) :: y2a(n) local
234 $ + ( ( a**3 - a ) * y2a(klo) + ( b**3 - b ) * y2a(khi) )
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/dimqm/
H A DCubicSpline.F80 Function interpolate_real (n, xa, ya, y2a, x) Result(y)
98 double precision, Intent(In) :: y2a(n) local
129 $ + ( ( a**3 - a ) * y2a(klo) + ( b**3 - b ) * y2a(khi) )
191 Function interpolate_complex2 (n, xa, ya, y2a, x) Result(y)
203 double complex, Intent(In) :: y2a(n) local
234 $ + ( ( a**3 - a ) * y2a(klo) + ( b**3 - b ) * y2a(khi) )
/dports/science/xcrysden/xcrysden-1.6.2/C/
H A DsplineInt.c24 void splie2(float x1a[], float x2a[], float **ya, int m, int n, float **y2a);
28 void xcRegSplineInt(float xa[], float ya[], float y2a[],
36 float y2a[], float x, float *y);
82 splie2(float x1a[], float x2a[], float **ya, int m, int n, float **y2a) in splie2() argument
96 spline( x2a, ya[j], n, 1.0e30, 1.0e30, y2a[j] ); in splie2()
164 xcRegSplineInt(float xa[], float ya[], float y2a[], int i, float x, float *y) in xcRegSplineInt() argument
176 *y = a*ya[klo] + b*ya[khi] + ((a*a*a-a)*y2a[klo] + (b*b*b-b)*y2a[khi]) * (h*h)/6.0; in xcRegSplineInt()
294 float y2a[], float x, float *y) in xcRegSpline3Int() argument
307 ((a*a*a-a)*y2a[klo] + (b*b*b-b)*y2a[khi]) * (h*h)/6.0; in xcRegSpline3Int()
/dports/math/plplot-ada/plplot-5.15.0/lib/qsastime/
H A Ddsplint.c33 int dsplint( double *xa, double *ya, double *y2a, in dsplint() argument
46 --y2a; in dsplint()
122 *y = a * ya[klo] + b * ya[khi] + ( a * ( a * a - 1. ) * y2a[klo] + b * ( b * in dsplint()
123 … b - 1. ) * y2a[khi] ) * ( h__ * h__ ) / 6.; in dsplint()
/dports/math/plplot/plplot-5.15.0/lib/qsastime/
H A Ddsplint.c33 int dsplint( double *xa, double *ya, double *y2a, in dsplint() argument
46 --y2a; in dsplint()
122 *y = a * ya[klo] + b * ya[khi] + ( a * ( a * a - 1. ) * y2a[klo] + b * ( b * in dsplint()
123 … b - 1. ) * y2a[khi] ) * ( h__ * h__ ) / 6.; in dsplint()
/dports/math/saga/saga-8.1.3/saga-gis/src/tools/grid/grid_calculus_bsl/
H A Dinterpolation.h53 void splint(double xa[],double ya[],double y2a[],int n, double x,double *y);
54 void splie2(double x1a[], double x2a[], double **ya, int m, int n, double **y2a);
55 void splin2(double x1a[], double x2a[], double **ya, double **y2a,
58 void mysplin(double x1a[], double x2a[], double **ya, double **y2a,
/dports/math/plplot/plplot-5.15.0/drivers/
H A Ddeprecated_wxwidgets_dc.cpp83 void wxPLDevDC::DrawLine( short x1a, short y1a, short x2a, short y2a ) in DrawLine() argument
86 x2a = (short) ( x2a / scalex ); y2a = (short) ( height - y2a / scaley ); in DrawLine()
88 m_dc->DrawLine( (wxCoord) x1a, (wxCoord) y1a, (wxCoord) x2a, (wxCoord) y2a ); in DrawLine()
90 AddtoClipRegion( (int) x1a, (int) y1a, (int) x2a, (int) y2a ); in DrawLine()
101 wxCoord x1a, y1a, x2a, y2a; in DrawPolyline() local
104 y2a = (wxCoord) ( height - ya[0] / scaley ); in DrawPolyline()
107 x1a = x2a; y1a = y2a; in DrawPolyline()
109 y2a = (wxCoord) ( height - ya[i] / scaley ); in DrawPolyline()
111 m_dc->DrawLine( x1a, y1a, x2a, y2a ); in DrawPolyline()
113 AddtoClipRegion( (int) x1a, (int) y1a, (int) x2a, (int) y2a ); in DrawPolyline()
/dports/math/plplot-ada/plplot-5.15.0/drivers/
H A Ddeprecated_wxwidgets_dc.cpp83 void wxPLDevDC::DrawLine( short x1a, short y1a, short x2a, short y2a ) in DrawLine() argument
86 x2a = (short) ( x2a / scalex ); y2a = (short) ( height - y2a / scaley ); in DrawLine()
88 m_dc->DrawLine( (wxCoord) x1a, (wxCoord) y1a, (wxCoord) x2a, (wxCoord) y2a ); in DrawLine()
90 AddtoClipRegion( (int) x1a, (int) y1a, (int) x2a, (int) y2a ); in DrawLine()
101 wxCoord x1a, y1a, x2a, y2a; in DrawPolyline() local
104 y2a = (wxCoord) ( height - ya[0] / scaley ); in DrawPolyline()
107 x1a = x2a; y1a = y2a; in DrawPolyline()
109 y2a = (wxCoord) ( height - ya[i] / scaley ); in DrawPolyline()
111 m_dc->DrawLine( x1a, y1a, x2a, y2a ); in DrawPolyline()
113 AddtoClipRegion( (int) x1a, (int) y1a, (int) x2a, (int) y2a ); in DrawPolyline()
/dports/biology/emboss/EMBOSS-6.6.0/plplot/
H A Dpbm.c107 plD_line_pbm(PLStream *pls, short x1a, short y1a, short x2a, short y2a)
116 dy = y2a - y1a;
150 plD_line_pbm(PLStream *pls, short x1a, short y1a, short x2a, short y2a)
158 dy = ABS(y2a - y1a);
160 s2 = sign(y2a - y1a);
194 plD_line_pbm(PLStream *pls, short x1a, short y1a, short x2a, short y2a) in plD_line_pbm() argument
197 int xx1 = x1a, yy1 = y1a, xx2 = x2a, yy2 = y2a; in plD_line_pbm()
/dports/science/quantum-espresso/q-e-qe-6.7.0/CPV/src/
H A Dspline.f90580 SUBROUTINE splintdx(xmin,xmax,ya,y2a,n,x,y) argument
584 REAL(DP), INTENT(IN) :: x,xmin,xmax,ya(:),y2a(:) local
603 ( (a*a*a-a)*y2a(klo) + (b*b*b-b)*y2a(khi) ) * (dx*dx)/6.0d0
644 SUBROUTINE nr_splint( xa, ya, y2a, n, x, y ) argument
646 REAL(DP) :: x,y,xa(n),y2a(n),ya(n) local
665 y=a*ya(klo)+b*ya(khi)+((a**3-a)*y2a(klo)+(b**3-b)*y2a(khi))* &
671 SUBROUTINE nr_splie2( x1a, x2a, ya, m, n, y2a ) argument
673 REAL(DP) :: x1a(m), x2a(n), y2a(m,n), ya(m,n) local
682 y2a(j,k) = y2tmp(k)
691 REAL(DP) :: x1, x2, y, x1a(m), x2a(n), y2a(m,n), ya(m,n) local
[all …]
/dports/misc/vxl/vxl-3.3.2/v3p/dcmtk/dcmimgle/include/
H A Ddisplint.h126 const T3_ *y2a, in Interpolation() argument
132 …if ((xa != NULL) && (ya != NULL) && (y2a != NULL) && (na > 0) && (x != NULL) && (y != NULL) && (n … in Interpolation()
162 …2)(a * (T3_)ya[klo] + b * (T3_)ya[khi] + ((a * a * a - a) * y2a[klo] + (b * b * b - b) * y2a[khi])… in Interpolation()
/dports/games/7kaa/7kaa-2.15.4p1/src/
H A DOANLINE.cpp170 int x2a, y2a, x2b, y2b; in draw_line() local
198 y2a = y2b = y2; in draw_line()
201 y2a = bound_y1; in draw_line()
206 y2a = bound_y2; in draw_line()
245 if( x2a < bound_x1 || x2a > bound_x2 || y2a < bound_y1 || y2a > bound_y2) in draw_line()
260 y2 = y2a; in draw_line()
/dports/graphics/dcmtk/dcmtk-DCMTK-3.6.6/dcmimgle/include/dcmtk/dcmimgle/
H A Ddisplint.h140 const T3_ *y2a, in Interpolation() argument
146 …if ((xa != NULL) && (ya != NULL) && (y2a != NULL) && (na > 0) && (x != NULL) && (y != NULL) && (n … in Interpolation()
177 … ((a * a * a - a) * y2a[klo] + (b * b * b - b) * y2a[khi]) * (h * h) / 6.0); in Interpolation()
/dports/math/ogdf/OGDF/src/ogdf/basic/
H A DEdgeComparer.cpp55 double x1a, x1b, x2a, x2b, y1a, y1b, y2a, y2b; in compare() local
71 y2a = m_AG->y(s2); in compare()
75 OGDF_ASSERT(!((!OGDF_GEOM_ET.equal(x1a,x2a)) && (!(OGDF_GEOM_ET.equal(y1a,y2a)))) || (s1 != s2)); in compare()
122 while ( (x1b == x2b) && (y1b == y2b) && (x1a == x2a) && (y1a == y2a) ) in compare()
168 dy2 = y2b - y2a; in compare()
/dports/graphics/argyllcms/Argyll_V1.9.2/target/
H A Dsimdlat.c934 double *y2a = NULL; in dump_image() local
962 if ((y2a = (double *)malloc(s->nvp * sizeof(double))) == NULL) in dump_image()
974 y2a[nu] = p->v[1]; in dump_image()
979 y2a[nu] = p->p[1]; in dump_image()
986 x1a, y1a, x2a, y2a, nu, DO_WAIT, x3a, y3a, 0); in dump_image()
991 free(y2a); in dump_image()
1001 double *y2a = NULL; in dump_image_final() local
1038 y2a[nu] = p->v[1]; in dump_image_final()
1043 y2a[nu] = p->p[1]; in dump_image_final()
1050 x1a, y1a, x2a, y2a, nu, DO_WAIT, x3a, y3a, 0); in dump_image_final()
[all …]
/dports/print/gutenprint/gutenprint-5.3.3/src/main/
H A Dcurve.c187 y2a[0] = 0.0; in compute_spline_deltas_piecewise()
196 p = sig * y2a[im1] + 2.0; in compute_spline_deltas_piecewise()
197 y2a[i] = (sig - 1.0) / p; in compute_spline_deltas_piecewise()
204 y2a[count - 1] = 0.0; in compute_spline_deltas_piecewise()
206 y2a[k] = y2a[k] * y2a[k + 1] + ua[k]; in compute_spline_deltas_piecewise()
211 stp_free(y2a); in compute_spline_deltas_piecewise()
274 y2a[0] = 0.0; in compute_spline_deltas_dense()
285 p = sig * y2a[im1] + 2.0; in compute_spline_deltas_dense()
291 y2a[count - 1] = 0.0; in compute_spline_deltas_dense()
293 y2a[k] = y2a[k] * y2a[k + 1] + ua[k]; in compute_spline_deltas_dense()
[all …]
/dports/print/gimp-gutenprint/gutenprint-5.3.3/src/main/
H A Dcurve.c187 y2a[0] = 0.0; in compute_spline_deltas_piecewise()
196 p = sig * y2a[im1] + 2.0; in compute_spline_deltas_piecewise()
197 y2a[i] = (sig - 1.0) / p; in compute_spline_deltas_piecewise()
204 y2a[count - 1] = 0.0; in compute_spline_deltas_piecewise()
206 y2a[k] = y2a[k] * y2a[k + 1] + ua[k]; in compute_spline_deltas_piecewise()
211 stp_free(y2a); in compute_spline_deltas_piecewise()
274 y2a[0] = 0.0; in compute_spline_deltas_dense()
285 p = sig * y2a[im1] + 2.0; in compute_spline_deltas_dense()
291 y2a[count - 1] = 0.0; in compute_spline_deltas_dense()
293 y2a[k] = y2a[k] * y2a[k + 1] + ua[k]; in compute_spline_deltas_dense()
[all …]

12345678910>>...12