Searched refs:nhjkb (Results 1 – 5 of 5) sorted by relevance
| /dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/ |
| H A D | forces_bp_efield.f90 | 117 INTEGER :: nhjkb local
696 nhjkb = nkbtonh(jkb)
700 jkb1 = jkb - nhjkb
704 *q_dk_so(nhjkb,j,1,np)*struc(na)
706 *q_dk_so(nhjkb,j,2,np)*struc(na)
708 *q_dk_so(nhjkb,j,3,np)*struc(na)
714 *q_dk(nhjkb,j,np)*struc(na)
773 nhjkb = nkbtonh(jkb)
777 jkb1 = jkb - nhjkb
815 nhjkb = nkbtonh(jkb)
[all …]
|
| H A D | h_epsi_her_apply.f90 | 66 INTEGER :: npw, nb,mb, jkb, nhjkb, na, np, nhjkbm,jkb1,i,j,iv local
117 nhjkb = nkbtonh(jkb)
121 jkb1 = jkb - nhjkb
127 *qq_so(nhjkb,j,1,np)
129 *qq_so(nhjkb,j,2,np)
131 *qq_so(nhjkb,j,3,np)
133 *qq_so(nhjkb,j,4,np)
137 *qq_at(nhjkb,j,na)
|
| H A D | h_epsi_her_set.f90 | 77 INTEGER :: nhjkb local
418 nhjkb = nkbtonh(jkb)
422 jkb1 = jkb - nhjkb
723 nhjkb = nkbtonh(jkb)
727 jkb1 = jkb - nhjkb
997 nhjkb = nkbtonh(jkb)
1001 jkb1 = jkb - nhjkb
1015 * q_dk(nhjkb,j,np)*struc(na)
1300 nhjkb = nkbtonh(jkb)
1304 jkb1 = jkb - nhjkb
[all …]
|
| H A D | c_phase_field.f90 | 89 INTEGER :: nhjkb local
556 nhjkb = nkbtonh(jkb)
560 jkb1 = jkb - nhjkb
564 *q_dk_so(nhjkb,j,1,np)*struc(na)
566 *q_dk_so(nhjkb,j,2,np)*struc(na)
568 *q_dk_so(nhjkb,j,3,np)*struc(na)
570 *q_dk_so(nhjkb,j,4,np)*struc(na)
575 *q_dk(nhjkb,j,np)*struc(na)
|
| H A D | bp_c_phase.f90 | 225 INTEGER :: nhjkb local
644 nhjkb = nkbtonh(jkb)
648 jkb1 = jkb - nhjkb
654 *q_dk_so(nhjkb,j,1,np) &
657 *q_dk_so(nhjkb,j,2,np) &
660 *q_dk_so(nhjkb,j,3,np) &
663 *q_dk_so(nhjkb,j,4,np))*struc(na)
669 *q_dk(nhjkb,j,np)*struc(na)
674 *q_dk(nhjkb,j,np)*struc(na)
|