/dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/ |
H A D | symmetrize_at.f90 | 44 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 D | ilists.scm | 60 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 D | comparators.scm | 51 (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 D | dynmat_hub_scf.f90 | 167 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 D | d2nsq_bare.f90 | 747 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 D | write_epsilon_and_zeu.f90 | 24 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 D | dynmat_hub_bare.f90 | 75 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 D | io_dyn_mat_old.f90 | 33 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 D | do_q2r.f90 | 47 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 D | product.R | 33 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 D | 116.sld | 18 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 D | check_q_points_sym.f90 | 24 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 D | ipermn.R | 36 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 D | isplit.R | 22 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 D | ecs_pre_med.c | 1193 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 D | test.sld | 13 (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 D | es_BO-SpanishBolivia.aff | 3042 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 D | es_PE-SpanishPeru.aff | 3027 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 D | es_EC-SpanishEcuador.aff | 3042 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 D | es_CR-SpanishCostaRica.aff | 3042 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 D | es_CU-SpanishCuba.aff | 3042 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 D | es_NI-SpanishNicaragua.aff | 3042 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 D | es_PA-SpanishPanama.aff | 3042 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 D | es_DO-SpanishDominicanRepublic.aff | 3042 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 D | es_GT-SpanishGuatemala.aff | 3042 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 …]
|