| /dports/science/quantum-espresso/q-e-qe-6.7.0/PHonon/PH/ |
| H A D | rotate_dvscf_star.f90 | 24 USE units_ph, ONLY : iudrho, iudvscf
41 INQUIRE (UNIT = iudrho, OPENED = opnd)
42 IF (opnd) CLOSE(UNIT = iudrho, STATUS='keep')
|
| H A D | close_phq.f90 | 21 USE units_ph, ONLY : iudwf, iubar, iudrhous, iuebar, iudrho, &
74 INQUIRE( UNIT=iudrho, OPENED=opnd )
75 IF (opnd) CLOSE( UNIT = iudrho, STATUS = 'KEEP' )
|
| 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 | solve_e_fpol.f90 | 45 USE units_ph, ONLY : lrdwf, iudwf, iudrho, lrdrho
136 INQUIRE (UNIT = iudrho, OPENED = exst)
137 IF (exst) CLOSE (UNIT = iudrho, STATUS='keep')
138 CALL diropn (iudrho, TRIM(fildrho)//'.E', lrdrho, exst)
319 iudrho,ipol,+1)
|
| H A D | solve_e.f90 | 49 USE units_ph, ONLY : lrdwf, iudwf, lrdrho, iudrho
155 INQUIRE (UNIT = iudrho, OPENED = exst)
156 IF (exst) CLOSE (UNIT = iudrho, STATUS='keep')
157 CALL diropn (iudrho, TRIM(fildrho)//'.E', lrdrho, exst)
358 iudrho,ipol,+1)
|
| 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_linter.f90 | 62 USE units_ph, ONLY : iudrho, lrdrho, iudwf, lrdwf, iubar, lrbar, &
228 INQUIRE (UNIT = iudrho, OPENED = exst)
229 IF (exst) CLOSE (UNIT = iudrho, STATUS='keep')
231 CALL diropn (iudrho, filename, lrdrho, exst)
569 call davcio_drho (drhoscfh(1,1,ipert), lrdrho, iudrho, imode0+ipert, +1)
|
| 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 | openfilq.f90 | 18 iudrhous, iuebar, iudrho, iudyn, iudvscf, &
154 iudrho = 23
|
| H A D | phcom.f90 | 314 iudrho, & ! the unit where the delta rho is written variable
|
| H A D | obsolete.f90 | 1337 USE units_ph, ONLY : iudrho, iudvscf
1468 INQUIRE (UNIT = iudrho, OPENED = opnd)
1469 IF (opnd) CLOSE(UNIT = iudrho, STATUS='keep')
|
| /dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/head/ |
| H A D | close_phq.f90 | 21 USE units_ph, ONLY : iudwf, iubar, iudrhous, iuebar, iudrho, &
63 fildrho /= ' ') CLOSE( UNIT = iudrho, STATUS = 'KEEP' )
|
| H A D | openfilq.f90 | 21 iudrhous, iuebar, iudrho, iudyn, iudvscf, &
128 iudrho = 23
|
| H A D | solve_head.f90 | 206 INQUIRE (UNIT = iudrho, OPENED = exst)
207 IF (exst) CLOSE (UNIT = iudrho, STATUS='keep')
208 CALL DIROPN (iudrho, TRIM(fildrho)//'.E', lrdrho, exst)
|
| /dports/science/quantum-espresso/q-e-qe-6.7.0/EPW/src/ |
| H A D | close_epw.f90 | 134 USE units_ph, ONLY : iudwf, iudrho
149 IF (fildrho/=' ') CLOSE(UNIT = iudrho, STATUS = 'keep')
|
| /dports/science/quantum-espresso/q-e-qe-6.7.0/TDDFPT/src/ |
| H A D | lr_variables.f90 | 61 INTEGER :: iudrho = 23 variable
|
| H A D | lr_sternheimer.f90 | 72 lrdrho, iudrho, n_ipol, lr_verbosity, &
|