restrt_alloc.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	restrt_alloc (isize)

Function/Subroutine Documentation

restrt_alloc()

subroutine restrt_alloc

(

integer

isize

)

Definition at line 12 of file restrt_alloc.f90.

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

Referenced by restrt().

    use amr_module
    implicit none
    integer :: isize


!    if (.not.allocated(storage)) then  ! old way, changed mjb Sept. 2014
    if (.not.allocated(alloc)) then     ! new way uses allocatable, not pointer, arrays
        write(6,*)"allocating ",isize," -sized alloc array"
        memsize = isize
!       allocate(storage(memsize))
        allocate(alloc(memsize))
!       alloc => storage
        print *, "Storage allocated of size ",memsize," at restart"
    else
        print *, "Storage already allocated!"
    endif

Here is the caller graph for this function: