subroutine init_local_spin_measure
if (allocated(inst_local_spin)) deallocate(inst_local_spin)
if (allocated(all_local_spin)) deallocate(all_local_spin)
allocate(inst_local_spin(nSpatOrbs), source = 0.0_dp)
allocate(all_local_spin(nSpatOrbs), source = 0.0_dp)
end subroutine init_local_spin_measure