C CHEVOL SOURCE CB215821 17/04/27 21:15:04 9427 C SUBROUTINE CHEVOL(IEV1,ITIT,K,CHAR1,IEV2) IMPLICIT REAL*8 (A-H,O-Z) IMPLICIT INTEGER (I-N) C*********************************************************************** C NOM : CHEVOL C DESCRIPTION : Change certains noms dans une evolution C C C LANGAGE : ESOPE C CREATION : bp, 2015-05-12 c MODIFS : ... c C*********************************************************************** CHARACTER*72 CHAR1 -INC SMEVOLL -INC PPARAM -INC CCOPTIO MEVOL1=IEV1 SEGINI,MEVOLL=MEVOL1 IEV2=MEVOLL C Aiguillage GOTO(100,200,200,200),ITIT C Modif du titre general 100 CONTINUE IEVTEX=CHAR1 SEGDES,MEVOLL RETURN C Modif du titre d'une ou de toutes les legendes 200 CONTINUE N=IEVOLL(/1) IF ((K .GT. N) .OR. (K .LT. 0)) THEN INTERR(1)=K INTERR(2)=1 INTERR(3)=N SEGSUP,MEVOLL CALL ERREUR(1068) RETURN ENDIF IF(K.NE.0) THEN KI=K ELSE KI=1 ENDIF 201 CONTINUE KEVOL1=IEVOLL(KI) SEGINI,KEVOLL=KEVOL1 IEVOLL(KI)=KEVOLL IF(ITIT.EQ.2) KEVTEX=CHAR1 IF(ITIT.EQ.3) NOMEVX=CHAR1(1:12) IF(ITIT.EQ.4) NOMEVY=CHAR1(1:12) SEGDES,KEVOLL IF(K.EQ.0) THEN KI=KI+1 IF(KI.LT.N) GOTO 201 ENDIF SEGDES,MEVOLL RETURN END