Télécharger la plaquette Cast3M


fr en

Télécharger ecmode.eso

Retour à la liste

Numérotation des lignes : 

ecmode

  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.  
  12. -INC PPARAM
  13. -INC CCOPTIO
  14. -INC SMSOLUT
  15. -INC SMELEME
  16. C
  17.       SEGACT MSOLUT
  18.       MELEME=MSOLIS(3)
  19.       SEGACT MELEME
  20.       NNN=NUM(/2)
  21.       MSOLEN=MSOLIS(4)
  22.       SEGACT MSOLEN
  23. C
  24.       DO 1101 INNN=1,NNN
  25.       WRITE(IOIMP,1199) INNN
  26.  1199 FORMAT(//,'  ***** MODE DE RANG',I5,'  DANS L''OBJET SOLUTION:')
  27.       MMODE=ISOLEN(INNN)
  28.       SEGACT MMODE
  29.       WRITE(IOIMP,1196) IMMODD(1),NUM(1,INNN)
  30.  1196 FORMAT('       A CE MODE NUMERO',I5,'  ON A AFFECTE LE POINT',I5)
  31.       WRITE(IOIMP,1198)(FMMODD(I),I=1,FMMODD(/1))
  32.  1198 FORMAT('       FREQUENCE: ',1PE12.5,' MASSE GENERALISEE: ',
  33.      1 1PE12.5 / '       QX=',1PE12.5,' QY=',1PE12.5,' QZ=',1PE12.5)
  34.       SEGDES MMODE
  35.  1101 CONTINUE
  36. C
  37.       WRITE(IOIMP,1197)
  38.  1197 FORMAT(////)
  39.       SEGDES MELEME,MSOLEN
  40.       SEGDES MSOLUT
  41.       RETURN
  42.       END
  43.  
  44.  

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