Télécharger ecmode.eso

Retour à la liste

Numérotation des lignes :

  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.  
  42.  

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