Sources Esope | Cast3M

borne1
C BORNE1    SOURCE    FANDEUR   10/12/16    21:15:16     6816
 
      SUBROUTINE BORNE1 (ILENTE,INDOPE,IBMIN,IBMAX, ILENTS)
 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
 
C*
-INC PPARAM
-INC CCOPTIO
-INC SMLENTI
 
      MLENT1 = ILENTE
      SEGINI,MLENTI=MLENT1
 
C- BORNER 'MAXIMUM' :
      IF (INDOPE.EQ.1) THEN
        DO i = 1, LECT(/1)
          LECT(i) = MIN( LECT(i), IBMAX)
        ENDDO
 
C- BORNER 'MINIMUM' :
      ELSE IF (INDOPE.EQ.2) THEN
        DO i = 1, LECT(/1)
          LECT(i) = MAX( LECT(i), IBMIN)
        ENDDO
 
C- BORNER 'COMPRIS' :
      ELSE IF (INDOPE.EQ.3) THEN
        DO i = 1, LECT(/1)
          j = MIN( LECT(i), IBMAX)
          LECT(i) = MAX( j, IBMIN)
        ENDDO
 
C- CAS NON PREVU
      ELSE
        CALL ERREUR(5)
      ENDIF
 
      SEGDES,MLENTI
      ILENTS = MLENTI
 
      RETURN
      END