SUM: sum of an array argument (f)

⇒Home ⇒Contents ⇒more on Numerics

⇒ Example of a SUM call in "Greatest_subsequential_sum" (RosettaCode)

return the sum of all the elements in an entire array

result = SUM( array )

e.g.:

 REAL :: array(3, 4)
 array = 3^$ ! fill with 3 to the linear index:
         3         9        27        81
       243       729      2187      6561
     19683     59049    177147    531441
 sum = SUM( array ) ! sum evaluates to 797160