181
181
$ xijo, indxuo, gamma_SCF,
182
182
& kpoint_scf%N, kpoint_scf%k, kpoint_scf%w,
183
183
& eo, qo, Dscf, Escf, ef, efs, Entropy, no_u,
184
& occtol, iscf, neigwanted,
186
187
PreviousCallDiagon=.true.
187
188
elseif (isolve .eq. SOLVE_ORDERN) then