Télécharger chevol.eso

Retour à la liste

Numérotation des lignes :

  1. C CHEVOL SOURCE CB215821 17/04/27 21:15:04 9427
  2. C
  3. SUBROUTINE CHEVOL(IEV1,ITIT,K,CHAR1,IEV2)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. IMPLICIT INTEGER (I-N)
  6. C***********************************************************************
  7. C NOM : CHEVOL
  8. C DESCRIPTION : Change certains noms dans une evolution
  9. C
  10. C
  11. C LANGAGE : ESOPE
  12. C CREATION : bp, 2015-05-12
  13. c MODIFS : ...
  14. c
  15. C***********************************************************************
  16. CHARACTER*72 CHAR1
  17.  
  18. -INC SMEVOLL
  19. -INC CCOPTIO
  20.  
  21. MEVOL1=IEV1
  22. SEGINI,MEVOLL=MEVOL1
  23. IEV2=MEVOLL
  24.  
  25. C Aiguillage
  26. GOTO(100,200,200,200),ITIT
  27.  
  28. C Modif du titre general
  29. 100 CONTINUE
  30. IEVTEX=CHAR1
  31. SEGDES,MEVOLL
  32. RETURN
  33.  
  34. C Modif du titre d'une ou de toutes les legendes
  35. 200 CONTINUE
  36. N=IEVOLL(/1)
  37. IF ((K .GT. N) .OR. (K .LT. 0)) THEN
  38. INTERR(1)=K
  39. INTERR(2)=1
  40. INTERR(3)=N
  41. SEGSUP,MEVOLL
  42. CALL ERREUR(1068)
  43. RETURN
  44. ENDIF
  45.  
  46. IF(K.NE.0) THEN
  47. KI=K
  48. ELSE
  49. KI=1
  50. ENDIF
  51.  
  52. 201 CONTINUE
  53. KEVOL1=IEVOLL(KI)
  54. SEGINI,KEVOLL=KEVOL1
  55. IEVOLL(KI)=KEVOLL
  56. IF(ITIT.EQ.2) KEVTEX=CHAR1
  57. IF(ITIT.EQ.3) NOMEVX=CHAR1(1:12)
  58. IF(ITIT.EQ.4) NOMEVY=CHAR1(1:12)
  59. SEGDES,KEVOLL
  60. IF(K.EQ.0) THEN
  61. KI=KI+1
  62. IF(KI.LT.N) GOTO 201
  63. ENDIF
  64. SEGDES,MEVOLL
  65. RETURN
  66.  
  67. END
  68.  
  69.  
  70.  
  71.  

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