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 D | lr_read_d0psi.f90 | 21 & 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 D | lr_solve_e.f90 | 28 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 D | lr_variables.f90 | 23 INTEGER :: iund0psi = 20 ! unit for writing/reding of d0psi variable
|
H A D | lr_init_nfo.f90 | 24 & lrdrho, nwordd0psi, iund0psi, iudwf, iu1dwf,&
|