Télécharger la plaquette Cast3M


fr en

Télécharger varifv.eso

Retour à la liste

Numérotation des lignes : 

varifv

  1. C VARIFV    SOURCE    FANDEUR   16/09/21    21:15:17     9098           
  2. C VARIFV    SOURCE                                           
  3.  
  4.       SUBROUTINE VARIFV (XX,NB, JORDO)
  5.  
  6. C----------------------------------------------------------------
  7. C  ENTREES:
  8. C     XX NB (NB > 1)
  9. C  SORTIE:
  10. C     JORDO = +1 si xx ordonnee et strictement croissante
  11. C           = -1 si xx ordonnee et strictement decroissante
  12. C           = +0 pour les autres cas (erreur 211 en general)
  13. C----------------------------------------------------------------
  14.       IMPLICIT INTEGER(I-N)
  15.       IMPLICIT REAL*8(A-H,O-Z)
  16.  
  17.       DIMENSION XX(*)
  18.  
  19. C XX ordonnee et croissante (strictement)
  20.       DO I = 2, NB
  21.         IF (XX(I).LE.XX(I-1)) GOTO 2
  22.       ENDDO
  23.       JORDO = 1
  24.       RETURN
  25.  
  26. C XX ordonnee et decroissante (strictement)
  27.   2   CONTINUE
  28.       DO I = 2, NB
  29.         IF (XX(I).GE.XX(I-1)) GOTO 4
  30.       ENDDO
  31.       JORDO = -1
  32.       RETURN
  33.  
  34. C XX n'est pas ordonnee (ou a minima 2 valeurs successives egales)
  35.   4   CONTINUE
  36.       JORDO = 0
  37.       RETURN
  38. *
  39.       END
  40.  
  41.  
  42.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales