ismin_1.F90

Go to the documentation of this file.

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

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

      IF (knelem <= 0) THEN
        iismin_1=0
      ELSE
        iismin_1=int(minloc(array=pchamp(1:knelem) ,dim=1), jplikb)
      ENDIF
      RETURN
      END FUNCTION ismin_164