program print_mulliken
 implicit none
 read_wf = .True.
 touch read_wf
 call print_mulliken_sd
end