allocate_rank1_real128_specify_pointer Subroutine

private subroutine allocate_rank1_real128_specify_pointer(array, first, last)

Arguments

Type IntentOptional Attributes Name
real(kind=real128), intent(inout), dimension(:), pointer :: array
integer(kind=int32), intent(in) :: first
integer(kind=int32), intent(in) :: last

Calls

proc~~allocate_rank1_real128_specify_pointer~~CallsGraph proc~allocate_rank1_real128_specify_pointer allocate_rank1_real128_specify_pointer proc~error_message error_message proc~allocate_rank1_real128_specify_pointer->proc~error_message log_error log_error proc~error_message->log_error

Called by

proc~~allocate_rank1_real128_specify_pointer~~CalledByGraph proc~allocate_rank1_real128_specify_pointer allocate_rank1_real128_specify_pointer interface~allocate_pointer allocate_pointer interface~allocate_pointer->proc~allocate_rank1_real128_specify_pointer

Source Code

    subroutine allocate_rank1_real128_specify_pointer(array, first, last)
        implicit none
        real(real128), intent(inout), dimension(:), pointer :: array
        integer(int32), intent(in) :: first, last

        if (first > last) call error_message(952)
        if (.not. associated(array)) then
            allocate (array(first:last))
        else
            ! call error_message(953)
        end if
    end subroutine allocate_rank1_real128_specify_pointer