Télécharger borne2.eso

Retour à la liste

Numérotation des lignes :

  1. C BORNE2 SOURCE FANDEUR 10/12/16 21:15:18 6816
  2.  
  3. SUBROUTINE BORNE2 (ILREEE,INDOPE,XBMIN,XBMAX, ILREES)
  4.  
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8(A-H,O-Z)
  7.  
  8. C*-INC CCOPTIO
  9. -INC SMLREEL
  10.  
  11. MLREE1 = ILREEE
  12. SEGINI,MLREEL=MLREE1
  13.  
  14. C- BORNER 'MAXIMUM' :
  15. IF (INDOPE.EQ.1) THEN
  16. DO i = 1, PROG(/1)
  17. PROG(i) = MIN( PROG(i), XBMAX)
  18. ENDDO
  19.  
  20. C- BORNER 'MINIMUM' :
  21. ELSE IF (INDOPE.EQ.2) THEN
  22. DO i = 1, PROG(/1)
  23. PROG(i) = MAX( PROG(i), XBMIN)
  24. ENDDO
  25.  
  26. C- BORNER 'COMPRIS' :
  27. ELSE IF (INDOPE.EQ.3) THEN
  28. DO i = 1, PROG(/1)
  29. x = MIN( PROG(i), XBMAX)
  30. PROG(i) = MAX( x, XBMIN)
  31. ENDDO
  32.  
  33. C- CAS NON PREVU
  34. ELSE
  35. CALL ERREUR(5)
  36. ENDIF
  37.  
  38. SEGDES,MLREEL
  39. ILREES = MLREEL
  40.  
  41. RETURN
  42. END
  43.  
  44.  
  45.  

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