ecevol
C ECEVOL SOURCE SP204843 24/09/27 21:15:07 12017 IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) C C ==================================================================== C = ECRITURE DE L'OBJET EVOLUTION = C = CREATION : 01/10/86 = C = PROGRAMMEUR : GUILBAUD = C ==================================================================== C -INC PPARAM -INC CCOPTIO -INC CCGEOME -INC SMLREEL -INC SMEVOLL -INC SMLENTI -INC SMLMOTS PARAMETER (NBSTY=7,NBMAR=13,NBTAI=5) CHARACTER*4 MOSTYL(NBSTY),MOMARQ(NBMAR),MOTAIL(NBTAI) DATA MOSTYL/'LIGN','TIRR','TIRC','TIRL','TIRM','POIN','NOLI'/ DATA MOMARQ/'CROI','PLUS','MOIN','BARR','ETOI','CARR', & 'LOSA','ROND','TRID','TRIU','TRIL','TRIR', & 'NOMA'/ DATA MOTAIL/'XS','S','M','L','XL'/ SEGACT MEVOLL WRITE (IOIMP,100) IEVTEX 100 FORMAT (2X,A72) N=IEVOLL(/1) INTERR(1)=MEVOLL INTERR(2)=N MOTERR(1:8)=ITYEVO C DO 1 I=1,N KEVOLL=IEVOLL(I) SEGACT KEVOLL INTERR(1)=I MOTERR(1:4)=NCOUL(NUMEVX) MOTERR(5:17)=MOSTYL(LSTYL)//' '//MOMARQ(MMARQ)//' '//MOTAIL(KTAIL)(1:2) C MOTERR(9:12)=MOMARQ(MMARQ) C MOTERR(13:14)=MOTAIL(KTAIL)(1:2) WRITE (IOIMP,100) KEVTEX MOTERR(1:12)= NOMEVX MOTERR(1:4)=NUMEVY MOTERR(5:16)=NOMEVY IF(TYPX.EQ.'LISTREEL')THEN MLREEL=IPROGX SEGACT MLREEL npi=npas if(jentet.eq.1) npi=min(npi,10) INTERR(1)=NPAS IF(TYPY.EQ.'LISTREEL') THEN MLREE2=IPROGY SEGACT,MLREE2 C 101 FORMAT(/4(1X,I5,1X,1PE12.5,1X,1PE12.5,1X)) 101 FORMAT(/(3X,I5,3X,1PE12.5,3X,1PE12.5)) SEGDES,MLREE2 ELSEIF(TYPY.EQ.'LISTMOTS') THEN MLMOT2=IPROGY SEGACT,MLMOT2 C 102 FORMAT(/4(1X,I5,1X,1PE12.5,1X,A8,1X)) 102 FORMAT(/(3X,I5,3X,1PE12.5,3X,A24)) SEGDES,MLMOT2 ELSEIF(TYPY.EQ.'LISTENTI') THEN MLENT2=IPROGY SEGACT,MLENT2 C 103 FORMAT(/4(1X,I5,1X,1PE12.5,1X,A8,1X)) 103 FORMAT(/(3X,I5,3X,1PE12.5,3X,I8)) SEGDES,MLENT2 ENDIF SEGDES,MLREEL ELSEIF(TYPX.EQ.'LISTMOTS') THEN MLMOTS=IPROGX SEGACT MLMOTS npi=npas if(jentet.eq.1) npi=min(npi,10) INTERR(1)=NPAS IF(TYPY.EQ.'LISTREEL') THEN MLREE2=IPROGY SEGACT,MLREE2 C 111 FORMAT(/4(1X,I5,1X,A8,1X,1PE12.5,1X)) 111 FORMAT(/(3X,I5,3X,A24,3X,1PE12.5)) SEGDES,MLREE2 ELSEIF(TYPY.EQ.'LISTMOTS') THEN MLMOT2=IPROGY SEGACT,MLMOT2 C 112 FORMAT(/4(1X,I5,1X,A8,1X,A8,1X)) 112 FORMAT(/(3X,I5,3X,A24,3X,A24)) SEGDES,MLMOT2 ELSEIF(TYPY.EQ.'LISTENTI') THEN MLENT2=IPROGY SEGACT,MLENT2 C 113 FORMAT(/4(1X,I5,1X,A8,1X,A8,1X)) 113 FORMAT(/(3X,I5,3X,A24,3X,I8)) SEGDES,MLENT2 ENDIF SEGDES,MLMOTS ELSEIF(TYPX.EQ.'LISTENTI') THEN MLENTI=IPROGX SEGACT MLENTI NPAS=LECT(/1) npi=npas if(jentet.eq.1) npi=min(npi,10) INTERR(1)=NPAS IF(TYPY.EQ.'LISTREEL') THEN MLREE2=IPROGY SEGACT,MLREE2 C 121 FORMAT(/4(1X,I5,1X,A8,1X,1PE12.5,1X)) 121 FORMAT(/(3X,I5,3X,I8,3X,1PE12.5)) SEGDES,MLREE2 ELSEIF(TYPY.EQ.'LISTMOTS') THEN MLMOT2=IPROGY SEGACT MLMOT2 C 122 FORMAT(/4(1X,I5,1X,A8,1X,A8,1X)) 122 FORMAT(/(3X,I5,3X,I8,3X,A24)) SEGDES,MLMOT2 ELSEIF(TYPY.EQ.'LISTENTI') THEN MLENT2=IPROGY SEGACT,MLENT2 WRITE(IOIMP,123)(J,LECT(J),MLENT2.LECT(J),J=1,NPi) C 123 FORMAT(/4(1X,I5,1X,A8,1X,A8,1X)) 123 FORMAT(/(3X,I5,3X,I8,3X,I8)) SEGDES,MLENT2 ENDIF SEGDES,MLENTI ENDIF SEGDES KEVOLL 1 CONTINUE SEGDES MEVOLL C RETURN END
© Cast3M 2003 - Tous droits réservés.
Mentions légales