init_alloc.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	init_alloc ()

Function/Subroutine Documentation

init_alloc()

subroutine init_alloc

(

)

Definition at line 12 of file init_alloc.f90.

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

Referenced by stst1().

    
    use amr_module
    implicit none
    
!    if (.not.allocated(storage)) then   ! old way, changed mjb sept. 2014
    if (.not.allocated(alloc)) then      ! new way, use allocatable arrays, not pointers
        memsize = 1000000
!        allocate(storage(memsize)) 
        allocate(alloc(memsize))
!        alloc => storage
        print *, "Storage allocated..."
    else
        print *, "Storage already allocated!"
    endif
    

Here is the caller graph for this function: