copy_or_update_logical_pointer Subroutine

private subroutine copy_or_update_logical_pointer(scalar, no_update)

Arguments

Type IntentOptional Attributes Name
logical, intent(inout), pointer :: scalar
logical, intent(in), optional :: no_update

Called by

proc~~copy_or_update_logical_pointer~~CalledByGraph proc~copy_or_update_logical_pointer copy_or_update_logical_pointer interface~copy_or_update_pointer copy_or_update_pointer interface~copy_or_update_pointer->proc~copy_or_update_logical_pointer proc~alloc_node alloc_node proc~alloc_node->interface~copy_or_update_pointer proc~alloc_node~2 alloc_node proc~alloc_node~2->interface~copy_or_update_pointer proc~alloc_node~3 alloc_node proc~alloc_node~3->interface~copy_or_update_pointer proc~alloc_node~4 alloc_node proc~alloc_node~4->interface~copy_or_update_pointer

Source Code

  subroutine copy_or_update_logical_pointer(scalar, no_update)
    implicit none
    logical, pointer, intent(inout) :: scalar
    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. associated(scalar)) then
       print *, 'copy_or_update: null-pointer encountered'
       return
    end if


  end subroutine copy_or_update_logical_pointer