allocate_rank1_real128_pointer Subroutine

private subroutine allocate_rank1_real128_pointer(array, size)

Arguments

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

Calls

proc~~allocate_rank1_real128_pointer~~CallsGraph proc~allocate_rank1_real128_pointer allocate_rank1_real128_pointer proc~error_message error_message proc~allocate_rank1_real128_pointer->proc~error_message log_error log_error proc~error_message->log_error

Called by

proc~~allocate_rank1_real128_pointer~~CalledByGraph proc~allocate_rank1_real128_pointer allocate_rank1_real128_pointer interface~allocate_pointer allocate_pointer interface~allocate_pointer->proc~allocate_rank1_real128_pointer

Source Code

    subroutine allocate_rank1_real128_pointer(array, size)
        implicit none
        real(real128), intent(inout), dimension(:), pointer :: array
        integer(int32), intent(in) :: size

        if (size <= 0) call error_message(951)
        if (.not. associated(array)) then
            allocate (array(size))
        else
            ! call error_message(953)
        end if
    end subroutine allocate_rank1_real128_pointer