---

Manual Reference Pages  - move_alloc (3)

---

NAME

move_alloc(3f) - [FORTRAN:INTRINSIC] Move allocation from one object to another

SYNTAX

call move_alloc(src, dest)

DESCRIPTION

move_alloc(src, dest) moves the allocation from SRC to DEST. SRC will become deallocated in the process.

ARGUMENTS

SRC	ALLOCATABLE, intent(inout), may be of any type and kind.
DEST	ALLOCATABLE, intent(out), shall be of the same type, kind and rank as SRC.

EXAMPLE

Basic Sample program to allocate a bigger grid

   program demo_move_alloc
   implicit none
   ! Example to allocate a bigger GRID
   real, allocatable :: grid(:), tempgrid(:)
   integer :: n, i

      ! initialize small GRID
      n = 3
      allocate (grid(1:n))
      grid = [ (real (i), i=1,n) ]

      ! initialize TEMPGRID which will be used to replace GRID
      allocate (tempgrid(1:2*n))    ! Allocate bigger grid
      tempgrid(::2)  = grid         ! Distribute values to new locations
      tempgrid(2::2) = grid + 0.5   ! initialize other values

      ! move TEMPGRID to GRID
      call MOVE_ALLOC (from=tempgrid, to=grid)

      ! TEMPGRID should no longer be allocated
      ! and GRID should be the size TEMPGRID was
      if (size (grid) /= 2*n .or. allocated (tempgrid)) then
         print *, "Failure in move_alloc!"
      endif
      print *, allocated(grid), allocated(tempgrid)
      print ’(99f8.3)’, grid

end program demo_move_alloc

STANDARD

[[Fortran 2003]] and later

CLASS

Pure subroutine

SEE ALSO

allocated(3)

---

move_alloc (3)

March 11, 2021

Generated by manServer 1.08 from d2dc1af9-823b-40b6-a4d5-23c9d89c2266 using man macros.