Average of an array

[onkelhotte]

Hi there,

Im still using CVF6.6c and I was looking for a function that return the average of an array.

Though I didnt find a function, I tried to program a function on my own. But I have a problem with the array dimension and array type in the ne function. I have to create a new array but I dont know the dimensions nor type.

real function average(array)
implicit none
real array(:)

Thanks in advance,
Markus

[Jugoslav_Dujic]

Erm, what's wrong with SUM()/SIZE() ?

[onkelhotte]

Erm, nothing... That was only aquestion to test the expertise of the forum users :-)

I need a vacation...

[Jugoslav_Dujic]

I need a vacation...

Tell me about it...