← Back to branch summary

~albertog/siesta/trunk-nlso

« back to all changes in this revision

Viewing changes to Src/local_DOS.F

  • Committer: Alberto Garcia
  • Date: 2018-06-04 16:10:46 UTC
  • mfrom: (697.2.2 trunk)
  • Revision ID: albertog@icmab.es-20180604161046-fsufw3pl21dnb5g5
Sync to trunk-699

Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/local_DOS.F
26
26
      use sys,            only: die                      
27
27
      use files,          only: slabel     ! system label
28
28
      use files,          only: filesOut_t ! derived type for output file names
29
 
      use Kpoint_grid
 
29
      use kpoint_scf_m, only: kpoints_scf
30
30
      use parallel,       only: IOnode                   
31
31
      use files,          only : label_length            
32
32
      use m_ntm
79
79
          call diagon(no_s, spinor_dim, no_l, maxnh, maxnh, no_u,
80
80
     .                numh, listhptr, listh, numh, listhptr, listh, 
81
81
     .                H, S, qtot, fixspin, qtots, temp, e1, e2,
82
 
     .                gamma, xijo, indxuo, nkpnt, kpoint, kweight,
 
82
     .                gamma, xijo, indxuo,
 
83
     .                kpoints_scf%N, kpoints_scf%k, kpoints_scf%w,
83
84
     .                eo, qo, Dscf, Escf, ef, efs, dummy_Entrop, no_u,
84
85
     .                occtol, dummy_iscf, neigwanted)
85
86