/dports/cad/tochnog/Sources/Tochnog-Latest-jan-2014/ |
H A D | polynom.cc | 67 for ( ipoint=0; ipoint<npoint; ipoint++ ) { in pol() 94 for ( ipoint=0; ipoint<npoint; ipoint++ ) { in pol() 174 for ( ipoint=0; ipoint<npoint; ipoint++ ) { in pol() 203 for ( ipoint=0; ipoint<npoint; ipoint++ ) { in pol() 413 for ( ipoint=0; ipoint<npoint; ipoint++ ) { in pol() 419 matrix_ab( &xj_inv[ipoint*ndim*ndim], &p[ipoint*ndim*nnol], in pol() 426 matrix_ab( &xj_inv[ipoint*ndim*ndim], &p[ipoint*ndim*nnol], in pol() 429 if ( name==-TRIA3 ) volume[ipoint] = weight[ipoint]*detj/2.; in pol() 430 else if ( name==-TRIA6 ) volume[ipoint] = weight[ipoint]*detj/2.; in pol() 431 else if ( name==-TET4 ) volume[ipoint] = weight[ipoint]*detj/6.; in pol() [all …]
|
/dports/science/xcfun/xcfun-2.1.1-1-gf87ca0e/examples/Fortran_host/ |
H A D | example.f90 | 57 integer :: order, ierr, ipoint 115 do ipoint = 1, num_grid_points 147 do ipoint = 1, num_grid_points 180 do ipoint = 1, num_grid_points 186 density(2, 1, ipoint) = 0.0d0 187 density(2, 2, ipoint) = 0.0d0 189 density(2, 4, ipoint) = 0.0d0 214 do ipoint = 1, num_grid_points 256 do ipoint = 1, num_grid_points 377 integer :: ipoint [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/src/odist/ |
H A D | prim_hgto_odist.F90 | 118 hbra_odist(2,ipoint) = elec_coord(1)*hbra_odist(1,ipoint) 119 hbra_odist(3,ipoint) = elec_coord(2)*hbra_odist(1,ipoint) 120 hbra_odist(4,ipoint) = elec_coord(3)*hbra_odist(1,ipoint) 184 hbra_odist(2,ipoint) = elec_coord(2)*hbra_odist(1,ipoint) 185 hbra_odist(3,ipoint) = elec_coord(3)*hbra_odist(1,ipoint) 186 hbra_odist(1,ipoint) = elec_coord(1)*hbra_odist(1,ipoint) 202 hbra_odist(5,ipoint) = elec_coord(2)*hbra_odist(1,ipoint) 205 hbra_odist(7,ipoint) = elec_coord(3)*hbra_odist(1,ipoint) 464 hgto_odist(:,1,ipoint) = zero_hgto*hbra_odist(:,ipoint) 473 hgto_odist(:,1,ipoint) = zero_hgto*hbra_odist(:,ipoint) [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/src/value/ |
H A D | prim_hgto_value.F90 | 97 hgto_value(2,ipoint) = elec_coord(1)*hgto_value(1,ipoint) 98 hgto_value(3,ipoint) = elec_coord(2)*hgto_value(1,ipoint) 99 hgto_value(4,ipoint) = elec_coord(3)*hgto_value(1,ipoint) 163 hgto_value(2,ipoint) = elec_coord(2)*hgto_value(1,ipoint) 164 hgto_value(3,ipoint) = elec_coord(3)*hgto_value(1,ipoint) 165 hgto_value(1,ipoint) = elec_coord(1)*hgto_value(1,ipoint) 179 hgto_value(4,ipoint) = elec_coord(1)*hgto_value(1,ipoint) & 181 hgto_value(5,ipoint) = elec_coord(2)*hgto_value(1,ipoint) 182 hgto_value(6,ipoint) = elec_coord(2)*hgto_value(2,ipoint) & 184 hgto_value(7,ipoint) = elec_coord(3)*hgto_value(1,ipoint) [all …]
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
H A D | negf_integr_cc.F | 178 cc_env%tnodes(nnodes_half + ipoint) = -cc_env%tnodes(nnodes_half - ipoint) 284 DO ipoint = 1, nnodes_half 285 tnodes(nnodes_half + ipoint) = -tnodes(nnodes_half - ipoint + 1) 349 DO ipoint = 1, nnodes_next 350 CALL cp_cfm_scale(zscale(ipoint), zdata_next(ipoint)%matrix) 388 DO ipoint = 1, nnodes_half 389 zdata_tmp(2*ipoint - 1)%matrix => cc_env%zdata_cache(ipoint)%matrix 390 zdata_tmp(2*ipoint)%matrix => zdata_next(ipoint)%matrix 403 cc_env%zdata_cache(ipoint)%matrix => zdata_next(ipoint)%matrix 485 ztmp(ipoint, irow, icol) = cc_env%zdata_cache(ipoint)%matrix%local_data(irow, icol) [all …]
|
H A D | negf_methods.F | 1296 DO ipoint = 1, npoints 1306 CALL do_sancho(g_surf(ipoint)%matrix, omega(ipoint) - v_external, & 1450 g_ret_s_group(ipoint)%matrix => g_ret_s(ipoint)%matrix 1504 DO ipoint = 1, npoints 1599 …IF (g_ret_scale(ipoint) /= z_one) CALL cp_cfm_scale(g_ret_scale(ipoint), g_ret_s_group(ipoint)%mat… 1646 CALL cp_cfm_finish_copy_general(g_ret_s(ipoint)%matrix, info1(ipoint)) 1755 DO ipoint = 1, npoints 1772 DO ipoint = 1, npoints 2162 zscale(ipoint) = fermi_function(xnodes(ipoint) - mu_base, temperature) 2290 zscale(ipoint) = fermi_function(xnodes(ipoint) - mu_base, temperature) [all …]
|
/dports/science/cp2k-data/cp2k-7.1.0/src/ |
H A D | negf_integr_cc.F | 178 cc_env%tnodes(nnodes_half + ipoint) = -cc_env%tnodes(nnodes_half - ipoint) 284 DO ipoint = 1, nnodes_half 285 tnodes(nnodes_half + ipoint) = -tnodes(nnodes_half - ipoint + 1) 349 DO ipoint = 1, nnodes_next 350 CALL cp_cfm_scale(zscale(ipoint), zdata_next(ipoint)%matrix) 388 DO ipoint = 1, nnodes_half 389 zdata_tmp(2*ipoint - 1)%matrix => cc_env%zdata_cache(ipoint)%matrix 390 zdata_tmp(2*ipoint)%matrix => zdata_next(ipoint)%matrix 403 cc_env%zdata_cache(ipoint)%matrix => zdata_next(ipoint)%matrix 485 ztmp(ipoint, irow, icol) = cc_env%zdata_cache(ipoint)%matrix%local_data(irow, icol) [all …]
|
H A D | negf_methods.F | 1296 DO ipoint = 1, npoints 1306 CALL do_sancho(g_surf(ipoint)%matrix, omega(ipoint) - v_external, & 1450 g_ret_s_group(ipoint)%matrix => g_ret_s(ipoint)%matrix 1504 DO ipoint = 1, npoints 1599 …IF (g_ret_scale(ipoint) /= z_one) CALL cp_cfm_scale(g_ret_scale(ipoint), g_ret_s_group(ipoint)%mat… 1646 CALL cp_cfm_finish_copy_general(g_ret_s(ipoint)%matrix, info1(ipoint)) 1755 DO ipoint = 1, npoints 1772 DO ipoint = 1, npoints 2162 zscale(ipoint) = fermi_function(xnodes(ipoint) - mu_base, temperature) 2290 zscale(ipoint) = fermi_function(xnodes(ipoint) - mu_base, temperature) [all …]
|
/dports/science/plumed/plumed2-2.7.2/src/gridtools/ |
H A D | AverageOnGrid.cpp | 43 void AverageOnGrid::accumulate( const unsigned& ipoint, const double& weight, const double& dens, c… in accumulate() argument 44 …buffer[bufstart+nper*ipoint] += weight*dens; buffer[ bufstart+nper*(ipoint+1) - (dimension+1) ] +=… in accumulate() 46 for(unsigned j=0; j<dimension; ++j) buffer[ bufstart+nper*ipoint + 1 + j ] += weight*der[j]; in accumulate() 47 … for(unsigned j=0; j<dimension; ++j) buffer[ bufstart+nper*(ipoint+1) - dimension + j ] += der[j]; in accumulate() 51 double AverageOnGrid::getGridElement( const unsigned& ipoint, const unsigned& jelement ) const { in getGridElement() argument 52 if( noAverage() ) return getDataElement( nper*ipoint + jelement); in getGridElement() 54 if( jelement>=(nper-(dimension+1)) ) return getDataElement( nper*ipoint + jelement ); in getGridElement() 56 …if( noderiv ) return getDataElement( nper*ipoint+jelement ) / getDataElement( nper*(1+ipoint) - 1); in getGridElement() 59 …if( fabs(getDataElement( nper*(ipoint+1) -(dimension+1) ))>epsilon ) rdenom = 1. / getDataElement(… in getGridElement() 62 if( jderiv==0 ) return rdenom*getDataElement( nper*ipoint+jelement ); in getGridElement() [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/pcm/ |
H A D | pcm_write.F90 | 78 integer(4) :: ipoint local 102 do ipoint = 1, nr_points 103 tot_chg = tot_chg + charges(ipoint) 104 write(pcm_file_unit, for_data) ipoint, potentials(ipoint), charges(ipoint) 127 integer(4) :: ipoint local 152 do ipoint = 1, nr_points 153 tot_nuc_chg = tot_nuc_chg + nuc_chg(ipoint) 154 tot_ele_chg = tot_ele_chg + ele_chg(ipoint) 155 …write(pcm_file_unit, for_data) ipoint, nuc_pot(ipoint), nuc_chg(ipoint), ele_pot(ipoint), ele_chg(…
|
H A D | pcm_integrals.F90 | 76 mep(ipoint) = mep(ipoint) + (charges(i) / dist) 94 scratch(ipoint) = scratch(ipoint) + (charges(i) / dist) 104 mep(ipoint) = mep(ipoint) + scratch(ipoint) 664 - ader(ia, ib, ipoint) * vector(ipoint) 791 difcp(:, ipoint) = points(:, ipoint) - corp(:) 842 wval = pval * (cp(1,ipoint)**2 + cp(2,ipoint)**2 + cp(3,ipoint)**2) 855 prod = -cp(3, ipoint) * r(ipoint, 0, 0, v, jval) 861 prod = -cp(2, ipoint) * r(ipoint, 0, u, v, jval) 867 prod = -cp(1, ipoint) * r(ipoint, t, u, v, jval) 882 ahgtf(ipoint, t, u, v) = - r(ipoint, t, u, v, 0) [all …]
|
/dports/science/pcmsolver/pcmsolver-1.3.0/tests/Fortran_host/ |
H A D | Fortran_host-modules.f90 | 77 integer(c_int) :: ipoint local 86 n_mep(ipoint) = n_mep(ipoint) + (charges(i)/dist) 133 integer(c_int) :: ipoint local 136 do ipoint = 1, grid_size 137 if (.not. check(ipoint)) then 145 do ipoint = 1, grid_size 146 if (.not. check(ipoint)) then 154 do ipoint = 1, grid_size 155 if (.not. check(ipoint)) then 163 do ipoint = 1, grid_size [all …]
|
/dports/graphics/xd3d/xd3d-8.3.1/src/X/ |
H A D | gsplne.f | 34 ipoint = 1 37 call gsplne_loc(nnn,x(ipoint),y(ipoint),iclose) 38 xcourant = origine_x + facteur_en_x*X(ipoint+nnn-1) 39 ycourant = origine_y + facteur_en_y*Y(ipoint+nnn-1) 42 ipoint = ipoint+nnn 44 call gsmove(x(ipoint-1),y(ipoint-1)) 45 call gsline(x(ipoint),y(ipoint))
|
/dports/science/afni/afni-AFNI_21.3.16/src/coxplot/ |
H A D | zzchar.c | 58 static integer nu, nv, ipoint; in zzchar_() local 125 ipoint = ia[*(unsigned char *)ch]; in zzchar_() 138 nu = ku[ipoint - 1]; in zzchar_() 139 nv = kv[ipoint - 1]; in zzchar_() 140 ++ipoint; in zzchar_() 154 xold = *xp + ctl * ku[ipoint - 1] - stl * kv[ipoint - 1]; in zzchar_() 155 yold = *yp + stl * ku[ipoint - 1] + ctl * kv[ipoint - 1]; in zzchar_() 156 ++ipoint; in zzchar_()
|
/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | spooles.c | 533 ipoint = ipoint + icol[col]; in spooles_factor() 544 ipoint = ipoint + icol[col]; in spooles_factor() 563 ipoint = ipoint + icol[col]; in spooles_factor() 576 ipoint = ipoint + icol[col]; in spooles_factor() 602 ipoint = ipoint + icol[col]; in spooles_factor() 616 ipoint = ipoint + icol[col]; in spooles_factor() 870 ipoint = ipoint + icol[col]; in spooles_factor_rad() 881 ipoint = ipoint + icol[col]; in spooles_factor_rad() 897 ipoint = ipoint + icol[col]; in spooles_factor_rad() 910 ipoint = ipoint + icol[col]; in spooles_factor_rad() [all …]
|
/dports/devel/etl/synfig-1.2.2/synfig-core/src/synfig/ |
H A D | curveset.cpp | 77 struct ipoint struct 83 ipoint *next; argument 84 ipoint *prev; argument 85 ipoint *neighbor; argument 89 ipoint(): in ipoint() function 121 ipoint *bef = this, in insert_after() 136 ipoint *bef = prev, in insert_before() 148 ipoint *search = this; in insert_sorted() 239 ipoint *ip1 = new ipoint, *ip2 = new ipoint; in GetIntersections() 272 ipoint *start, *iter; in GetIntersections() [all …]
|
/dports/graphics/synfig/synfig-1.2.2/synfig-core/src/synfig/ |
H A D | curveset.cpp | 77 struct ipoint struct 83 ipoint *next; argument 84 ipoint *prev; argument 85 ipoint *neighbor; argument 89 ipoint(): in ipoint() argument 121 ipoint *bef = this, in insert_after() 136 ipoint *bef = prev, in insert_before() 148 ipoint *search = this; in insert_sorted() 239 ipoint *ip1 = new ipoint, *ip2 = new ipoint; in GetIntersections() 272 ipoint *start, *iter; in GetIntersections() [all …]
|
/dports/graphics/synfigstudio/synfig-1.2.2/synfig-core/src/synfig/ |
H A D | curveset.cpp | 77 struct ipoint struct 83 ipoint *next; argument 84 ipoint *prev; argument 85 ipoint *neighbor; argument 89 ipoint(): in ipoint() function 121 ipoint *bef = this, in insert_after() 136 ipoint *bef = prev, in insert_before() 148 ipoint *search = this; in insert_sorted() 239 ipoint *ip1 = new ipoint, *ip2 = new ipoint; in GetIntersections() 272 ipoint *start, *iter; in GetIntersections() [all …]
|
/dports/math/py-iminuit/iminuit-2.8.4/extern/root/math/minuit2/src/ |
H A D | MnPlot.cxx | 28 …for (std::vector<std::pair<double, double>>::const_iterator ipoint = points.begin(); ipoint != poi… in operator ()() local 29 ++ipoint) { in operator ()() 30 x.push_back((*ipoint).first); in operator ()() 31 y.push_back((*ipoint).second); in operator ()() 54 …for (std::vector<std::pair<double, double>>::const_iterator ipoint = points.begin(); ipoint != poi… in operator ()() local 55 ++ipoint) { in operator ()() 56 x.push_back((*ipoint).first); in operator ()() 57 y.push_back((*ipoint).second); in operator ()()
|
/dports/science/minc2/minc-release-2.2.00/progs/xfm/ |
H A D | transformtags.c | 92 int n_volumes, n_tag_points, ipoint; in main() local 157 for (ipoint=0; ipoint < n_tag_points; ipoint++) { in main() 159 tag_list[ipoint][0], in main() 160 tag_list[ipoint][1], in main() 161 tag_list[ipoint][2], in main() 162 &tag_list[ipoint][0], in main() 163 &tag_list[ipoint][1], in main() 164 &tag_list[ipoint][2]); in main()
|
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/src/ |
H A D | VPSApproximation.cpp | 187 for (size_t ipoint = 0; ipoint < _num_inserted_points; ipoint++) in VPS_execute() local 206 for (size_t ipoint = 0; ipoint < _num_inserted_points; ipoint++) in VPS_execute() local 336 for (size_t ipoint = 0; ipoint < _num_inserted_points; ipoint++) in VPS_create_containers() local 419 for (size_t ipoint = 0; ipoint < _num_inserted_points; ipoint++) in VPS_create_containers() local 437 for (size_t ipoint = 0; ipoint < _num_inserted_points; ipoint++) in VPS_create_containers() local 489 for (size_t ipoint = 0; ipoint < _num_inserted_points; ipoint++) in VPS_create_containers() local 503 for (size_t ipoint = 0; ipoint < _num_inserted_points; ipoint++) in VPS_create_containers() local 584 for (size_t ipoint = 0; ipoint < _num_inserted_points; ipoint++) in VPS_create_containers() local 793 for (size_t ipoint = 0; ipoint < _num_inserted_points; ipoint++) in VPS_adjust_extend_neighbors_of_all_points() local 933 for (size_t ipoint = 0; ipoint < _num_inserted_points; ipoint++) in VPS_destroy_global_containers() local [all …]
|
/dports/audio/praat/praat-6.2.03/dwtools/ |
H A D | DataModeler.cpp | 896 for (integer ipoint = 1; ipoint <= zscores.size; ipoint ++) { in chisqFromZScores() local 1091 for (integer ipoint = 1; ipoint <= my numberOfDataPoints; ipoint ++) in DataModeler_getNumberOfValidDataPoints() local 1107 for (integer ipoint = 1; ipoint <= my numberOfDataPoints; ipoint ++) in DataModeler_getDegreesOfFreedom() local 1173 for (integer ipoint = 1; ipoint <= my numberOfDataPoints; ipoint ++) { in DataModeler_getChisqScoresFromZScores() local 1176 chisq [ipoint] = zscores [ipoint] * zscores [ipoint]; in DataModeler_getChisqScoresFromZScores() 1207 for (integer ipoint = 1; ipoint <= my numberOfDataPoints; ipoint ++) in DataModeler_getWeightedMean() local 1326 for (integer ipoint = ixmin; ipoint <= ixmax; ipoint ++) { in DataModeler_draw_inside() local 1383 for (integer ipoint = 1; ipoint <= numberOfPoints; ipoint ++) { in DataModeler_drawModel_inside() local 1392 for (integer ipoint = 2; ipoint <= numberOfPoints; ipoint ++) { in DataModeler_drawModel_inside() local 1394 if (NUMclipLineWithinRectangle (x [ipoint - 1], y [ipoint - 1], x [ipoint], y [ipoint], in DataModeler_drawModel_inside() [all …]
|
/dports/math/sisl/SISL-SISL-4.6.0-44-g9114631/src/ |
H A D | s9conmarch.c | 55 s9conmarch(SISLSurf *ps,double alevel,double epar[],int ndir[],int ipoint, in s9conmarch() argument 58 void s9conmarch(ps,alevel,epar,ndir,ipoint,gpar,mpar,jpoint,jstat) in s9conmarch() 63 int ipoint; 159 if ((*mpar=newarray(ipoint,INT )) == SISL_NULL) goto err101; 160 if ((*gpar=newarray(6*ipoint,DOUBLE)) == SISL_NULL) goto err101; 165 memcopy(spar,epar,2*ipoint,DOUBLE); 166 *jpoint = ipoint; 170 for (ki=0 ; ki< ipoint ; ki++) *(lpar+ki) = 0; 174 for (ki=0, sp=spar ; ki< ipoint-1 ; ki++, sp+=2) 193 for (kj=ki+1,sq=spar+2*ki+2 ; kj<ipoint ; kj++,sq+=2)
|
/dports/biology/molden/molden5.8/ |
H A D | rotmom.f | 1 subroutine rotmod(ipoint,ifav,coo) argument 16 if (ipoint .gt. maxpt) return 59 if (idon(ipoint).eq.1) then 62 angle(j) = angs(j,ipoint) 72 angle(j) = angs(j,ipoint-1) 73 angs(j,ipoint) = angs(j,ipoint-1) 76 idon(ipoint) = 1 160 idon(ipoint) = 1 163 angs(j,ipoint) = angle(j)
|
/dports/audio/praat/praat-6.2.03/fon/ |
H A D | Pitch_AnyTier_to_PitchTier.cpp | 36 for (integer ipoint = 1; ipoint <= tier -> points.size; ipoint ++) { in PitchTier_AnyTier_to_PitchTier() local 37 AnyPoint point = tier -> points.at [ipoint]; in PitchTier_AnyTier_to_PitchTier() 66 for (integer ipoint = 1; ipoint <= tier -> points.size; ipoint ++) { in Pitch_AnyTier_to_PitchTier() local 67 AnyPoint point = tier -> points.at [ipoint]; in Pitch_AnyTier_to_PitchTier()
|