Télécharger dimen5.eso

Retour à la liste

Numérotation des lignes :

  1. C DIMEN5 SOURCE BP208322 14/12/01 21:15:02 8303
  2. SUBROUTINE DIMEN5(IPOINT,IDIMEN)
  3. C
  4. C EXTRACTION DU NOMBRE DE MODES D'UN OBJET SOLUTION
  5. C
  6. IMPLICIT INTEGER(I-N)
  7. -INC SMSOLUT
  8. -INC SMELEME
  9. C
  10. MSOLUT = IPOINT
  11. SEGACT MSOLUT
  12. NN = MSOLIS(/1)
  13. c bp, 2014-11-27 : petit ajout pour les solutions vides
  14. IF( NN.EQ.0 ) THEN
  15. IDIMEN = 0
  16. SEGDES MSOLUT
  17. RETURN
  18. ENDIF
  19. IF(ITYSOL.NE.'DYNAMIQU') THEN
  20. MELEME = MSOLIS(3)
  21. SEGACT MELEME
  22. IDIMEN = NUM(/2)
  23. SEGDES MELEME
  24. ELSE
  25. MSOLRE = MSOLIS(1)
  26. SEGACT MSOLRE
  27. IDIMEN = SOLRE(/1)
  28. SEGDES MSOLRE
  29. ENDIF
  30. SEGDES MSOLUT
  31. RETURN
  32. END
  33.  
  34.  
  35.  

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