82
84
. ispin, iuo, juo, j, jo, ihist, iband, ind, ierror
85
. delta, ener, diff, pi, pipj1, gauss, norm
87
. delta, ener, diff, pipj1, gauss, norm
89
91
. BNode, Bnuo, ibandg, maxnuo, MPIerror
90
real(dp), dimension(:,:), allocatable, save ::
92
real(dp), dimension(:,:,:), allocatable, save ::
92
real(dp), dimension(:,:), pointer :: Sloc
93
real(dp), dimension(:,:,:), pointer :: tmp
99
98
C Initialize some variables
103
101
C Solve eigenvalue problem for each k-point