1 : C ECEVOL SOURCE CHAT 08/01/09 21:15:01 6021 2 : SUBROUTINE ECEVOL(MEVOLL,jentet) 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8(A-H,O-Z) 5 : C 6 : C ==================================================================== 7 : C = ECRITURE DE L'OBJET EVOLUTION = 8 : C = CREATION : 01/10/86 = 9 : C = PROGRAMMEUR : GUILBAUD = 10 : C ==================================================================== 11 : C 12 : -INC CCOPTIO 13 : -INC SMLREEL 14 : -INC SMEVOLL 15 : -INC SMELEME 16 : -INC SMLMOTS 17 : -INC CCGEOME 18 : SEGACT MEVOLL 19 : WRITE (IOIMP,111) IEVTEX 20 : 111 FORMAT (2X,A72) 21 : N=IEVOLL(/1) 22 : INTERR(1)=MEVOLL 23 : INTERR(2)=N 24 : MOTERR(1:8)=ITYEVO 24 : CALL ERREUR(-116) 25 : C 26 : DO 1 I=1,N 27 : KEVOLL=IEVOLL(I) 28 : SEGACT KEVOLL 29 : INTERR(1)=I 30 : MOTERR(1:4)=NCOUL(NUMEVX) 30 : CALL ERREUR(-117) 31 : WRITE (IOIMP,111) KEVTEX 32 : MOTERR(1:12)= NOMEVX 32 : CALL ERREUR(-118) 33 : MOTERR(1:4)=NUMEVY 34 : MOTERR(5:16)=NOMEVY 34 : CALL ERREUR(-119) 35 : IF(TYPX.EQ.'LISTREEL')THEN 36 : MLREEL=IPROGX 37 : SEGACT MLREEL 38 : NPAS=PROG(/1) 39 : npi=npas 40 : if(jentet.eq.1) npi=min(npi,10) 41 : INTERR(1)=NPAS 41 : CALL ERREUR(-120) 42 : 106 FORMAT (' NOMBRE DE POINTS =',I7) 43 : IF(TYPY.EQ.'LISTREEL') THEN 44 : MLREE1=IPROGY 45 : SEGACT MLREE1 46 : WRITE(IOIMP,101)(J,PROG(J),MLREE1.PROG(J),J=1,NPi) 47 : *101 FORMAT(/4(1X,I5,1X,1PE12.5,1X,1PE12.5,1X)) 48 : 101 FORMAT(/(3X,I5,3X,1PE12.5,3X,1PE12.5)) 49 : SEGDES MLREEL,MLREE1 50 : ELSEIF(TYPY.EQ.'LISTMOTS') THEN 51 : MLMOTS=IPROGY 52 : SEGACT MLMOTS 53 : WRITE(IOIMP,120)(J,PROG(J),MOTS(J),J=1,NPi) 54 : *120 FORMAT(/4(1X,I5,1X,1PE12.5,1X,A8,1X)) 55 : 120 FORMAT(/(3X,I5,3X,1PE12.5,3X,A8)) 56 : SEGDES MLMOTS,MLREEL 57 : ENDIF 58 : ELSEIF(TYPX.EQ.'LISTMOTS') THEN 59 : MLMOTS=IPROGX 60 : SEGACT MLMOTS 61 : NPAS=MOTS(/2) 62 : npi=npas 63 : if(jentet.eq.1) npi=min(npi,10) 64 : INTERR(1)=NPAS 64 : CALL ERREUR(-120) 65 : IF(TYPY.EQ.'LISTREEL') THEN 66 : MLREE1=IPROGY 67 : SEGACT MLREE1 68 : WRITE(IOIMP,121)(J,MOTS(J),MLREE1.PROG(J),J=1,NPi) 69 : *121 FORMAT(/4(1X,I5,1X,A8,1X,1PE12.5,1X)) 70 : 121 FORMAT(/(3X,I5,3X,A8,3X,1PE12.5)) 71 : SEGDES MLMOTS,MLREE1 72 : ELSEIF(TYPY.EQ.'LISTMOTS') THEN 73 : MLMOT2=IPROGY 74 : SEGACT MLMOT2 75 : WRITE(IOIMP,122)(J,MOTS(J),MLMOT2.MOTS(J),J=1,NPi) 76 : *122 FORMAT(/4(1X,I5,1X,A8,1X,A8,1X)) 77 : 122 FORMAT(/(3X,I5,3X,A8,3X,A8)) 78 : SEGDES MLMOTS,MLREEL 79 : ENDIF 80 : ENDIF 81 : SEGDES KEVOLL 82 : 1 CONTINUE 83 : SEGDES MEVOLL 84 : RETURN 85 : END 86 : 87 : 88 : 89 :
© Cast3M 2003 - All rights reserved.
Disclaimer