resize.f

Go to the documentation of this file.

module resize

  public :: byte_grow
  public :: integer_grow
  public :: integer_grow2_reverse
  public :: integer_grow2
  public :: logical_grow
  public :: logical_grow2
  public :: real_grow
  public :: real_grow2
  public :: real_grow2_reverse
  public :: real_grow3
  public :: logical_grow2_reverse

  contains

      SUBROUTINE byte_grow(byte_array,new_size)
        IMPLICIT NONE

        INTEGER, INTENT(IN) :: new_size
        INTEGER(KIND=1), DIMENSION(:), ALLOCATABLE, INTENT(INOUT) :: byte_array
        INTEGER(KIND=1), DIMENSION(:), ALLOCATABLE :: byte_tmp
        INTEGER lSIZE

        lsize = size(byte_array,1)
        allocate(byte_tmp(new_size))
        byte_tmp(1:lsize) = byte_array(1:lsize)
        call move_alloc(byte_tmp,byte_array)

      END SUBROUTINE byte_grow

      SUBROUTINE integer_grow(integer_array,new_size)
        IMPLICIT NONE

        INTEGER, INTENT(IN) :: new_size
        INTEGER, DIMENSION(:), ALLOCATABLE, INTENT(INOUT) :: integer_array
        INTEGER, DIMENSION(:), ALLOCATABLE :: integer_tmp
        INTEGER lSIZE

        lsize = size(integer_array,1)
        allocate(integer_tmp(new_size))
        integer_tmp(1:lsize) = integer_array(1:lsize)
        call move_alloc(integer_tmp,integer_array)

      END SUBROUTINE integer_grow

      SUBROUTINE integer_grow2_reverse(integer_array,new_size)
        IMPLICIT NONE

        INTEGER, INTENT(IN) :: new_size
        INTEGER, DIMENSION(:,:), ALLOCATABLE, INTENT(INOUT) :: integer_array
        INTEGER, DIMENSION(:,:), ALLOCATABLE :: integer_tmp
        INTEGER lSIZE, lSIZE2

        lsize = size(integer_array,1)
        lsize2 = size(integer_array,2)
        allocate(integer_tmp(new_size,lsize2))
        integer_tmp(1:lsize,:) = integer_array(1:lsize,:)
        call move_alloc(integer_tmp,integer_array)

      END SUBROUTINE integer_grow2_reverse

      SUBROUTINE integer_grow2(integer_array,new_size)
        IMPLICIT NONE

        INTEGER, INTENT(IN) :: new_size
        INTEGER, DIMENSION(:,:), ALLOCATABLE, INTENT(INOUT) :: integer_array
        INTEGER, DIMENSION(:,:), ALLOCATABLE :: integer_tmp
        INTEGER lSIZE, lSIZE2

        lsize = size(integer_array,1)
        lsize2 = size(integer_array,2)
        allocate(integer_tmp(lsize,new_size))
        integer_tmp(:,1:lsize2) = integer_array(:,1:lsize2)
        call move_alloc(integer_tmp,integer_array)

      END SUBROUTINE integer_grow2

      SUBROUTINE logical_grow(logical_array,new_size)
        IMPLICIT NONE

        INTEGER, INTENT(IN) :: new_size
        LOGICAL, DIMENSION(:), ALLOCATABLE, INTENT(INOUT) :: logical_array
        LOGICAL, DIMENSION(:), ALLOCATABLE :: logical_tmp
        INTEGER lSIZE

        lsize = size(logical_array,1)
        allocate(logical_tmp(new_size))
        logical_tmp(1:lsize) = logical_array(1:lsize)
        call move_alloc(logical_tmp,logical_array)

      END SUBROUTINE logical_grow

      SUBROUTINE logical_grow2(logical_array,new_size)
        IMPLICIT NONE

        INTEGER, INTENT(IN) :: new_size
        LOGICAL, DIMENSION(:,:), ALLOCATABLE, INTENT(INOUT) :: logical_array
        LOGICAL, DIMENSION(:,:), ALLOCATABLE :: logical_tmp
        INTEGER lSIZE, lSIZE2

        lsize = size(logical_array,1)
        lsize2 = size(logical_array,2)
        allocate(logical_tmp(lsize,new_size))
        logical_tmp(:,1:lsize2) = logical_array(:,1:lsize2)
        call move_alloc(logical_tmp,logical_array)

      END SUBROUTINE logical_grow2

      SUBROUTINE real_grow(real_array,new_size)
        IMPLICIT NONE

        INTEGER, INTENT(IN) :: new_size
        DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE, INTENT(INOUT) :: real_array
        DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: real_tmp
        INTEGER lSIZE

        lsize = size(real_array,1)
        allocate(real_tmp(new_size))
        real_tmp(1:lsize) = real_array(1:lsize)
        call move_alloc(real_tmp,real_array)

      END SUBROUTINE real_grow

      SUBROUTINE real_grow2(real_array,new_size)
        IMPLICIT NONE

        INTEGER, INTENT(IN) :: new_size
        DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE, INTENT(INOUT) :: real_array
        DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: real_tmp
        INTEGER lSIZE, lSIZE2

        lsize = size(real_array,1)
        lsize2 = size(real_array,2)
        allocate(real_tmp(lsize,new_size))
        real_tmp(:,1:lsize2) = real_array(:,1:lsize2)
        call move_alloc(real_tmp,real_array)

      END SUBROUTINE real_grow2

      SUBROUTINE real_grow2_reverse(real_array,new_size)
        IMPLICIT NONE

        INTEGER, INTENT(IN) :: new_size
        DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE, INTENT(INOUT) :: real_array
        DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: real_tmp
        INTEGER lSIZE, lSIZE2

        lsize = size(real_array,1)
        lsize2 = size(real_array,2)
        allocate(real_tmp(new_size,lsize2))
        real_tmp(1:lsize,:) = real_array(1:lsize,:)
        call move_alloc(real_tmp,real_array)

      END SUBROUTINE real_grow2_reverse

      SUBROUTINE real_grow3(real_array,new_size)
        IMPLICIT NONE

        INTEGER, INTENT(IN) :: new_size
        DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE, INTENT(INOUT) :: real_array
        DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: real_tmp
        INTEGER lSIZE, lSIZE2, lSIZE3

        lsize = size(real_array,1)
        lsize2 = size(real_array,2)
        lsize3 = size(real_array,3)
        allocate(real_tmp(lsize,lsize2,new_size))
        real_tmp(:,:,1:lsize3) = real_array(:,:,1:lsize3)
        call move_alloc(real_tmp,real_array)

      END SUBROUTINE real_grow3

      SUBROUTINE logical_grow2_reverse(real_array,new_size)
        IMPLICIT NONE

        INTEGER, INTENT(IN) :: new_size
        LOGICAL, DIMENSION(:,:), ALLOCATABLE, INTENT(INOUT) :: real_array
        LOGICAL, DIMENSION(:,:), ALLOCATABLE :: real_tmp
        INTEGER lSIZE, lSIZE2

        lsize = size(real_array,1)
        lsize2 = size(real_array,2)
        allocate(real_tmp(new_size,lsize2))
        real_tmp(1:lsize,:) = real_array(1:lsize,:)
        call move_alloc(real_tmp,real_array)

      END SUBROUTINE logical_grow2_reverse

end module resize