mirror of https://gitlab.com/QEF/q-e.git
Module input_parameters should never be used except when reading data;
make.depend updated git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9204 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
c69546aa12
commit
596292a950
|
@ -119,13 +119,12 @@ CONTAINS
|
|||
USE ions_base, ONLY : nat, nsp, ityp, tau, if_pos, atm
|
||||
USE cell_base, ONLY : alat, omega
|
||||
USE ener, ONLY : etot
|
||||
USE force_mod, ONLY : force
|
||||
USE force_mod, ONLY : force, lstres
|
||||
USE control_flags, ONLY : istep, nstep, conv_ions, lconstrain, &
|
||||
lfixatom
|
||||
!
|
||||
USE constraints_module, ONLY : nconstr, check_constraint
|
||||
USE constraints_module, ONLY : remove_constr_force, remove_constr_vec
|
||||
USE input_parameters, ONLY : tstress
|
||||
!
|
||||
IMPLICIT NONE
|
||||
!
|
||||
|
@ -394,8 +393,8 @@ CONTAINS
|
|||
& 5X,"temperature = ",F14.8," K ",/, &
|
||||
& 5X,"Ekin + Etot (const) = ",F14.8," Ry")' ) &
|
||||
ekin, temp_new, ( ekin + etot )
|
||||
if (tstress) &
|
||||
write(stdout,'(5X,"Ions kinetic stress = ",F10.2," (kbar)",/3(27X,3F10.2/)/)') &
|
||||
IF (lstres) WRITE ( stdout, &
|
||||
'(5X,"Ions kinetic stress = ",F10.2," (kbar)",/3(27X,3F10.2/)/)') &
|
||||
((kstress(1,1)+kstress(2,2)+kstress(3,3))/3.d0*ry_kbar), &
|
||||
(kstress(i,1)*ry_kbar,kstress(i,2)*ry_kbar,kstress(i,3)*ry_kbar, i=1,3)
|
||||
!
|
||||
|
|
|
@ -146,7 +146,6 @@ subroutine h_epsi_her_set(pdir, e_field)
|
|||
!determines the spin polarization
|
||||
|
||||
DO ik=1,nks
|
||||
|
||||
CALL get_buffer ( evcel, nwordwfc, iunwfc, nx_el(ik,pdir) )
|
||||
|
||||
if(nspin==2) then
|
||||
|
|
|
@ -711,6 +711,7 @@ init_ns.o : scf_mod.o
|
|||
init_run.o : ../../Modules/cell_base.o
|
||||
init_run.o : ../../Modules/control_flags.o
|
||||
init_run.o : ../../Modules/fft_base.o
|
||||
init_run.o : ../../Modules/funct.o
|
||||
init_run.o : ../../Modules/ions_base.o
|
||||
init_run.o : ../../Modules/paw_variables.o
|
||||
init_run.o : ../../Modules/recvec_subs.o
|
||||
|
@ -1084,8 +1085,10 @@ potinit.o : pw_restart.o
|
|||
potinit.o : pwcom.o
|
||||
potinit.o : scf_mod.o
|
||||
print_clock_pw.o : ../../Modules/control_flags.o
|
||||
print_clock_pw.o : ../../Modules/funct.o
|
||||
print_clock_pw.o : ../../Modules/io_global.o
|
||||
print_clock_pw.o : ../../Modules/paw_variables.o
|
||||
print_clock_pw.o : pwcom.o
|
||||
print_clock_pw.o : realus.o
|
||||
print_ks_energies.o : ../../Modules/constants.o
|
||||
print_ks_energies.o : ../../Modules/control_flags.o
|
||||
|
|
Loading…
Reference in New Issue