Wave function reading format

[kzm7k6r]

The wave function format was slightly modified in current version RESPACK:

 do ik=1,Nk_irr
   do ib=1,NBAND
   !
   !20181002 Kazuma Nakamura
   !
   !do ic=1,ncomp
   ! if((ib.ge.NB_start).and.(ib.le.NB_end)) then  
   !  read(102)(CIR(IG,ic,ib-NB_start+1,ik),IG=1,NGI(ik))
   ! else
   !  read(102) 
   ! endif
   !enddo!ic 
   if((ib.ge.NB_start).and.(ib.le.NB_end)) then
    read(102)((CIR(IG,ic,ib-NB_start+1,ik),IG=1,NGI(ik)),ic=1,ncomp)
   else
    read(102)
   endif
   !
   enddo!ib
  enddo!ik
  close(102)

[mnmpdadish]

You are right, I changed it in my new version

[mnmpdadish]

after testing it in my RESPACK version, I reverted to the old way to read. Indeed, there is a reading bug when we use this syntax (even though everything compile without problems).

[kzm7k6r]

@mnmpdadish
Actually this way of reading wave function is the latest version.
read(102)((CIR(IG,ic,ib-NB_start+1,ik),IG=1,NGI(ik)),ic=1,ncomp)
The output format of wavefunction in util of the respackDev is of an older version.
Let's unify at some stage.