/dports/astro/py-pykep/pykep-2.6/src/third_party/cspice/ |
H A D | zzekordi.c | 10 nlflgs, integer *nvals, integer *iorder) in zzekordi_() argument 209 iorder[i__ - 1] = i__; in zzekordi_() 223 if (! (*nullok) && (ivals[iorder[j - 1] - 1] < ivals[iorder[ in zzekordi_() 225 iorder[jg - 1] - 1] && iorder[j - 1] < iorder[jg - 1]) in zzekordi_() 227 iorder[jg - 1] - 1] || nlflgs[iorder[j - 1] - 1] && in zzekordi_() 228 nlflgs[iorder[jg - 1] - 1] && iorder[j - 1] < iorder[ in zzekordi_() 230 iorder[jg - 1] - 1]) && (ivals[iorder[j - 1] - 1] < in zzekordi_() 231 ivals[iorder[jg - 1] - 1] || ivals[iorder[j - 1] - 1] in zzekordi_() 232 == ivals[iorder[jg - 1] - 1] && iorder[j - 1] < in zzekordi_() 233 iorder[jg - 1]))) { in zzekordi_() [all …]
|
H A D | zzekordd.c | 10 nlflgs, integer *nvals, integer *iorder) in zzekordd_() argument 207 iorder[i__ - 1] = i__; in zzekordd_() 221 if (! (*nullok) && (dvals[iorder[j - 1] - 1] < dvals[iorder[ in zzekordd_() 223 iorder[jg - 1] - 1] && iorder[j - 1] < iorder[jg - 1]) in zzekordd_() 225 iorder[jg - 1] - 1] || nlflgs[iorder[j - 1] - 1] && in zzekordd_() 226 nlflgs[iorder[jg - 1] - 1] && iorder[j - 1] < iorder[ in zzekordd_() 228 iorder[jg - 1] - 1]) && (dvals[iorder[j - 1] - 1] < in zzekordd_() 229 dvals[iorder[jg - 1] - 1] || dvals[iorder[j - 1] - 1] in zzekordd_() 230 == dvals[iorder[jg - 1] - 1] && iorder[j - 1] < in zzekordd_() 231 iorder[jg - 1]))) { in zzekordd_() [all …]
|
H A D | zzekordc.c | 10 integer *nvals, integer *iorder, ftnlen cvals_len) in zzekordc_() argument 218 iorder[i__ - 1] = i__; in zzekordc_() 233 iorder[jg - 1] - 1) * cvals_len, cvals_len, cvals_len) in zzekordc_() 238 if (! (*nullok) && (le1 || eq1 && iorder[j - 1] < iorder[jg - in zzekordc_() 239 1]) || *nullok && (nlflgs[iorder[j - 1] - 1] && ! in zzekordc_() 240 nlflgs[iorder[jg - 1] - 1] || nlflgs[iorder[j - 1] - in zzekordc_() 241 1] && nlflgs[iorder[jg - 1] - 1] && iorder[j - 1] < in zzekordc_() 242 iorder[jg - 1] || ! (nlflgs[iorder[j - 1] - 1] || in zzekordc_() 243 nlflgs[iorder[jg - 1] - 1]) && (le1 || eq1 && iorder[ in zzekordc_() 244 j - 1] < iorder[jg - 1]))) { in zzekordc_() [all …]
|
H A D | reordi.c | 9 /* Subroutine */ int reordi_(integer *iorder, integer *ndim, integer *array) in reordi_() argument 183 hold = iorder[index - 1]; in reordi_() 197 hold = iorder[hold - 1]; in reordi_() 198 iorder[index - 1] = -iorder[index - 1]; in reordi_() 204 iorder[hold - 1] = -iorder[hold - 1]; in reordi_() 210 while(iorder[start - 1] < 0 && start < *ndim) { in reordi_() 220 iorder[index - 1] = (i__2 = iorder[index - 1], abs(i__2)); in reordi_()
|
H A D | reordd.c | 9 /* Subroutine */ int reordd_(integer *iorder, integer *ndim, doublereal * in reordd_() argument 186 hold = iorder[index - 1]; in reordd_() 200 hold = iorder[hold - 1]; in reordd_() 201 iorder[index - 1] = -iorder[index - 1]; in reordd_() 207 iorder[hold - 1] = -iorder[hold - 1]; in reordd_() 213 while(iorder[start - 1] < 0 && start < *ndim) { in reordd_() 223 iorder[index - 1] = (i__2 = iorder[index - 1], abs(i__2)); in reordd_()
|
H A D | reordl.c | 9 /* Subroutine */ int reordl_(integer *iorder, integer *ndim, logical *array) in reordl_() argument 180 hold = iorder[index - 1]; in reordl_() 194 hold = iorder[hold - 1]; in reordl_() 195 iorder[index - 1] = -iorder[index - 1]; in reordl_() 201 iorder[hold - 1] = -iorder[hold - 1]; in reordl_() 207 while(iorder[start - 1] < 0 && start < *ndim) { in reordl_() 217 iorder[index - 1] = (i__2 = iorder[index - 1], abs(i__2)); in reordl_()
|
H A D | reordc.c | 9 /* Subroutine */ int reordc_(integer *iorder, integer *ndim, char *array, in reordc_() argument 203 hold = iorder[index - 1]; in reordc_() 219 hold = iorder[hold - 1]; in reordc_() 220 iorder[index - 1] = -iorder[index - 1]; in reordc_() 227 iorder[hold - 1] = -iorder[hold - 1]; in reordc_() 233 while(iorder[start - 1] < 0 && start < *ndim) { in reordc_() 243 iorder[index - 1] = (i__3 = iorder[index - 1], abs(i__3)); in reordc_()
|
H A D | dafra.c | 9 /* Subroutine */ int dafra_(integer *handle, integer *iorder, integer *n) in dafra_() argument 236 if (! isordv_(iorder, n)) { in dafra_() 288 hold = iorder[index - 1]; in dafra_() 331 hold = iorder[hold - 1]; in dafra_() 332 iorder[index - 1] = -iorder[index - 1]; in dafra_() 344 iorder[hold - 1] = -iorder[hold - 1]; in dafra_() 350 while(iorder[start - 1] < 0 && start < *n) { in dafra_() 360 iorder[index - 1] = (i__2 = iorder[index - 1], abs(i__2)); in dafra_()
|
/dports/astro/pykep/pykep-2.6/src/third_party/cspice/ |
H A D | zzekordd.c | 10 nlflgs, integer *nvals, integer *iorder) in zzekordd_() argument 207 iorder[i__ - 1] = i__; in zzekordd_() 221 if (! (*nullok) && (dvals[iorder[j - 1] - 1] < dvals[iorder[ in zzekordd_() 223 iorder[jg - 1] - 1] && iorder[j - 1] < iorder[jg - 1]) in zzekordd_() 225 iorder[jg - 1] - 1] || nlflgs[iorder[j - 1] - 1] && in zzekordd_() 226 nlflgs[iorder[jg - 1] - 1] && iorder[j - 1] < iorder[ in zzekordd_() 228 iorder[jg - 1] - 1]) && (dvals[iorder[j - 1] - 1] < in zzekordd_() 229 dvals[iorder[jg - 1] - 1] || dvals[iorder[j - 1] - 1] in zzekordd_() 230 == dvals[iorder[jg - 1] - 1] && iorder[j - 1] < in zzekordd_() 231 iorder[jg - 1]))) { in zzekordd_() [all …]
|
H A D | zzekordi.c | 10 nlflgs, integer *nvals, integer *iorder) in zzekordi_() argument 209 iorder[i__ - 1] = i__; in zzekordi_() 223 if (! (*nullok) && (ivals[iorder[j - 1] - 1] < ivals[iorder[ in zzekordi_() 225 iorder[jg - 1] - 1] && iorder[j - 1] < iorder[jg - 1]) in zzekordi_() 227 iorder[jg - 1] - 1] || nlflgs[iorder[j - 1] - 1] && in zzekordi_() 228 nlflgs[iorder[jg - 1] - 1] && iorder[j - 1] < iorder[ in zzekordi_() 230 iorder[jg - 1] - 1]) && (ivals[iorder[j - 1] - 1] < in zzekordi_() 231 ivals[iorder[jg - 1] - 1] || ivals[iorder[j - 1] - 1] in zzekordi_() 232 == ivals[iorder[jg - 1] - 1] && iorder[j - 1] < in zzekordi_() 233 iorder[jg - 1]))) { in zzekordi_() [all …]
|
H A D | zzekordc.c | 10 integer *nvals, integer *iorder, ftnlen cvals_len) in zzekordc_() argument 218 iorder[i__ - 1] = i__; in zzekordc_() 233 iorder[jg - 1] - 1) * cvals_len, cvals_len, cvals_len) in zzekordc_() 238 if (! (*nullok) && (le1 || eq1 && iorder[j - 1] < iorder[jg - in zzekordc_() 239 1]) || *nullok && (nlflgs[iorder[j - 1] - 1] && ! in zzekordc_() 240 nlflgs[iorder[jg - 1] - 1] || nlflgs[iorder[j - 1] - in zzekordc_() 241 1] && nlflgs[iorder[jg - 1] - 1] && iorder[j - 1] < in zzekordc_() 242 iorder[jg - 1] || ! (nlflgs[iorder[j - 1] - 1] || in zzekordc_() 243 nlflgs[iorder[jg - 1] - 1]) && (le1 || eq1 && iorder[ in zzekordc_() 244 j - 1] < iorder[jg - 1]))) { in zzekordc_() [all …]
|
H A D | reordi.c | 9 /* Subroutine */ int reordi_(integer *iorder, integer *ndim, integer *array) in reordi_() argument 183 hold = iorder[index - 1]; in reordi_() 197 hold = iorder[hold - 1]; in reordi_() 198 iorder[index - 1] = -iorder[index - 1]; in reordi_() 204 iorder[hold - 1] = -iorder[hold - 1]; in reordi_() 210 while(iorder[start - 1] < 0 && start < *ndim) { in reordi_() 220 iorder[index - 1] = (i__2 = iorder[index - 1], abs(i__2)); in reordi_()
|
H A D | reordd.c | 9 /* Subroutine */ int reordd_(integer *iorder, integer *ndim, doublereal * in reordd_() argument 186 hold = iorder[index - 1]; in reordd_() 200 hold = iorder[hold - 1]; in reordd_() 201 iorder[index - 1] = -iorder[index - 1]; in reordd_() 207 iorder[hold - 1] = -iorder[hold - 1]; in reordd_() 213 while(iorder[start - 1] < 0 && start < *ndim) { in reordd_() 223 iorder[index - 1] = (i__2 = iorder[index - 1], abs(i__2)); in reordd_()
|
H A D | reordl.c | 9 /* Subroutine */ int reordl_(integer *iorder, integer *ndim, logical *array) in reordl_() argument 180 hold = iorder[index - 1]; in reordl_() 194 hold = iorder[hold - 1]; in reordl_() 195 iorder[index - 1] = -iorder[index - 1]; in reordl_() 201 iorder[hold - 1] = -iorder[hold - 1]; in reordl_() 207 while(iorder[start - 1] < 0 && start < *ndim) { in reordl_() 217 iorder[index - 1] = (i__2 = iorder[index - 1], abs(i__2)); in reordl_()
|
H A D | reordc.c | 9 /* Subroutine */ int reordc_(integer *iorder, integer *ndim, char *array, in reordc_() argument 203 hold = iorder[index - 1]; in reordc_() 219 hold = iorder[hold - 1]; in reordc_() 220 iorder[index - 1] = -iorder[index - 1]; in reordc_() 227 iorder[hold - 1] = -iorder[hold - 1]; in reordc_() 233 while(iorder[start - 1] < 0 && start < *ndim) { in reordc_() 243 iorder[index - 1] = (i__3 = iorder[index - 1], abs(i__3)); in reordc_()
|
H A D | dafra.c | 9 /* Subroutine */ int dafra_(integer *handle, integer *iorder, integer *n) in dafra_() argument 236 if (! isordv_(iorder, n)) { in dafra_() 288 hold = iorder[index - 1]; in dafra_() 331 hold = iorder[hold - 1]; in dafra_() 332 iorder[index - 1] = -iorder[index - 1]; in dafra_() 344 iorder[hold - 1] = -iorder[hold - 1]; in dafra_() 350 while(iorder[start - 1] < 0 && start < *n) { in dafra_() 360 iorder[index - 1] = (i__2 = iorder[index - 1], abs(i__2)); in dafra_()
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/src/carmom/ |
H A D | carmom_hbra.F90 | 91 do iorder = 1, 3 92 sd_bra_ket = sd_bra_ket+(coord_ket(iorder)-coord_bra(iorder))**2 110 do iorder = 1, 3 111 cc_wrt_bra(iorder) = half_recip_nup*(coord_bra(iorder)-coord_ket(iorder)) 125 do iorder = 1, 3 126 cc_wrt_bra(iorder) = half_recip_nup*(coord_bra(iorder)-coord_ket(iorder)) 192 cc_wrt_bra(iorder) = half_recip_nup*(coord_bra(iorder)-coord_ket(iorder)) 207 cc_wrt_bra(iorder) = half_recip_nup*(coord_bra(iorder)-coord_ket(iorder)) 231 cc_wrt_bra(iorder) = half_recip_nup*(coord_bra(iorder)-coord_ket(iorder)) 309 cc_wrt_bra(iorder) = half_recip_nup*(coord_bra(iorder)-coord_ket(iorder)) [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/src/delta/ |
H A D | delta_geom.F90 | 100 do iorder = 1, 3 101 delta_wrt_cc(iorder) = delta_origin(iorder)-(exponent_bra*coord_bra(iorder) & 103 sd_bra_ket = sd_bra_ket+(coord_ket(iorder)-coord_bra(iorder))**2 155 + real(iorder,REALK)*geo_pot_pints(base_low_geo+iorder)) 205 geo_pot_pints(iorder) = delta_wrt_cc(iorder)*zero_pint 207 delta_wrt_cc(iorder) = recur_param*delta_wrt_cc(iorder) 225 geo_pot_pints(iorder) = delta_wrt_cc(iorder)*zero_pint 255 + real(iorder,REALK)*geo_pot_pints(base_low_geo+iorder)) 320 + real(iorder,REALK)*tmp_ints(base_low_geo+iorder)) 384 + real(iorder,REALK)*tmp_ints(base_low_geo+iorder)) [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/src/mag/ |
H A D | mag_zero_part.F90 | 190 do iorder = 1, order_aux 191 do jterm = iterm, iterm+order_aux-iorder 194 iterm = iterm+up_order_aux-iorder 214 do iorder = 1, order_aux 215 jorder = iorder-1 216 do jterm = iterm, iterm+order_aux-iorder 219 iterm = iterm+up_order_aux-iorder 239 do iorder = 1, order_aux 240 jorder = iorder-1 241 do jterm = iterm, iterm+order_aux-iorder [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/peigs/src/c/ |
H A D | sorteig.c | 75 iorder = iwork; 86 iorder[indx] = indx; 104 qqsort(iorder, ileft, iright); 113 qqsort(iorder, ileft, iright); 150 jj = iorder[ indx ]; 160 jj = iorder[ jlast ]; 179 if( iorder[ indx ] < 0 ) 180 iorder[ indx ] = -iorder[ indx ] - 1; 190 iorder[ k ] = i_work[ iorder[indx] ]; 201 jj = iorder[ indx ]; [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/peigs/src/c/ |
H A D | sorteig.c | 75 iorder = iwork; 86 iorder[indx] = indx; 104 qqsort(iorder, ileft, iright); 113 qqsort(iorder, ileft, iright); 150 jj = iorder[ indx ]; 160 jj = iorder[ jlast ]; 179 if( iorder[ indx ] < 0 ) 180 iorder[ indx ] = -iorder[ indx ] - 1; 190 iorder[ k ] = i_work[ iorder[indx] ]; 201 jj = iorder[ indx ]; [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/src/odist/ |
H A D | prim_hgto_odist.F90 | 138 do iorder = 1, order_hgto 155 do iorder = 1, order_hgto 226 do iorder = 1, order_hgto 243 do iorder = 1, order_hgto 294 do iorder = 1, order_hgto 299 + real(iorder,REALK)*half_nr_expnt*tmp_odist(base_low_hgto+iorder,1) 309 do iorder = 1, order_hgto 361 do iorder = 1, order_hgto 366 + real(iorder,REALK)*half_nr_expnt*tmp_odist(base_low_hgto+iorder,1) 665 + real(iorder,REALK)*half_nr_expnt*tmp_odist(:,base_low_hgto+iorder) [all …]
|
/dports/audio/csoundqt/CsoundQt-0.9.8.1/src/Examples/FLOSS Manual Examples/05 Sound Modification/ |
H A D | 05B16_udo_ambisonics_2.csd | 29 iorder,iaz,iel xin 33 if iorder > 0 goto c0 37 a1=iWeight3D[iorder-1][0]*zar(1) 38 a2=iWeight3D[iorder-1][0]*zar(2) 39 a3=iWeight3D[iorder-1][0]*zar(3) 47 if iorder > 1 goto c1 51 a4=iWeight3D[iorder-1][1]*zar(4) 52 a5=iWeight3D[iorder-1][1]*zar(5) 81 iorder,ifn xin 85 iorder,ifn xin [all …]
|
H A D | 05B15_udo_ambisonics_1.csd | 11 asnd,iorder,kaz,kel xin 24 if iorder < 2 goto end 45 iorder,iaz,iel xin 49 if iorder > 0 goto c0 63 if iorder > 1 goto c1 95 ; overloaded opcode for decoding of order iorder 98 iorder,ifn xin 102 iorder,ifn xin 104 ambi_decode1(iorder,table(3,ifn),table(4,ifn)) 107 iorder,ifn xin [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/src/value/ |
H A D | prim_hgto_value.F90 | 117 do iorder = 1, order_hgto 134 do iorder = 1, order_hgto 205 do iorder = 1, order_hgto 222 do iorder = 1, order_hgto 273 do iorder = 1, order_hgto 278 + real(iorder,REALK)*half_nr_expnt*tmp_hgto(base_low_hgto+iorder,1) 288 do iorder = 1, order_hgto 340 do iorder = 1, order_hgto 345 + real(iorder,REALK)*half_nr_expnt*tmp_hgto(base_low_hgto+iorder,1) 355 do iorder = 1, order_hgto [all …]
|