allocate_pointer_real64 Subroutine

private subroutine allocate_pointer_real64(dptr)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), pointer :: dptr

Calls

proc~~allocate_pointer_real64~~CallsGraph proc~allocate_pointer_real64 allocate_pointer_real64 proc~error_message error_message proc~allocate_pointer_real64->proc~error_message log_error log_error proc~error_message->log_error

Called by

proc~~allocate_pointer_real64~~CalledByGraph proc~allocate_pointer_real64 allocate_pointer_real64 interface~allocate_pointer allocate_pointer interface~allocate_pointer->proc~allocate_pointer_real64

Source Code

    subroutine allocate_pointer_real64(dptr)
        implicit none
        real(real64), pointer :: dptr

        if (.not. associated(dptr)) then
            allocate (dptr)
        else
            call error_message(955)
        end if
    end subroutine allocate_pointer_real64