Home
last modified time | relevance | path

Searched refs:iorder (Results 1 – 25 of 246) sorted by relevance

12345678910

/dports/astro/py-pykep/pykep-2.6/src/third_party/cspice/
H A Dzzekordi.c10 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 Dzzekordd.c10 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 Dzzekordc.c10 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 Dreordi.c9 /* 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 Dreordd.c9 /* 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 Dreordl.c9 /* 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 Dreordc.c9 /* 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 Ddafra.c9 /* 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 Dzzekordd.c10 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 Dzzekordi.c10 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 Dzzekordc.c10 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 Dreordi.c9 /* 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 Dreordd.c9 /* 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 Dreordl.c9 /* 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 Dreordc.c9 /* 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 Ddafra.c9 /* 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 Dcarmom_hbra.F9091 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 Ddelta_geom.F90100 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 Dmag_zero_part.F90190 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 Dsorteig.c75 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 Dsorteig.c75 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 Dprim_hgto_odist.F90138 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 D05B16_udo_ambisonics_2.csd29 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 D05B15_udo_ambisonics_1.csd11 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 Dprim_hgto_value.F90117 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 …]

12345678910