Lines Matching refs:iunwfc
19 USE io_files, ONLY : prefix, tmp_dir, nwordwfc,iunwfc
201 if(nspin==1) CALL davcio(evc,2*nwordwfc,iunwfc,1,1)
209 if(nspin/=1) CALL davcio(evc,2*nwordwfc,iunwfc,is,-1)!read wfcs for
217 call go_wannier(iunwfc,1.d-9,40,num_nbndv(is), 0, is)
237 …if(nspin/=1) CALL davcio(evc,2*nwordwfc,iunwfc,is,-1)!read wfcs for …
258 call davcio(evc,2*nwordwfc,iunwfc,is,-1)
425 call davcio(evc,2*nwordwfc,iunwfc,is,-1)
472 … call davcio(evc,2*nwordwfc,iunwfc,is,-1)!re-read for testing and for selfconsistency
482 call davcio(evc,2*nwordwfc,iunwfc,is,-1)
509 call davcio(evc,2*nwordwfc,iunwfc,is,-1)
549 CALL davcio(evc,2*nwordwfc,iunwfc,is,-1)
580 CALL davcio(evc,2*nwordwfc,iunwfc,is,-1)
594 CALL davcio(evc,2*nwordwfc,iunwfc,is,-1)
620 call davcio(evc,2*nwordwfc,iunwfc,is,-1)