Home
last modified time | relevance | path

Searched refs:iund0psi (Results 1 – 4 of 4) sorted by relevance

/dports/science/quantum-espresso/q-e-qe-6.7.0/TDDFPT/src/
H A Dlr_read_d0psi.f9021 & lr_verbosity, nwordd0psi, iund0psi, eels
52 CALL diropn ( iund0psi, 'd0psi.'//trim(int_to_char(LR_polarization)), nwordd0psi, exst)
57 CLOSE( UNIT = iund0psi)
60 CALL diropn ( iund0psi, 'd0psi.'//trim(int_to_char(LR_polarization)), nwordd0psi, exst)
71 CALL diropn ( iund0psi, 'd0psi.'//trim(int_to_char(ip)), nwordd0psi, exst)
76 CLOSE( UNIT = iund0psi)
88 CALL davcio(d0psi(1,1,1,ip),nwordd0psi,iund0psi,1,-1)
90 CLOSE( UNIT = iund0psi)
98 CALL diropn ( iund0psi, 'd0psi2.'//trim(int_to_char(LR_polarization)), nwordd0psi, exst)
99 CALL davcio(d0psi2(1,1,1,1),nwordd0psi,iund0psi,1,-1)
[all …]
H A Dlr_solve_e.f9028 USE lr_variables, ONLY : nwordd0psi, iund0psi,LR_polarization, test_case_no, &
155 IF (n_ipol==1) CALL diropn ( iund0psi, 'd0psi.'// &
157 IF (n_ipol==3) CALL diropn ( iund0psi, 'd0psi.'// &
160 CALL davcio(d0psi(1,1,1,ip),nwordd0psi,iund0psi,1,1)
162 CLOSE( UNIT = iund0psi)
170 CALL diropn ( iund0psi, 'd0psi2.'// &
172 CALL davcio(d0psi2(1,1,1,1),nwordd0psi,iund0psi,1,1)
173 CLOSE( UNIT = iund0psi)
H A Dlr_variables.f9023 INTEGER :: iund0psi = 20 ! unit for writing/reding of d0psi variable
H A Dlr_init_nfo.f9024 & lrdrho, nwordd0psi, iund0psi, iudwf, iu1dwf,&