Ошибка при использовании встроенной функции SUM

Question

используя компилятор g95, я получаю сообщение об ошибке:

ERROR: Procedure attribute conflicts with INTENT attribute in 'quantityarray'

Я пытался найти общую сумму массива.Вот подпрограмма, в которой появляется эта ошибка:

SUBROUTINE findTotals(pricearray,quantityarray,totalprice, totalquantity)

INTEGER, INTENT(IN)::quantityarray
REAL, INTENT(IN):: pricearray
INTEGER, INTENT(OUT)::totalquantity
REAL, INTENT(OUT)::totalprice


totalquantity = SUM(quantityarray)
totalprice = SUM(pricearray)


END SUBROUTINE

Большое спасибо за ваше время.

Answer 1

program SummingAnArray
implicit none
integer, dimension(10) :: array=(/ (i, i=1,10) /)
integer :: i, Total

call VectorSum(array,Total)
print *,Total
read(*,*)



contains
    !===================================================
    subroutine VectorSum(Vector,Total)
    implicit none
    integer, intent(in), dimension(:) :: Vector
    integer, intent(out) :: Total

    Total = SUM(Vector)
    end subroutine VectorSum
    !===================================================
end program SummingAnArray

Возможно, это то, чего вы хотели достичь?