Searched refs:current_ik (Results 1 – 3 of 3) sorted by relevance
| /dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/ |
| H A D | exx_band.f90 | 662 INTEGER :: current_ik local
673 current_ik = ik
682 my_lda = lda_local(me_pool+1,current_ik)
776 IF ( comm_send(iproc+1,current_ik)%size.gt.0) THEN
777 DO i=1, comm_send(iproc+1,current_ik)%size
788 prev = prev + lda_local(j,current_ik)
845 IF ( comm_recv(iproc+1,current_ik)%size.gt.0) THEN
884 DO i=1, comm_recv(iproc+1,current_ik)%size
1309 INTEGER :: i, j, im, iproc, ig, ik, current_ik, iegrp local
1321 current_ik = current_k
[all …]
|
| H A D | exx.f90 | 378 INTEGER :: npw, current_ik local
919 INTEGER :: current_ik local
966 ikq = index_xkq(current_ik,iq)
1293 INTEGER :: current_ik local
1398 ikq = index_xkq(current_ik,iq)
1911 ikq = index_xkq(current_ik,iq)
3435 INTEGER :: current_ik local
3465 ikq = index_xkq(current_ik,iq)
3812 INTEGER :: current_ik, current_jk local
3829 current_jk = index_xkq(current_ik,1)
[all …]
|
| H A D | exx_base.f90 | 123 INTEGER :: ikq, current_ik, ik local
135 DO current_ik = 1, nkstot
137 IF (index_xk(ikq) == current_ik) EXIT
139 IF (current_ik>nkstot) CALL errore( "exx_mp_init", "could not find the local index", ikq )
142 ik = local_kpoint_index(nkstot, current_ik)
|