ismax_1.F90

Go to the documentation of this file.

! Oct-2012 P. Marguinaud 64b LFI
      FUNCTION ismax_164  &
     &        ( knelem, pchamp) result(iismax_1)
      USE lfi_precision
      IMPLICIT NONE
 
!    Search for position of maximum value in array PCHAMP.
!    Simplified version (good for vector computers) assuming stride=1
!     Original  F. Vana - ONPP/CHMI - 23-Mar-2010

      INTEGER (KIND=JPLIKB) IISMAX_1
      INTEGER (KIND=JPLIKB) KNELEM
      REAL (KIND=JPDBLR) PCHAMP (*)

      IF (knelem <= 0) THEN
        iismax_1=0
      ELSE
        iismax_1=int(maxloc(array=pchamp(1:knelem) ,dim=1), jplikb)
      ENDIF
      RETURN
      END FUNCTION ismax_164