copy_or_update_double_alloc_r3 Subroutine

private subroutine copy_or_update_double_alloc_r3(array, no_update)

Arguments

Type IntentOptional Attributes Name
double precision, intent(inout), allocatable :: array(:,:,:)
logical, intent(in), optional :: no_update

Called by

proc~~copy_or_update_double_alloc_r3~~CalledByGraph proc~copy_or_update_double_alloc_r3 copy_or_update_double_alloc_r3 interface~copy_or_update_alloc copy_or_update_alloc interface~copy_or_update_alloc->proc~copy_or_update_double_alloc_r3

Source Code

  subroutine copy_or_update_double_alloc_r3(array, no_update)
    implicit none
    double precision, allocatable, intent(inout) :: array(:,:,:)
    logical, optional, intent(in)     :: no_update

    logical                           :: no_update_

    if (present(no_update)) then
       no_update_ = no_update
    else
       no_update_ = .false.
    end if

    if (.not. allocated(array)) then
       print *, 'copy_or_update: unallocated allocatable (rank 3)'
       return
    end if


  end subroutine copy_or_update_double_alloc_r3