| /dports/science/quantum-espresso/q-e-qe-6.7.0/PHonon/PH/ |
| H A D | find_irrep.f90 | 22 USE control_ph, ONLY : lgamma_gamma
31 IF (nsym > 1.AND..NOT.lgamma_gamma.AND.modenum==0) THEN
50 USE control_ph, ONLY : lgamma_gamma
59 IF (lgamma_gamma) RETURN
|
| H A D | dynmatrix.f90 | 33 USE control_ph, ONLY : epsil, zue, lgamma_gamma, search_sym, ldisp, &
70 if (.not.lgamma_gamma) then
109 IF (lgamma_gamma) THEN
177 IF (lgamma_gamma) THEN
222 rtau, amass, ntyp, ityp, 1, lgamma_gamma, .FALSE., &
|
| H A D | phq_readin.f90 | 36 USE control_ph, ONLY : maxter, alpha_mix, lgamma_gamma, epsil, &
882 lgamma_gamma=.FALSE.
885 lgamma_gamma=(lgamma.AND.(ABS(xk(1,1))<1.D-12) &
889 IF (nogg) lgamma_gamma=.FALSE.
890 IF ((nat_todo /= 0) .and. lgamma_gamma) CALL errore( &
894 IF (nimage > 1 .AND. lgamma_gamma) CALL errore( &
902 IF (lgamma_gamma.AND.ldiag) CALL errore('phq_readin','incompatible flags',1)
903 …IF (lgamma_gamma.AND.elph ) CALL errore('phq_readin','lgamma_gamma and electron-phonon are incompa…
951 IF (modenum > 0 .OR. lraman ) lgamma_gamma=.FALSE.
952 IF (.NOT.lgamma_gamma) asr=.FALSE.
|
| H A D | phq_summary.f90 | 35 USE control_ph, ONLY : lgamma_gamma, lnoloc, zue, epsil, ldisp, &
270 IF (lgamma_gamma) &
275 IF (lgamma_gamma) THEN
310 IF (lgamma_gamma) THEN
|
| H A D | ef_shift.f90 | 39 USE control_ph, ONLY : lgamma_gamma
109 if (.not.lgamma_gamma) call sym_def (def, irr)
192 USE control_ph, ONLY : lgamma_gamma
261 if (.not.lgamma_gamma) call sym_def (def, irr)
|
| H A D | summarize.f90 | 21 USE control_ph, ONLY : lgamma_gamma, lnoloc, done_epsil
44 IF (lgamma_gamma) THEN
|
| H A D | phq_setup.f90 | 71 USE control_ph, ONLY : rec_code, lgamma_gamma, search_sym, start_irr, &
266 IF (lgamma_gamma) THEN
327 if (lgamma_gamma) then
389 all_comp = all_comp.OR.lgamma_gamma
|
| H A D | solve_e.f90 | 54 alpha_mix, lgamma_gamma, niter_ph, &
348 if (.not.lgamma_gamma) then
399 IF (.NOT. lgamma_gamma) CALL PAW_desymmetrize(dbecsum)
|
| H A D | phcom.f90 | 219 LOGICAL :: lgamma_gamma,&! if .TRUE. this is a q=0 computation with k=0 only variable
|
| H A D | obsolete.f90 | 1325 USE control_ph, ONLY : epsil, zue, lgamma_gamma, search_sym, ldisp, &
1364 if (.not.lgamma_gamma) then
1403 IF (lgamma_gamma) THEN
1485 IF (lgamma_gamma) THEN
1528 irt, xq, rtau, amass, ntyp, ityp, 1, lgamma, lgamma_gamma, &
|
| H A D | solve_linter.f90 | 57 lgamma_gamma, convt, &
555 IF (.not.lgamma_gamma) THEN
|
| /dports/science/quantum-espresso/q-e-qe-6.7.0/test-suite/not_epw_comp/ |
| H A D | phq_readin.f90 | 37 USE control_ph, ONLY : maxter, alpha_mix, lgamma_gamma, epsil, &
795 lgamma_gamma=.FALSE.
798 lgamma_gamma=(lgamma.AND.(ABS(xk(1,1))<1.D-12) &
802 IF (nogg) lgamma_gamma=.FALSE.
803 IF ((nat_todo /= 0) .and. lgamma_gamma) CALL errore( &
807 IF (nimage > 1 .AND. lgamma_gamma) CALL errore( &
815 IF (lgamma_gamma.AND.ldiag) CALL errore('phq_readin','incompatible flags',1)
816 …IF (lgamma_gamma.AND.elph ) CALL errore('phq_readin','lgamma_gamma and electron-phonon are incompa…
860 IF (modenum > 0 .OR. lraman ) lgamma_gamma=.FALSE.
861 IF (.NOT.lgamma_gamma) asr=.FALSE.
|
| /dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/head/ |
| H A D | phq_readin.f90 | 37 USE control_ph, ONLY : maxter, alpha_mix, lgamma_gamma, epsil, &
895 lgamma_gamma=.FALSE.
898 lgamma_gamma=(lgamma.AND.(ABS(xk(1,1))<1.D-12) &
902 IF (nogg) lgamma_gamma=.FALSE.
903 IF ((nat_todo /= 0) .and. lgamma_gamma) CALL errore( &
907 IF (nimage > 1 .AND. lgamma_gamma) CALL errore( &
915 IF (lgamma_gamma.AND.ldiag) CALL errore('phq_readin','incompatible flags',1)
916 …IF (lgamma_gamma.AND.elph ) CALL errore('phq_readin','lgamma_gamma and electron-phonon are incompa…
960 IF (modenum > 0 .OR. lraman ) lgamma_gamma=.FALSE.
961 IF (.NOT.lgamma_gamma) asr=.FALSE.
|
| /dports/science/quantum-espresso/q-e-qe-6.7.0/LR_Modules/ |
| H A D | lrcom.f90 | 70 LOGICAL :: lgamma_gamma,&! if .TRUE. this is a q=0 computation with k=0 only variable
|
| /dports/science/quantum-espresso/q-e-qe-6.7.0/TDDFPT/src/ |
| H A D | lr_sternheimer.f90 | 59 alpha_mix, lgamma_gamma, niter_ph, &
542 IF (.not. lgamma_gamma) THEN
592 IF (.NOT. lgamma_gamma) CALL paw_deqsymmetrize(dbecsum)
|