~albertog/siesta/efield-2.5-jjunquera

« back to all changes in this revision

Viewing changes to Src/kgridinit.F

Undefined var in kgridinit, iohs MPI write, pdosg array bound
* Initialize "genlogic" to .false. before it is used in kgridinit.

* Fix index in write statement in iohs in parallel affecting list array.

* Fix dimension of dpr in pdosg. Clarify names of variables in pdos.
  In pdosg, dpr was wrongly dimensioned to no_l (modern notation) instead of no_u.

Show diffs side-by-side

added added

removed removed

Lines of Context:
91
91
      parameter (huge   = 1.d30)
92
92
      parameter (tiny   = 1.d-12)
93
93
 
 
94
      genlogic = .false.
94
95
C Find out if there is spiral arrangement of spins 
95
96
      if (Node.eq.0) then
96
97
        spiral = fdf_block('SpinSpiral',iu)