get_state_rsp Subroutine

    subroutine get_state_rsp(state, X, Y, Z)
        class(abstract_vector_rsp),   intent(in)  :: state
        real(sp),                 intent(out) :: X, Y, z

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