init_local_spin_measure Subroutine

public subroutine init_local_spin_measure()

Arguments

None

Contents

Source Code

init_local_spin_measure

Source Code

    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