← Back to branch summary

~siesta-pseudos-bases/siesta/trunk-psml

« back to all changes in this revision

Viewing changes to Src/diagon.F

  • Committer: Alberto Garcia
  • Date: 2019-09-02 14:09:43 UTC
  • mfrom: (427.6.323 trunk)
  • Revision ID: albertog@icmab.es-20190902140943-mzmbe1jacgefpgxw
Sync to trunk-776 (notably nc/soc wavefunction support)


Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/diagon.F
266
266
       if (gamma) then
267
267
        call diag2g( nuo, no, maxnh, maxnd, maxo, numh,
268
268
     .               listhptr, listh, numd, listdptr, listd,
269
 
     .               H, S, getD, qtot, temp, e1, e2, eo, qo, 
 
269
     .               H, S, getD, getPSI, qtot, temp, e1, e2, eo, qo, 
270
270
     .               Dnew, Enew, ef, Entropy,
271
271
     .               Haux, Saux, psi, aux,
272
272
     .               nuotot, occtol, iscf, neigwanted )
281
281
       else
282
282
        call diag2k( nuo, no, maxnh, maxnd, maxo, numh,
283
283
     .               listhptr, listh, numd, listdptr, listd,
284
 
     .               H, S, getD, qtot, temp, e1, e2, xij,
 
284
     .               H, S, getD, getPsi, qtot, temp, e1, e2, xij,
285
285
     .               indxuo, nk, kpoint, wk, eo, qo, Dnew,
286
286
     .               Enew, ef, Entropy, 
287
287
     .               Haux, Saux, psi, Haux, Saux, aux,
289
289
       endif
290
290
      elseif ( spin%SO ) then
291
291
        if (gamma) then
292
 
          call diag3g( nuo, no, maxuo, maxnh, maxnd, maxo, numh,
 
292
          call diag3g( nuo, no, maxnh, maxnd, maxo, numh,
293
293
     .                 listhptr, listh, numd, listdptr, listd,
294
294
     .                 H, S, getD, getPSI, qtot, temp, e1, e2, eo, qo,
295
295
     .                 Dnew, Enew, ef, Entropy,