TYPE NUMERIC_VECTOR
        INTEGER :: CAP
        INTEGER :: LEN
        DOUBLE PRECISION, ALLOCATABLE :: DATA(:)
    CONTAINS
        PROCEDURE :: INIT   => NUMERIC_VECTOR_INIT
        PROCUDURE :: PUSH   => NUMERIC_VECTOR_PUSH
        PROCUDURE :: POP    => NUMERIC_VECTOR_POP
        PROCEDURE :: SHRINK => NUMERIC_VECTOR_SHRINK
    END TYPE NUMERIC_VECTOR