anchor.diff:  CHARACTER(LEN=16)         :: STR16 = '   Some String  '
   CHARACTER(LEN=20)         :: STR20 = '1 34 tmp xyz  t '
   CHARACTER(LEN=24)         :: STR24 = '  ABCDEFGHIJKLMNO       '
  -TYPE(HASHLIST)            :: HL
  +TYPE(HASH)                :: H
   INTEGER(KIND=4)           :: ASC(10),DESC(10)
     WRITE(6,'("0*** HASHTEST - INTEGER ********")')
     WRITE(6,'("     HASH VALUE OF INT1  ",I20,    " = ",I11)')  INT1, HASHCODE( INT1)
  
positive.code:                                               !  |  14  |  87  |
                                                !  |  18  |  85  |
                                                !  |  42  |  78  |
    CALL HASHLIST_SORT(HL,ASC)                  !  |  44  |  72  |        
    CALL HASHLIST_SORT(HL,DESC,.FALSE.)         !  |  60  |  64  |
    DO I = 1, 10                                !  |  64  |  60  |
      WRITE(6,'(2I8)') ASC(I),DESC(I)           !  |  72  |  44  |
    END DO                                      !  |  78  |  42  |
  
negative.code:   WRITE(6,'("     HASH VALUE OF STR20 ", 4X A20," = ",I11)') STR20, HASHCODE(STR20)
    WRITE(6,'("     HASH VALUE OF STR24 ",    A24," = ",I11)') STR24, HASHCODE(STR24)
  
    CALL HASH_RESIZE(H,16)
    WRITE(6,'("CAPACITY = ",I4,", COUNT = ",I4)') SIZE(H%HASH,2), H%COUNT
  
                                                !            +------+       +------+------+
                                                !  IND       |VALUES|       |BEFORE|AFTER |              44
                                                !            +------+       +------+------+             /  \
    RES = HASH_ADD(H,44)                        !   1        |  44  |       |  4   |   2  |           42    64
    RES = HASH_ADD(H,64)                        !   2        |  64  |       |  7   |   3  |          /     /   \
    RES = HASH_ADD(H,87)                        !   3        |  87  |       |  5   |   0  |        14    60    87
    RES = HASH_ADD(H,42)                        !   4        |  42  |       |  6   |   0  |          \        /
    RES = HASH_ADD(H,85)                        !   5        |  85  |       |  8   |   0  |           18    85
    RES = HASH_ADD(H,14)                        !   6        |  14  |       |  0   |  10  |                /
    RES = HASH_ADD(H,60)                        !   7        |  60  |       |  0   |   0  |              78
    RES = HASH_ADD(H,78)                        !   8        |  78  |       |  9   |   0  |             /
    RES = HASH_ADD(H,72)                        !   9        |  72  |       |  0   |   0  |           72
    RES = HASH_ADD(H,18)                        !  10        |  18  |       |  0   |   0  |
                                                !            +------+       +------+------+
  
    !CALL HASH_RESIZE(H,10)
    DO I = 1, SIZE(H%HASH,2)
      WRITE(6,'(3I8)') (H%HASH(J,I),J=1,3)
    END DO
  
  
  