1 : C ECMODE SOURCE CHAT 05/01/12 23:24:24 5004 2 : SUBROUTINE ECMODE(MSOLUT) 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8(A-H,O-Z) 5 : C======================================================================= 6 : C ECRITURE D UN OBJET SOLUTION (MODE) : ON N'ECRIT QUE L'EN-TETE 7 : C 8 : C ECRIT PAR FARVACQUE MAI 1986 9 : C 10 : C======================================================================= 11 : -INC CCOPTIO 12 : -INC SMSOLUT 13 : -INC SMELEME 14 : C 15 : SEGACT MSOLUT 16 : MELEME=MSOLIS(3) 17 : SEGACT MELEME 18 : NNN=NUM(/2) 19 : MSOLEN=MSOLIS(4) 20 : SEGACT MSOLEN 21 : C 22 : DO 1101 INNN=1,NNN 23 : WRITE(IOIMP,1199) INNN 24 : 1199 FORMAT(//,' ***** MODE DE RANG',I5,' DANS L''OBJET SOLUTION:') 25 : MMODE=ISOLEN(INNN) 26 : SEGACT MMODE 27 : WRITE(IOIMP,1196) IMMODD(1),NUM(1,INNN) 28 : 1196 FORMAT(' A CE MODE NUMERO',I5,' ON A AFFECTE LE POINT',I5) 29 : WRITE(IOIMP,1198)(FMMODD(I),I=1,FMMODD(/1)) 30 : 1198 FORMAT(' FREQUENCE: ',1PE12.5,' MASSE GENERALISEE: ', 31 : 1 1PE12.5 / ' QX=',1PE12.5,' QY=',1PE12.5,' QZ=',1PE12.5) 32 : SEGDES MMODE 33 : 1101 CONTINUE 34 : C 35 : WRITE(IOIMP,1197) 36 : 1197 FORMAT(////) 37 : SEGDES MELEME,MSOLEN 38 : SEGDES MSOLUT 39 : RETURN 40 : END 41 :
© Cast3M 2003 - All rights reserved.
Disclaimer