Esope source files

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