anchor.diff:      CLASS(sllist),                 INTENT(in)    :: list
       CHARACTER(len=*),              INTENT(in)    :: key
       INTEGER, ALLOCATABLE, INTENT(out)   :: val(:)
  -    INTEGER                                      :: vallen
  +    !INTEGER                                      :: vallen
   
  -    vallen = 0
  +    !vallen = 0
       IF (ALLOCATED(list%key) .AND. (list%key == key)) THEN
  -       vallen = SIZE(list%val,DIM=1)
  +       !vallen = SIZE(list%val,DIM=1)
          IF (ALLOCATED(val)) DEALLOCATE(val)
          ALLOCATE(val,SOURCE=LIST.VAL)
          val = list%val
  
positive.code:   SUBROUTINE ENLARGE_VAL(AVAL)
      INTEGER,ALLOCATABLE,INTENT(INOUT)::AVAL(:)
      INTEGER,ALLOCATABLE::VAL1(:)
      INTEGER::NVAL1=0
      
      NVAL1=SIZE(AVAL,DIM=1)
      ALLOCATE(VAL1,SOURCE=AVAL)
      DEALLOCATE(AVAL)
      ALLOCATE(AVAL(NVAL1+10))
      AVAL(1:NVAL1)=VAL1
      AVAL(NVAL1+1:NVAL1+10)=-1
      DEALLOCATE(VAL1)
    END SUBROUTINE
    
  
negative.code:     INTEGER, ALLOCATABLE, INTENT(out)   :: val(:)
      INTEGER                                      :: hash
  
      hash = MOD(ABS(HASH_DJB(KEY)),tbl%vec_len)
      CALL tbl%vec(hash)%get(key=key,val=val)
    END SUBROUTINE get_hash_tbl_sll
  
  