Télécharger chevol.eso

Retour à la liste

Numérotation des lignes :

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

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