allocate_pointer_int64 Subroutine

private subroutine allocate_pointer_int64(iptr)

Arguments

Type IntentOptional Attributes Name
integer(kind=int64), pointer :: iptr

Calls

proc~~allocate_pointer_int64~~CallsGraph proc~allocate_pointer_int64 allocate_pointer_int64 proc~error_message error_message proc~allocate_pointer_int64->proc~error_message log_error log_error proc~error_message->log_error

Called by

proc~~allocate_pointer_int64~~CalledByGraph proc~allocate_pointer_int64 allocate_pointer_int64 interface~allocate_pointer allocate_pointer interface~allocate_pointer->proc~allocate_pointer_int64

Source Code

    subroutine allocate_pointer_int64(iptr)
        implicit none
        integer(int64), pointer :: iptr

        if (.not. associated(iptr)) then
            allocate (iptr)
        else
            call error_message(955)
        end if
    end subroutine allocate_pointer_int64