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*
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. -INC SMLREEL
  12.  
  13. MLREE1 = ILREEE
  14. SEGINI,MLREEL=MLREE1
  15.  
  16. C- BORNER 'MAXIMUM' :
  17. IF (INDOPE.EQ.1) THEN
  18. DO i = 1, PROG(/1)
  19. PROG(i) = MIN( PROG(i), XBMAX)
  20. ENDDO
  21.  
  22. C- BORNER 'MINIMUM' :
  23. ELSE IF (INDOPE.EQ.2) THEN
  24. DO i = 1, PROG(/1)
  25. PROG(i) = MAX( PROG(i), XBMIN)
  26. ENDDO
  27.  
  28. C- BORNER 'COMPRIS' :
  29. ELSE IF (INDOPE.EQ.3) THEN
  30. DO i = 1, PROG(/1)
  31. x = MIN( PROG(i), XBMAX)
  32. PROG(i) = MAX( x, XBMIN)
  33. ENDDO
  34.  
  35. C- CAS NON PREVU
  36. ELSE
  37. CALL ERREUR(5)
  38. ENDIF
  39.  
  40. SEGDES,MLREEL
  41. ILREES = MLREEL
  42.  
  43. RETURN
  44. END
  45.  
  46.  
  47.  

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