update_ref_signs Subroutine

    subroutine update_ref_signs()
        implicit none
        integer :: iRef

        do iRef = 1, nRefs
            call update_single_ref_sign(iRef)
        end do
    end subroutine update_ref_signs