/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/utilities/ |
H A D | nwpw_spline.F | 63 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 D | nwpw_spline.F | 63 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 D | spline.cc | 88 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 D | spline.cpp | 110 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 D | spline.h | 20 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 D | spline.cpp | 110 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 D | spline.h | 20 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 D | spl_interp_old.pro | 20 ; 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 D | CubicSpline.F | 80 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 D | CubicSpline.F | 80 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 D | splineInt.c | 24 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 D | dsplint.c | 33 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 D | dsplint.c | 33 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 D | interpolation.h | 53 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 D | deprecated_wxwidgets_dc.cpp | 83 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 D | deprecated_wxwidgets_dc.cpp | 83 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 D | pbm.c | 107 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 D | spline.f90 | 580 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 D | displint.h | 126 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 D | OANLINE.cpp | 170 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 D | displint.h | 140 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 D | EdgeComparer.cpp | 55 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 D | simdlat.c | 934 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 D | curve.c | 187 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 D | curve.c | 187 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 …]
|