hecmw_varray_int_f.f90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
! Copyright (c) 2022 FrontISTR Commons
! This software is released under the MIT License, see LICENSE.txt
!-------------------------------------------------------------------------------
 
module hecmw_varray_int
  use hecmw_util, only: kint
  implicit none
 
  private
  public :: hecmwst_varray_int
  public :: hecmw_varray_int_initialize
  public :: hecmw_varray_int_initialize_all
  public :: hecmw_varray_int_finalize
  public :: hecmw_varray_int_finalize_all
  public :: hecmw_varray_int_clear
  public :: hecmw_varray_int_add
  public :: hecmw_varray_int_add_if_not_exits
  public :: hecmw_varray_int_insert
  public :: hecmw_varray_int_insert_if_not_exists
  public :: hecmw_varray_int_expand
  public :: hecmw_varray_int_print
  public :: hecmw_varray_int_print_all
  public :: hecmw_varray_int_find
  public :: hecmw_varray_int_get_nitem
  public :: hecmw_varray_int_get_item
  public :: hecmw_varray_int_get_item_all
 
  type hecmwst_varray_int
    private
    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(kind=kint), intent(in) :: n_init_in
 
    integer(kind=kint) :: n_init
 
    n_init = max(n_init_in,1)
 
    ilist%nitem = 0
    allocate( ilist%items(n_init) )
    ilist%items(:) = 0
  end subroutine hecmw_varray_int_initialize
 
  subroutine hecmw_varray_int_initialize_all( ilists, nlists, n_init_in )
    type( hecmwst_varray_int ), allocatable, intent(inout) :: ilists(:)
    integer(kind=kint), intent(in) :: nlists
    integer(kind=kint), intent(in) :: n_init_in
 
    integer(kind=kint) :: i
 
    allocate(ilists(nlists))
    do i=1,size(ilists)
      call hecmw_varray_int_initialize( ilists(i), n_init_in )
    end do
  end subroutine hecmw_varray_int_initialize_all
 
  subroutine hecmw_varray_int_finalize( ilist )
    type( hecmwst_varray_int ), intent(inout) :: ilist
 
    ilist%nitem = 0
    deallocate( ilist%items )
  end subroutine hecmw_varray_int_finalize
 
  subroutine hecmw_varray_int_finalize_all( ilists )
    type( hecmwst_varray_int ), allocatable, intent(inout) :: ilists(:)
 
    integer(kind=kint) :: i
 
    do i=1,size(ilists)
      ilists(i)%nitem = 0
      deallocate( ilists(i)%items )
    end do
    deallocate(ilists)
  end subroutine hecmw_varray_int_finalize_all
 
  subroutine hecmw_varray_int_clear( ilist )
    type( hecmwst_varray_int ), intent(inout) :: ilist
 
    ilist%nitem = 0
    ilist%items(:) = 0
  end subroutine hecmw_varray_int_clear
 
  subroutine hecmw_varray_int_enlarge( ilist )
    type( hecmwst_varray_int ), intent(inout) :: ilist
 
    integer(kind=kint) :: i, size_ilist
    integer(kind=kint), allocatable :: tmp(:)
 
    size_ilist = size(ilist%items)
    allocate(tmp(size_ilist))
    do i=1,ilist%nitem
      tmp(i) = ilist%items(i)
    end do
 
    deallocate(ilist%items)
    allocate(ilist%items(size_ilist*2))
 
    ilist%items(:) = 0
    do i=1,ilist%nitem
      ilist%items(i) = tmp(i)
    end do
  end subroutine hecmw_varray_int_enlarge
 
  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 )
 
    ilist%nitem = ilist%nitem + 1
    ilist%items(ilist%nitem) = ival
  end subroutine hecmw_varray_int_add
 
  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
    end do
 
    call hecmw_varray_int_add( ilist, ival  )
  end subroutine hecmw_varray_int_add_if_not_exits
 
  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
      if( ilist%items(i) < cval ) cycle
      tmpval = ilist%items(i)
      ilist%items(i) = cval
      cval = tmpval
    end do
 
    call hecmw_varray_int_add( ilist, cval )
  end subroutine hecmw_varray_int_insert
 
  subroutine hecmw_varray_int_insert_if_not_exists( 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
    end do
 
    call hecmw_varray_int_insert( ilist, ival )
  end subroutine hecmw_varray_int_insert_if_not_exists
 
  subroutine hecmw_varray_int_expand( ilist, n, vals )
    type( hecmwst_varray_int ), intent(inout) :: ilist
    integer(kind=kint), intent(in) :: n
    integer(kind=kint), intent(in) :: vals(:)
 
    do while( ilist%nitem + n > size(ilist%items) )
      call hecmw_varray_int_enlarge( ilist )
    end do
 
    ilist%items(ilist%nitem+1:ilist%nitem+n) = vals(1:n)
    ilist%nitem = ilist%nitem + n
  end subroutine hecmw_varray_int_expand
 
  subroutine hecmw_varray_int_print( ilist )
    type( hecmwst_varray_int ), intent(inout) :: ilist
 
    write(*,*) 'n, maxn:', ilist%nitem, size(ilist%items)
    write(*,*) 'items:', ilist%items(1:ilist%nitem)
  end subroutine hecmw_varray_int_print
 
  subroutine hecmw_varray_int_print_all( ilists )
    type( hecmwst_varray_int ), allocatable, intent(inout) :: ilists(:)
 
    integer(kind=kint) :: i
 
    do i=1,size(ilists)
      write(*,*) "i, n, maxn: ", i, ilists(i)%nitem, size(ilists(i)%items)
      write(*,*) 'items:', ilists(i)%items(1:ilists(i)%nitem)
    end do
  end subroutine hecmw_varray_int_print_all
 
  integer(kind=kint) function hecmw_varray_int_find( ilist, ival )
    type( hecmwst_varray_int ), intent(in) :: ilist
    integer(kind=kint), intent(in)          :: ival
 
    integer(kind=kint) :: i
 
    hecmw_varray_int_find = -1
    do i=1,ilist%nitem
      if( ilist%items(i) == ival ) hecmw_varray_int_find = i
    end do
  end function hecmw_varray_int_find
 
  integer(kind=kint) function hecmw_varray_int_get_nitem( ilist )
    type( hecmwst_varray_int), intent(in) :: ilist
 
    hecmw_varray_int_get_nitem = ilist%nitem
  end function hecmw_varray_int_get_nitem
 
  integer(kind=kint) function hecmw_varray_int_get_item( ilist, n )
    type( hecmwst_varray_int), intent(in) :: ilist
    integer(kind=kint), intent(in) :: n
 
    hecmw_varray_int_get_item = ilist%items(n)
  end function hecmw_varray_int_get_item
 
  subroutine hecmw_varray_int_get_item_all( ilist, array )
    type( hecmwst_varray_int), intent(in) :: ilist
    integer(kind=kint), intent(inout) :: array(:)
 
    array(1:ilist%nitem) = ilist%items(1:ilist%nitem)
  end subroutine hecmw_varray_int_get_item_all
 
end module hecmw_varray_int