allocate_pointer_real32 Subroutine

private subroutine allocate_pointer_real32(dptr)

Arguments

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

Calls

proc~~allocate_pointer_real32~~CallsGraph proc~allocate_pointer_real32 allocate_pointer_real32 proc~error_message error_message proc~allocate_pointer_real32->proc~error_message log_error log_error proc~error_message->log_error

Called by

proc~~allocate_pointer_real32~~CalledByGraph proc~allocate_pointer_real32 allocate_pointer_real32 interface~allocate_pointer allocate_pointer interface~allocate_pointer->proc~allocate_pointer_real32

Source Code

    subroutine allocate_pointer_real32(dptr)
        implicit none
        real(real32), pointer :: dptr

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