SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/LIB/XRD38/utilities/ismax

Go to the documentation of this file.

00001       INTEGER FUNCTION ISMAX_1 ( KNELEM, PCHAMP)
00002 
00003 #include "precision.h"
00004  
00005 c    Search for position of maximum value in array PCHAMP.
00006 c    Simplified version (good for vector computers) assuming stride=1
00007 c     Original  F. Vana - ONPP/CHMI - 23-Mar-2010
00008 
00009       INTEGER KNELEM
00010       REAL (KIND=JPDBLR) PCHAMP (*)
00011 
00012       IF (KNELEM <= 0) THEN
00013         ISMAX_1=0
00014       ELSE
00015         ISMAX_1=MAXLOC(ARRAY=PCHAMP(1:KNELEM) ,DIM=1)
00016       ENDIF
00017       RETURN
00018       END