Esope source files

   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
  34 :         CALL ERREUR(5)
  35 :       ENDIF
  36 : 
  37 :       SEGDES,MLREEL
  38 :       ILREES = MLREEL
  39 : 
  40 :       RETURN
  41 :       END
  42 : 
  43 :