anchor.diff:  
     type hecmwST_varray_int
       private
  -    integer :: nitem
  -    integer, allocatable :: items(:)
  +    integer(kind=kint) :: nitem
  +    integer(kind=kint), allocatable :: items(:)
     end type hecmwST_varray_int
   
   contains
   
     subroutine HECMW_varray_int_initialize( ilist, n_init_in )
       type( hecmwST_varray_int ), intent(inout) :: ilist
  -    integer, intent(in) :: n_init_in
  -
  -    integer :: n_init
  +    integer(kind=kint), intent(in) :: n_init_in
  +
  +    integer(kind=kint) :: n_init
   
       n_init = max(n_init_in,1)
   
  
positive.code: 
    subroutine HECMW_varray_int_insert_if_not_exists( ilist, ival )
      type( hecmwST_varray_int ), intent(inout) :: ilist
      integer, intent(in) :: ival
  
      integer :: i
  
      do i=1,ilist%nitem
        if( ilist%items(i) == ival ) return
  
negative.code: 
    subroutine HECMW_varray_int_add( ilist, ival )
      type( hecmwST_varray_int ), intent(inout) :: ilist
      integer(kind=kint), intent(in) :: ival
  
      if( ilist%nitem == size(ilist%items) ) &
        &  call HECMW_varray_int_enlarge( ilist )
  