88
90
. ik, ispin, iuo, juo, J, JO, ihist, iband, ind, ierror
91
. kxij, Ckxij, Skxij, delta, ener, diff, PI, pipj1, pipj2,
93
. kxij, Ckxij, Skxij, delta, ener, diff, pipj1, pipj2,
92
94
. pipjS1, pipjS2, gauss, norm, wksum
96
98
. BNode, Bnuo, ibandg, maxnuo, MPIerror
97
real(dp), dimension(:,:,:), allocatable, save ::
99
real(dp), dimension(:,:,:), pointer :: Sloc
104
104
C Initialize some variables
108
107
C Solve eigenvalue problem for each k-point