allocate_rank1_int64_pointer Subroutine

private subroutine allocate_rank1_int64_pointer(array, size)

Arguments

Type IntentOptional Attributes Name
integer(kind=int64), intent(inout), dimension(:), pointer :: array
integer(kind=int64), intent(in) :: size

Calls

proc~~allocate_rank1_int64_pointer~~CallsGraph proc~allocate_rank1_int64_pointer allocate_rank1_int64_pointer proc~error_message error_message proc~allocate_rank1_int64_pointer->proc~error_message log_error log_error proc~error_message->log_error

Called by

proc~~allocate_rank1_int64_pointer~~CalledByGraph proc~allocate_rank1_int64_pointer allocate_rank1_int64_pointer interface~allocate_pointer allocate_pointer interface~allocate_pointer->proc~allocate_rank1_int64_pointer

Source Code

    subroutine allocate_rank1_int64_pointer(array, size)
        implicit none
        integer(int64), intent(inout), dimension(:), pointer :: array
        integer(int64), intent(in) :: size

        if (size <= 0) call error_message(951)
        if (.not. associated(array)) then
            allocate (array(size))
        else
            ! call error_message(953)
        end if
    end subroutine allocate_rank1_int64_pointer