Max Value of Array 2

[ellipm]

Hello again,
I was wondering if sb knows how can i calculate the max value of an array. This is what I mean:

IF(U(I+1,J).LE.UMEAN(I+1)) then 
YUHALF(I+1)=(J-2)*DY+((Y(J)-Y(J-1))/(U(I+1,J)-U(I+1,J-1)))*(UMEAN(I+1)-U(I+1,J-1))    
write(*,*) 'i=',i+1,'j=',j,'yuhalf=',yuhalf(I+1)
	end if

I have calculated some values for my array "YUHALF" and I want the first of them,which happens to be the max value. Because of the if-statement, I don't know in which j it happens in every step.
Any advice is much appreciated!thanks

 

[xwb]

Have a look at the intrinsic function maxval.

http://ram3.chem.sunysb.edu/nucwww/helplib/FORTRAN/INTRINSIC_PROCEDURES/MAXVAL.html

 

[ellipm]

it seems very useful!i'll try it.thanks!

 

[fanta2]

Indeed you can explore maxval intrinsic function. If you store the values of your array in YUHALf then maxval(YUHALF) can give you the max. value. You might use the maxloc function also to know the location of the maximum value.