allocate_pointer_int32 Subroutine

private subroutine allocate_pointer_int32(iptr)

Arguments

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

Calls

proc~~allocate_pointer_int32~~CallsGraph proc~allocate_pointer_int32 allocate_pointer_int32 proc~error_message error_message proc~allocate_pointer_int32->proc~error_message log_error log_error proc~error_message->log_error

Called by

proc~~allocate_pointer_int32~~CalledByGraph proc~allocate_pointer_int32 allocate_pointer_int32 interface~allocate_pointer allocate_pointer interface~allocate_pointer->proc~allocate_pointer_int32

Source Code

    subroutine allocate_pointer_int32(iptr)
        implicit none
        integer(int32), pointer :: iptr

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