/dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/ |
H A D | transform_becsum_nc.f90 | 40 becsum_nc(ijh,na,1,1)+becsum_nc(ijh,na,2,2) 43 becsum_nc(ijh,na,1,2)+becsum_nc(ijh,na,2,1) 45 (becsum_nc(ijh,na,1,2)-becsum_nc(ijh,na,2,1)) 47 becsum_nc(ijh,na,1,1)-becsum_nc(ijh,na,2,2) 52 (becsum_nc(ijh,na,1,1)+becsum_nc(ijh,na,2,2)) & 53 + CONJG(becsum_nc(ijh,na,1,1)+becsum_nc(ijh,na,2,2)) 56 becsum_nc(ijh,na,1,2)+becsum_nc(ijh,na,2,1) & 57 + CONJG(becsum_nc(ijh,na,2,1)+becsum_nc(ijh,na,1,2)) 59 (becsum_nc(ijh,na,1,2)-becsum_nc(ijh,na,2,1) & 62 (becsum_nc(ijh,na,1,1)-becsum_nc(ijh,na,2,2)) & [all …]
|
H A D | transform_becsum_so.f90 | 53 fac=becsum_nc(ijh_l,na,is1,is2) 55 fac=CONJG(becsum_nc(ijh_l,na,is2,is1))
|
H A D | sum_band.f90 | 1140 COMPLEX(DP), INTENT(IN) :: becsum_nc(nh(np),npol,nh(np),npol) local 1158 DBLE( becsum_nc(ih,1,jh,1) + becsum_nc(ih,2,jh,2) ) 1161 DBLE( becsum_nc(ih,1,jh,2) + becsum_nc(ih,2,jh,1) ) 1163 (becsum_nc(ih,1,jh,2) - becsum_nc(ih,2,jh,1)) ) 1165 DBLE( becsum_nc(ih,1,jh,1) - becsum_nc(ih,2,jh,2) ) 1192 COMPLEX(DP), INTENT(IN) :: becsum_nc(nh(np),npol,nh(np),npol) local 1211 fac=becsum_nc(kh,is1,lh,is2)
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/PHonon/PH/ |
H A D | compute_becsum_ph.f90 | 30 USE phus, ONLY : alphasum, alphasum_nc, becsum_nc 46 IF (noncolin) becsum_nc = (0.d0,0.d0) 66 becsum_nc(ijh,na,is1,is2) = & 67 becsum_nc(ijh,na,is1,is2) + wgg1* & 87 becsum_nc(ijh,na,is1,is2) = & 88 becsum_nc(ijh,na,is1,is2)+ wgg1 * & 119 CALL transform_becsum_so(becsum_nc,becsum,na) 121 CALL transform_becsum_nc(becsum_nc,becsum,na)
|
H A D | addusdynmat.f90 | 29 int5, int5_so, alphasum, alphasum_nc, becsum_nc 79 becsum_nc(ijh,na,is1,is2) 83 CONJG(becsum_nc(ijh,na,is2,is1)) 167 becsum_nc(ijh,na,is1,is2) 173 CONJG(becsum_nc(ijh,na,is2,is1))
|
H A D | deallocate_phq.f90 | 23 int4, int4_nc, int5, int5_so, becsum_nc, & 100 if(allocated(becsum_nc)) deallocate(becsum_nc)
|
H A D | allocate_phq.f90 | 34 alphasum, alphasum_nc, becsum_nc, alphap 129 ALLOCATE(becsum_nc( nhm*(nhm+1)/2, nat, npol, npol))
|
H A D | phcom.f90 | 150 becsum_nc(:,:,:,:), &! nhm*(nhm+1)/2,nat,npol,npol) variable
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/PWCOND/src/ |
H A D | scat_states_plot.f90 | 254 becsum_nc(:,:,:,:), vec1(:), kfunz(:,:,:) local 275 IF (noncolin) ALLOCATE(becsum_nc(nhm*(nhm+1)/2,nat,npol,npol)) 404 becsum_nc(ijh,iat,is,js) = & 417 becsum_nc(ijh,iat,is,js) = & 430 CALL transform_becsum_so(becsum_nc,becsum,iat) 432 CALL transform_becsum_nc(becsum_nc,becsum,iat) 606 IF (noncolin) DEALLOCATE(becsum_nc)
|