Télécharger borne1.eso

Retour à la liste

Numérotation des lignes :

  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
  35. CALL ERREUR(5)
  36. ENDIF
  37.  
  38. SEGDES,MLENTI
  39. ILENTS = MLENTI
  40.  
  41. RETURN
  42. END
  43.  
  44.  
  45.  

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