/dports/science/quantum-espresso/q-e-qe-6.7.0/PHonon/PH/ |
H A D | dfile_star.f90 | 100 USE units_ph, ONLY : lrdrho 211 CALL diropn(iudfile, source, lrdrho, exst) 218 CALL davcio( dfile_at(:,:,imode0+ipert), lrdrho, iudfile, imode0 + ipert, -1 ) 379 CALL diropn (iudfile_rot, TRIM(dfile_rot_name), lrdrho, exst, descr%dir) 386 CALL davcio( dfile_rot(:,:,imode0), lrdrho, iudfile_rot, imode0, + 1 ) 403 CALL diropn (iudfile_rot, TRIM(dfile_rot_name), lrdrho, exst, descr%dir) 410 CALL davcio( CONJG(dfile_rot(:,:,imode0)), lrdrho, iudfile_rot, imode0, + 1 )
|
H A D | set_dvscf.f90 | 21 USE units_ph, ONLY : iudrho, lrdrho 39 call davcio_drho (derho (1, 1), lrdrho, iudrho, ipl, -1)
|
H A D | openfilq.f90 | 20 lrdrhous, lrebar, lrdrho, lint3paw, iuint3paw, & 155 lrdrho = 2 * dfftp%nr1x * dfftp%nr2x * dfftp%nr3x * nspin_mag 191 CALL diropn (iudvscf, fildvscf_rot, lrdrho, exst, dvscf_star%dir) 193 CALL diropn (iudvscf, fildvscf, lrdrho, exst )
|
H A D | punch_plot_e.f90 | 33 USE units_ph, ONLY : iudrho, lrdrho 75 CALL davcio_drho (aux (1,1,ipol), lrdrho, iudrho, ipol, - 1)
|
H A D | el_opt.f90 | 24 USE units_ph, ONLY : iudrho, lrdrho, lrdwf, iudwf 101 call davcio_drho (aux3 (1, ipa), lrdrho, iudrho, ipa, -1)
|
H A D | solve_e_fpol.f90 | 45 USE units_ph, ONLY : lrdwf, iudwf, iudrho, lrdrho 138 CALL diropn (iudrho, TRIM(fildrho)//'.E', lrdrho, exst) 318 if (fildrho.ne.' ') call davcio_drho(dvscfout(1,1,ipol),lrdrho, &
|
H A D | solve_e.f90 | 49 USE units_ph, ONLY : lrdwf, iudwf, lrdrho, iudrho 157 CALL diropn (iudrho, TRIM(fildrho)//'.E', lrdrho, exst) 357 if (fildrho.ne.' ') call davcio_drho(dvscfout(1,1,ipol),lrdrho, &
|
H A D | dvpsi_e2.f90 | 28 USE units_ph, ONLY : lrdrho, iudrho, lrdwf, iudwf 166 call davcio_drho (aux3 (1, ipa), lrdrho, iudrho, ipa, -1)
|
H A D | solve_linter.f90 | 62 USE units_ph, ONLY : iudrho, lrdrho, iudwf, lrdwf, iubar, lrbar, & 231 CALL diropn (iudrho, filename, lrdrho, exst) 569 call davcio_drho (drhoscfh(1,1,ipert), lrdrho, iudrho, imode0+ipert, +1) 716 call davcio_drho ( dvscfin(1,1,ipert), lrdrho, iudvscf, imode0 + ipert, +1 )
|
H A D | dvscf_q2r.f90 | 785 INTEGER :: lrdrho local 857 lrdrho = 2 * dfftp%nr1x * dfftp%nr2x * dfftp%nr3x * nspin_mag 952 CALL diropn(iudvscf, fildvscf, lrdrho, exst, tmp_dir_phq) 967 CALL davcio_drho(dvscf_p, lrdrho, iudvscf, imode, -1)
|
H A D | phcom.f90 | 315 lrdrho, & ! the length of the deltarho files variable
|
H A D | ep_matrix_element_wannier.f90 | 25 USE units_ph, ONLY : iudyn, lrdrho, iudvscf 106 CALL davcio_drho ( dvscfin(1,1,ipert), lrdrho, iudvscf, &
|
H A D | elphon.f90 | 34 USE units_ph, ONLY : iudyn, lrdrho, iudvscf, iuint3paw, lint3paw 97 CALL davcio_drho ( dvscfin(1,1,ipert), lrdrho, iudvscf, &
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/head/ |
H A D | openfilq.f90 | 23 lrdrhous, lrebar, lrdrho 129 lrdrho = 2 * dfftp%nr1x * dfftp%nr2x * dfftp%nr3x * nspin_mag 156 CALL diropn (iudvscf, fildvscf, lrdrho, exst)
|
H A D | solve_head.f90 | 208 CALL DIROPN (iudrho, TRIM(fildrho)//'.E', lrdrho, exst)
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/TDDFPT/src/ |
H A D | lr_init_nfo.f90 | 24 & lrdrho, nwordd0psi, iund0psi, iudwf, iu1dwf,& 102 lrdrho = 2 * dfftp%nr1x * dfftp%nr2x * dfftp%nr3x * nspin_mag
|
H A D | lr_variables.f90 | 63 INTEGER :: lrdrho variable
|
H A D | lr_sternheimer.f90 | 72 lrdrho, iudrho, n_ipol, lr_verbosity, &
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/EPW/src/ |
H A D | io_epw.f90 | 1430 USE units_ph, ONLY : lrdrho 1473 unf_recl = unf_recl * lrdrho 1792 USE units_ph, ONLY : lrdrho, lint3paw 1814 lrdrho = 2 * dfftp%nr1x * dfftp%nr2x * dfftp%nr3x * nspin_mag
|
/dports/science/berkeleygw/BGW-2.0.0/MeanField/ESPRESSO/version-4.3.2/ |
H A D | pw2bgw.f90 | 1236 USE units_ph, ONLY : iudvscf, lrdrho 1339 CALL davcio_drho(dvscf, lrdrho, iudvscf, dfpt_mode, - 1 ) 1934 USE units_ph, ONLY : iudvscf, lrdrho 1948 lrdrho = 2 * nr1x * nr2x * nr3x * nspin ! from PH/openfilq.f90 1958 CALL diropn (iudvscf, filename, lrdrho, exst, tmp_dir_ = tmp_dir_ph ) 1969 unf_recl = DIRECT_IO_FACTOR * int(lrdrho, kind=kind(unf_recl))
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/test-suite/not_epw_comp/ |
H A D | elphon.f90 | 34 USE units_ph, ONLY : iudyn, lrdrho, iudvscf, iuint3paw, lint3paw 80 CALL davcio_drho ( dvscfin(1,1,ipert), lrdrho, iudvscf, &
|