get_state_cdp Subroutine

    subroutine get_state_cdp(state, X, Y, Z)
        class(abstract_vector_cdp),   intent(in)  :: state
        real(dp),                 intent(out) :: X, Y, z

        select type (state)
        type is (state_vector_cdp)
            X = state%x
            Y = state%y
            Z = state%z
        class default
            call type_error('state','state_vector_cdp','IN',this_module,'get_state_cdp')
        end select
    end subroutine get_state_cdp