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

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