get_state_csp Subroutine

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

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