Commit f1b601a8 authored by giannozz's avatar giannozz

More cleanup of unused variables


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/[email protected] c92efa57-630b-4861-b058-cf58834340f0
parent 7b865b41
......@@ -133,8 +133,6 @@ MODULE input
tprnsfac_ => tprnsfac, &
ampre_ => ampre, &
trane_ => trane, &
newnfi_ => newnfi, &
tnewnfi_ => tnewnfi, &
tdipole_ => tdipole, &
nomore_ => nomore, &
memchk_ => memchk, &
......@@ -220,12 +218,11 @@ MODULE input
tapos, tavel, ecutwfc, emass, emass_cutoff, taspc, trd_ht, ibrav, &
ortho_eps, ortho_max, ntyp, tolp, calculation, disk_io, dt, &
tcg, ndr, ndw, iprint, isave, tstress, k_points, tprnfor, verbosity, &
tdipole_card, tnewnfi_card, newnfi_card, &
ampre, nstep, restart_mode, ion_positions, startingwfc, printwfc, &
orthogonalization, electron_velocities, nat, if_pos, phase_space, &
tefield, epol, efield, tefield2, epol2, efield2, remove_rigid_rot, &
iesr_inp, vhrmax_inp, vhrmin_inp, tvhmean_inp, vhasse_inp, saverho, &
rd_for, assume_isolated, wf_collect
tdipole_card, rd_for, assume_isolated, wf_collect
!
IMPLICIT NONE
!
......@@ -362,8 +359,6 @@ MODULE input
END SELECT
!
tdipole_ = tdipole_card
newnfi_ = newnfi_card
tnewnfi_ = tnewnfi_card
!
! ... set the restart flags
!
......
......@@ -33,7 +33,7 @@ MODULE control_flags
END TYPE convergence_criteria
!
PUBLIC :: tbeg, nomore, nbeg, isave, iprint, tv0rd, nv0rd, tzeroc, tzerop, &
newnfi, tnewnfi, tfor, tpre, tzeroe, tsde, tsdp, tsdc, taurdr, &
tfor, tpre, tzeroe, tsde, tsdp, tsdc, taurdr, &
ndr, ndw, tortho, ortho_eps, ortho_max, tstress, tprnfor, &
timing, memchk, tprnsfac, tcarpar, &
trane,dt_old,ampre, tranp, amprp, tdipole, t_diis, t_diis_simple,&
......@@ -114,9 +114,6 @@ MODULE control_flags
!
LOGICAL :: gamma_only = .TRUE.
!
LOGICAL :: tnewnfi = .FALSE.
INTEGER :: newnfi = 0
!
! This variable is used whenever a timestep change is requested
!
REAL(DP) :: dt_old = -1.0_DP
......
......@@ -1416,12 +1416,6 @@ MODULE input_parameters
! number that gives the number of points between the present point
! and the next. The weight of the last point is not used.
!
! NEWNFI
!
LOGICAL :: tnewnfi_card = .false.
INTEGER :: newnfi_card = 0
!
! OCCUPATIONS
!
REAL(DP), ALLOCATABLE :: f_inp(:,:)
......
......@@ -7,11 +7,9 @@
!-------------------------------------------------------------!
!
! cards not yet implemented:
! SETNFI
! KSOUT
! AUTOPILOT
! ATOMIC_FORCES
! COLLECTIVE_VARS
! PLOT_WANNIER
! WANNIER_AC
! VHMEAN
......@@ -150,11 +148,6 @@ CONTAINS
! ... not yet implemented in xml reading
tavel = .false.
!
CASE ('SETNFI')
! ... not yet implemented in xml reading
newnfi_card = -1
tnewnfi_card = .FALSE.
!
CASE DEFAULT
CALL errore ( 'card_default', 'You want to initialize a card that does &
&not exist or is not yet implemented ( '//trim(card)//' card)', 1 )
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment