← Back to branch summary

~albertog/siesta/4.0-spin

« back to all changes in this revision

Viewing changes to Src/new_dm.F

  • Committer: Alberto Garcia
  • Date: 2018-03-05 15:39:12 UTC
  • Revision ID: albertog@icmab.es-20180305153912-mb5ff8t5bw05rllw
Fix print_spin. Calls in compute_dm (wrapped) and new_dm

Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/new_dm.F
116
116
      logical :: dminit     ! Initialize density matrix?
117
117
      logical :: try_to_read_from_file
118
118
      integer :: nnz
 
119
      real(dp) :: dummy_qspin(8)
119
120
 
120
121
#ifdef TRANSIESTA
121
122
      integer :: ts_alloc_stat
252
253
      call normalize_dm(first=.true.)
253
254
#endif  /* TRANSIESTA */
254
255
 
 
256
      call print_spin(dummy_qspin)
 
257
 
255
258
      END subroutine new_dm
256
259
 
257
260
      subroutine new_extrapol(nrows,num, listptr,list, DM)