Télécharger chevol.eso

Retour à la liste

Numérotation des lignes :

chevol
  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.  
  20. -INC PPARAM
  21. -INC CCOPTIO
  22.  
  23. MEVOL1=IEV1
  24. SEGINI,MEVOLL=MEVOL1
  25. IEV2=MEVOLL
  26.  
  27. C Aiguillage
  28. GOTO(100,200,200,200),ITIT
  29.  
  30. C Modif du titre general
  31. 100 CONTINUE
  32. IEVTEX=CHAR1
  33. SEGDES,MEVOLL
  34. RETURN
  35.  
  36. C Modif du titre d'une ou de toutes les legendes
  37. 200 CONTINUE
  38. N=IEVOLL(/1)
  39. IF ((K .GT. N) .OR. (K .LT. 0)) THEN
  40. INTERR(1)=K
  41. INTERR(2)=1
  42. INTERR(3)=N
  43. SEGSUP,MEVOLL
  44. CALL ERREUR(1068)
  45. RETURN
  46. ENDIF
  47.  
  48. IF(K.NE.0) THEN
  49. KI=K
  50. ELSE
  51. KI=1
  52. ENDIF
  53.  
  54. 201 CONTINUE
  55. KEVOL1=IEVOLL(KI)
  56. SEGINI,KEVOLL=KEVOL1
  57. IEVOLL(KI)=KEVOLL
  58. IF(ITIT.EQ.2) KEVTEX=CHAR1
  59. IF(ITIT.EQ.3) NOMEVX=CHAR1(1:12)
  60. IF(ITIT.EQ.4) NOMEVY=CHAR1(1:12)
  61. SEGDES,KEVOLL
  62. IF(K.EQ.0) THEN
  63. KI=KI+1
  64. IF(KI.LT.N) GOTO 201
  65. ENDIF
  66. SEGDES,MEVOLL
  67. RETURN
  68.  
  69. END
  70.  
  71.  
  72.  
  73.  

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