anchor.diff:      end do
     end subroutine HECMW_varray_int_print_all
   
  -  integer function HECMW_varray_int_find( ilist, ival )
  +  integer(kind=kint) function HECMW_varray_int_find( ilist, ival )
       type( hecmwST_varray_int ), intent(in) :: ilist
  -    integer, intent(in)          :: ival
  -
  -    integer :: i
  +    integer(kind=kint), intent(in)          :: ival
  +
  +    integer(kind=kint) :: i
   
       HECMW_varray_int_find = -1
       do i=1,ilist%nitem
  
positive.code:   subroutine HECMW_varray_int_print_all( ilists )
      type( hecmwST_varray_int ), allocatable, intent(inout) :: ilists(:)
  
      integer :: i
  
      do i=1,size(ilists)
        write(*,*) "i, n, maxn: ", i, ilists(i)%nitem, size(ilists(i)%items)
  
negative.code: 
    subroutine HECMW_varray_int_insert( ilist, ival )
      type( hecmwST_varray_int ), intent(inout) :: ilist
      integer(kind=kint), intent(in) :: ival
  
      integer(kind=kint) :: i, cval, tmpval
  
      cval = ival
      do i=1,ilist%nitem
  