anchor.diff:    subroutine HECMW_varray_int_finalize_all( ilists )
       type( hecmwST_varray_int ), allocatable, intent(inout) :: ilists(:)
   
  -    integer :: i
  +    integer(kind=kint) :: i
   
       do i=1,size(ilists)
         ilists(i)%nitem = 0
  
positive.code: 
    subroutine HECMW_varray_int_expand( ilist, n, vals )
      type( hecmwST_varray_int ), intent(inout) :: ilist
      integer, intent(in) :: n
      integer, intent(in) :: vals(:)
  
      do while( ilist%nitem + n > size(ilist%items) )
        call HECMW_varray_int_enlarge( ilist )
  
negative.code: 
    subroutine HECMW_varray_int_add_if_not_exits( ilist, ival )
      type( hecmwST_varray_int ), intent(inout) :: ilist
      integer(kind=kint), intent(in) :: ival
  
      integer(kind=kint) :: i
  
      do i=1,ilist%nitem
        if( ilist%items(i) == ival ) return
  