← Back to branch summary

~albertog/siesta/trunk-elsi-dm

« back to all changes in this revision

Viewing changes to Util/COOP/io_hs.f90

  • Committer: Alberto Garcia
  • Date: 2019-09-02 14:50:38 UTC
  • mfrom: (660.1.118 trunk)
  • Revision ID: albertog@icmab.es-20190902145038-bw6j71uayu72a1h6
Sync to trunk-778 (notably nc/soc wfs support)

Show diffs side-by-side

added added

removed removed

Lines of Context:
Util/COOP/io_hs.f90
54
54
 
55
55
  if (debug) print *, "HS read: nh, nsp, nnao: ", nh, nspin, nnao
56
56
  if (nnao.ne.nao) STOP " nnao .ne. nao in HS"
 
57
 
57
58
  if (wfs_x.and.(nspin.ne.nsp)) STOP " nspin .ne. nsp in HS"
58
59
  nsp=nspin
 
60
  h_spin_dim = nspin
59
61
  allocate (numh(nao), listhptr(nao), listh(nh))
60
62
 
61
63
       allocate (hamilt(nh,nspin))