allocate_pointer_real128 Subroutine

private subroutine allocate_pointer_real128(dptr)

Arguments

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

Calls

proc~~allocate_pointer_real128~~CallsGraph proc~allocate_pointer_real128 allocate_pointer_real128 proc~error_message error_message proc~allocate_pointer_real128->proc~error_message log_error log_error proc~error_message->log_error

Called by

proc~~allocate_pointer_real128~~CalledByGraph proc~allocate_pointer_real128 allocate_pointer_real128 interface~allocate_pointer allocate_pointer interface~allocate_pointer->proc~allocate_pointer_real128

Source Code

    subroutine allocate_pointer_real128(dptr)
        implicit none
        real(real128), pointer :: dptr

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