74c74
< c        print*,'NADIA:k',k,'norb',norb,'fsym(norb)',fsym(fnorb)
---
>          print*,'NADIA:k',k,'norb',norb,'fsym(norb)',fsym(fnorb)
103c103
< c        print*,'NADIA2: k',k,'norb',norb,'fsym(norb)',fsym(fnorb)
---
>          print*,'NADIA2: k',k,'norb',norb,'fsym(norb)',fsym(fnorb)
