Sources Esope | Cast3M

vecmax
C VECMAX    SOURCE    FD218221  25/09/03    21:15:08     12351          
      FUNCTION VECMAX(V,N)
c=======================================================================
C     DONNE LE MAX D'UN VECTEUR
c=======================================================================
      INTEGER N,I
      REAL*8 V(N),VECMAX
C
      VECMAX=V(1)
      IF (N.GT.1) THEN
          DO I=2,N
              IF (V(I).GT.VECMAX) VECMAX=V(I)
          ENDDO
      ENDIF
 
      RETURN
      END