resize_alloc.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	resize_storage (new_size, status)

Function/Subroutine Documentation

resize_storage()

subroutine resize_storage	(	integer, intent(in)	new_size,
		integer, intent(out)	status
	)

Definition at line 18 of file resize_alloc.f90.

References amr_module::alloc, and amr_module::memsize.

Referenced by igetsp().

    
    use amr_module
    implicit none
    
    integer, intent(out) :: status
    integer, intent(in) :: new_size
    
    real(kind=8), allocatable, target, dimension(:) :: new_storage
    

    if (memsize < new_size) then
        print *, "Expanding storage from ", memsize," to ", new_size
        allocate(new_storage(new_size),stat=status)
        if (status > 0) then
            return
        endif
!       new_storage(1:memsize) = storage   !old way, changed mjb sept. 2014
        new_storage(1:memsize) = alloc     ! new way, use allocatable, not pointer       

!        call move_alloc(new_storage,storage)
        call move_alloc(new_storage,alloc)

!        alloc => storage
        memsize = new_size
    else
        print *,'new_size < memsize,'
        print *,'new_size = ',new_size
        print *,'memsize = ',memsize
        stop
    endif
    
    return
    

Here is the caller graph for this function: