get_state_rdp Subroutine

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

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