Home
last modified time | relevance | path

Searched refs:icar (Results 1 – 25 of 149) sorted by relevance

123456

/dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/
H A Dsymmetrize_at.f9044 integer :: na, icar, ipol, jpol, kpol, lpol, irot local
91 do icar = 1, 3
93 sat(icar,lpol) = at_old(icar,1) * s(lpol,1,irot) &
94 + at_old(icar,2) * s(lpol,2,irot) &
95 + at_old(icar,3) * s(lpol,3,irot)
98 do icar = 1, 3
100 wrk(icar,kpol) = sat(icar,1) * ba(1,kpol) &
101 + sat(icar,2) * ba(2,kpol) &
102 + sat(icar,3) * ba(3,kpol)
105 do icar = 1, 3
[all …]
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/sitelib/srfi/%3a116/
H A Dilists.scm60 icar icdr ilist-ref
92 (fields (immutable icar icar)
104 (ipair (icar old) new))
301 (= (icar pair-a) (icar pair-b))
313 (define (icaar x) (icar (icar x)))
345 (define ifirst icar)
364 (ipair (icar lis)
765 (let* ((x (icar lis))
799 (let ((x (icar lis)))
808 (if (pred (icar lis))
[all …]
H A Dcomparators.scm51 (let ((r (car-compare (icar a) (icar b))))
60 (+ (car-hash (icar obj)) (cdr-hash (icdr obj))))))
67 (car-test-proc (icar obj))
81 (and (element-test-proc (icar ilist))
84 (make-listwise-comparator test-proc comparator null? icar icdr))
92 (car-test-proc (icar obj))))
95 (lambda (a b) (compare (icar a) (icar b))))
97 (lambda (obj) (hash (icar obj))))))
127 (cond ((ipair? obj) (+ (hash (icar obj)) (hash (icdr obj))))
/dports/science/quantum-espresso/q-e-qe-6.7.0/PHonon/PH/
H A Ddynmat_hub_scf.f90167 DO icar = 1, 3
168 na_icar = 3*(na-1)+icar
202 DO icar = 1, 3
203 na_icar = 3*(na-1)+icar
207 dvqhbar(ig,ibnd,icar,na) * u(na_icar,imode)
255 DO icar = 1, 3
276 dnsbare(m2,m1,is,nah,icar,na)
292 term(na,icar) = term(na,icar) - dvi*effU(nt)
333 term(na,icar) = term(na,icar) - dvi*Hubbard_J0(nt)
349 DO icar = 1, 3
[all …]
H A Dd2nsq_bare.f90747 DO icar = 1, 3
748 IF ((icar==icart) .OR. (icar==jcart)) THEN
753 CALL swfc (npw, 1, vkb_, dwfcatomk(:,ihubst1,icar), sdwfcatomk(:,ihubst1,icar))
757 CALL swfc (npw, 1, vkb_, dwfcatomk(:,ihubst2,icar), sdwfcatomk(:,ihubst2,icar))
934 DO icar = 1, 3
935 IF ((icar == icart) .OR. (icar == jcart)) THEN
940 CALL swfc (npw, 1, vkb_, dwfcatomk(:,ihubst1,icar), sdwfcatomk(:,ihubst1,icar))
1129 DO icar = 1, 3
1131 IF ( (icar == icart) .OR. (icar == jcart)) THEN
1308 DO icar = 1, 3
[all …]
H A Dwrite_epsilon_and_zeu.f9024 integer :: na, icar, jcar local
32 write (iudyn, '(3f24.12)') ((epsilon(icar,jcar), jcar=1,3), icar=1,3)
36 write (iudyn, '(3f24.12)') ((zstareu(icar,jcar,na), jcar=1,3), icar=1,3)
H A Ddynmat_hub_bare.f9075 imode, jmode, ldim, ik, ikk, ikq, icar, ibnd, & local
244 DO icar = 1, 3
246 IF ((icar==icart) .OR. (icar==jcart)) THEN
262 CALL dwfc(npw, igk_k(:,ikk), ikk, icar, &
263 vkb(:,ibeta), dvkb(:,ibeta,icar))
265 CALL dwfc(npwq, igk_k(:,ikq), ikq, icar, &
266 vkbkpq(:,ibeta), dvkbkpq(:,ibeta,icar))
269 projpdb(ibnd, ibeta, icar) = &
270 ZDOTC (npw, evc(:,ibnd), 1, dvkb(:,ibeta,icar), 1)
H A Dio_dyn_mat_old.f9033 integer :: na, nb, icar, jcar local
36 write (iudyn, 9000) (xq (icar), icar = 1, 3)
40 do icar = 1, 3
41 write (iudyn, '(3(2(f12.8,1x),2x))') (phi(icar,jcar,na,nb), jcar=1,3)
H A Ddo_q2r.f9047 INTEGER :: nat, nq, ntyp, iq, icar, nfile, ifile, nqs, nq_log local
189 DO icar=1,3
190 xq = xq + at(icar,ipol) * q(icar,nq) * nr(ipol)
333 icar, ipol, m1,m2,m3, m(3), nr(3), j1,j2, na1, na2, nn local
388 do icar=1,3
389 xq = xq + at(icar,ipol) * q(icar,nq) * nr(ipol)
/dports/devel/R-cran-itertools/itertools/R/
H A Dproduct.R33 icar <- iter(eval(args[[1]], envir=env)) functionVar
36 carval <- list(nextElem(icar))
49 icar <- NULL
56 icar <<- iter(eval(args[[n]], envir=env)) globalVar
60 carval <- list(nextElem(icar))
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/
H A D116.sld18 icar icdr icaar icadr icdar icddr
27 icar+icdr
64 replace-icar replace-icdr
78 make-icar-comparator make-icdr-comparator)
83 (icar+cdr icar+icdr)
106 (define (replace-icar x obj)
138 (define (make-icar-comparator comparator)
139 (make-field-comparator comparator ipair? icar))
/dports/science/quantum-espresso/q-e-qe-6.7.0/LR_Modules/
H A Dcheck_q_points_sym.f9024 INTEGER :: nq, ipol, icar, iq, jq local
40 DO icar = 1,3
41 xq = xq + at(icar,ipol) * sxq(icar,jq) * nr(ipol)
/dports/devel/R-cran-iterators/iterators/inst/examples/
H A Dipermn.R36 icar <- icount(n) functionVar
45 function() x[[nextElem(icar)]]
50 nextVal <<- nextElem(icar)
91 icar <- icount(n - m + 1) functionVar
100 function() x[[nextElem(icar)]]
105 nextVal <<- nextElem(icar)
/dports/devel/R-cran-iterators/iterators/R/
H A Displit.R22 icar <- icount(vn[n]) functionVar
30 function() nextElem(icar)
35 nextVal <<- nextElem(icar)
/dports/science/code_saturne/code_saturne-7.1.0/preprocessor/pre-post/
H A Decs_pre_med.c1193 ecs_int_t icar; in ecs_loc_pre_med__lit_famille() local
1390 for (icar = 0; icar < nbr_car; icar++) in ecs_loc_pre_med__lit_famille()
1391 *(nom + icar) = *(un_att_des_med + deb_pos_sans_blanc + icar); in ecs_loc_pre_med__lit_famille()
1435 for (icar = 0; icar < nbr_car; icar++) in ecs_loc_pre_med__lit_famille()
1436 *(nom + icar) = *(un_grp_des_med + deb_pos_sans_blanc + icar); in ecs_loc_pre_med__lit_famille()
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/116/
H A Dtest.sld13 (test 'a (icar abc))
106 (test '(1 2) (call-with-values (lambda () (icar+icdr (ipair 1 2))) list))
213 (test (iq 1 2 3) (iunfold null-ilist? icar icdr (iq 1 2 3)))
214 (test (iq 3 2 1) (iunfold-right null-ilist? icar icdr (iq 1 2 3)))
216 (iunfold null-ilist? icar icdr (iq 1 2) (lambda (x) (iq 3 4))))
241 (ipair-for-each (lambda (lis) (vector-set! v (icar lis) lis)) (iq 0 1 2 3 4))
245 (ipair-for-each (lambda (i j) (vector-set! v (icar i) j))
321 (test (ipair 1 3) (replace-icar (ipair 2 3) 1))
/dports/editors/texstudio/texstudio-4.1.2/utilities/dictionaries/
H A Des_BO-SpanishBolivia.aff3042 SFX Ì icar ícala icar
3043 SFX Ì icar ícalas icar
3044 SFX Ì icar ícalo icar
3045 SFX Ì icar ícalos icar
3319 SFX Í icar ícame icar
3320 SFX Í icar ícanos icar
3436 SFX Î icar ícale icar
3437 SFX Î icar ícales icar
4460 SFX Ù icar íquela icar
4462 SFX Ù icar íquelo icar
[all …]
H A Des_PE-SpanishPeru.aff3027 SFX Ì icar ícala icar
3028 SFX Ì icar ícalas icar
3029 SFX Ì icar ícalo icar
3030 SFX Ì icar ícalos icar
3302 SFX Í icar ícame icar
3303 SFX Í icar ícanos icar
3417 SFX Î icar ícale icar
3418 SFX Î icar ícales icar
4341 SFX Ù icar íquela icar
4343 SFX Ù icar íquelo icar
[all …]
H A Des_EC-SpanishEcuador.aff3042 SFX Ì icar ícala icar
3043 SFX Ì icar ícalas icar
3044 SFX Ì icar ícalo icar
3045 SFX Ì icar ícalos icar
3319 SFX Í icar ícame icar
3320 SFX Í icar ícanos icar
3436 SFX Î icar ícale icar
3437 SFX Î icar ícales icar
4460 SFX Ù icar íquela icar
4462 SFX Ù icar íquelo icar
[all …]
H A Des_CR-SpanishCostaRica.aff3042 SFX Ì icar ícala icar
3043 SFX Ì icar ícalas icar
3044 SFX Ì icar ícalo icar
3045 SFX Ì icar ícalos icar
3319 SFX Í icar ícame icar
3320 SFX Í icar ícanos icar
3436 SFX Î icar ícale icar
3437 SFX Î icar ícales icar
4460 SFX Ù icar íquela icar
4462 SFX Ù icar íquelo icar
[all …]
H A Des_CU-SpanishCuba.aff3042 SFX Ì icar ícala icar
3043 SFX Ì icar ícalas icar
3044 SFX Ì icar ícalo icar
3045 SFX Ì icar ícalos icar
3319 SFX Í icar ícame icar
3320 SFX Í icar ícanos icar
3436 SFX Î icar ícale icar
3437 SFX Î icar ícales icar
4460 SFX Ù icar íquela icar
4462 SFX Ù icar íquelo icar
[all …]
H A Des_NI-SpanishNicaragua.aff3042 SFX Ì icar ícala icar
3043 SFX Ì icar ícalas icar
3044 SFX Ì icar ícalo icar
3045 SFX Ì icar ícalos icar
3319 SFX Í icar ícame icar
3320 SFX Í icar ícanos icar
3436 SFX Î icar ícale icar
3437 SFX Î icar ícales icar
4460 SFX Ù icar íquela icar
4462 SFX Ù icar íquelo icar
[all …]
H A Des_PA-SpanishPanama.aff3042 SFX Ì icar ícala icar
3043 SFX Ì icar ícalas icar
3044 SFX Ì icar ícalo icar
3045 SFX Ì icar ícalos icar
3319 SFX Í icar ícame icar
3320 SFX Í icar ícanos icar
3436 SFX Î icar ícale icar
3437 SFX Î icar ícales icar
4460 SFX Ù icar íquela icar
4462 SFX Ù icar íquelo icar
[all …]
H A Des_DO-SpanishDominicanRepublic.aff3042 SFX Ì icar ícala icar
3043 SFX Ì icar ícalas icar
3044 SFX Ì icar ícalo icar
3045 SFX Ì icar ícalos icar
3319 SFX Í icar ícame icar
3320 SFX Í icar ícanos icar
3436 SFX Î icar ícale icar
3437 SFX Î icar ícales icar
4460 SFX Ù icar íquela icar
4462 SFX Ù icar íquelo icar
[all …]
H A Des_GT-SpanishGuatemala.aff3042 SFX Ì icar ícala icar
3043 SFX Ì icar ícalas icar
3044 SFX Ì icar ícalo icar
3045 SFX Ì icar ícalos icar
3317 SFX Í icar ícame icar
3320 SFX Í icar ícanos icar
3436 SFX Î icar ícale icar
3437 SFX Î icar ícales icar
4460 SFX Ù icar íquela icar
4462 SFX Ù icar íquelo icar
[all …]

123456