Télécharger la plaquette Cast3M


fr en

Télécharger simul6.eso

Retour à la liste

Numérotation des lignes : 

simul6

  1. C SIMUL6    SOURCE    CB215821  20/11/25    13:39:53     10792          
  2.       SUBROUTINE SIMUL6 (FREQPP,IPVECP,IPSOLU)
  3. ************************************************************************
  4. *
  5. *                             S I M U L 6
  6. *                             -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. *     CREATION OU COMPLETION DE L'OBJET "SOLUTION" REPRESENTANT LES
  12. *     MODES PROPRES CALCULES.
  13. *     (VIBRATIONS - OPTION SIMULTANE)
  14. *
  15. * MODE D'APPEL:
  16. * -------------
  17. *
  18. *     CALL SIMUL6 (FREQPP,IPVECP,IPSOLU)
  19. *
  20. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE
  21. * -----------
  22. *
  23. *     FREPP   REEL DP   (E)  FREQUENCE PROPRE DU DERNIER MODE CALCULE.
  24. *     IPVECP  ENTIER    (E)  POINTEUR DU DERNIER VECTEUR PROPRE CALCULE.
  25. *                       (S)  VECTEUR NORMALISE (PLUS GRANDE VALEUR MISE
  26. *                            A 1).
  27. *     IPSOLU  ENTIER    (E)  POINTEUR SUR L'OBJET "SOLUTION".
  28. *                            = 0  SI CET OBJET N'EST PAS ENCORE CREE.
  29. *                       (S)  OBJET COMPLETE AVEC LE DERNIER MODE PROPRE
  30. *                            CALCULE.
  31. *
  32. * SOUS-PROGRAMMES APPELES:
  33. * ------------------------
  34. *
  35. *     DTCHPO, ECROBJ, ECSOLU, FUSOLU, LIROBJ, MANUMO, MOTS1, NORMA1.
  36. *
  37. * AUTEUR, DATE DE CREATION:
  38. * -------------------------
  39. *
  40. *     PASCAL MANIGOT     03 JUIN 1985
  41. *
  42. * LANGAGE:
  43. * --------
  44. *
  45. *     FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS.
  46. *
  47. ************************************************************************
  48. *
  49.       IMPLICIT INTEGER(I-N)
  50.  
  51. -INC PPARAM
  52. -INC CCOPTIO
  53. -INC SMCHPOI
  54. *
  55.       REAL*8 FREQPP
  56.       CHARACTER*(LOCOMP) MOTCLE
  57. *
  58. *     NORMALISATION
  59. *
  60.       CALL MOTS1 (IPLMOT,MOTCLE)
  61.       CALL NORMA1 (IPVECP,IPLMOT,MOTCLE,  IPVEC1)
  62.       IF (IERR .NE. 0) RETURN
  63.       CALL DTCHPO (IPVECP)
  64.       IPVECP = IPVEC1
  65. *
  66. *     ON ATTRIBUT UNE NATURE DIFFUSE A PRIORI
  67. * "les chpo contenus dans les objets de type solution sont diffus" [ENPAPF.eso]
  68. *
  69.       MCHPOI=IPVECP
  70.       segact,MCHPOI*mod
  71.       JATTRI(1)=1
  72.       segdes,MCHPOI
  73. *
  74. *     LES VALEURS DE MASSES GEN. ET DEP.GEN. NUM. DE MODE
  75. *     SERONT CALCULEES DANS SIMUL7
  76. *
  77.       CALL MANUSO('MODE    ',0,FREQPP,0.D0,0.D0,0.D0,0.D0,IPVECP,
  78.      &0,0,IPMODE)
  79. *
  80. *
  81. *     AJOUT A L'ENSEMBLE DES MODES DEJA TROUVES:
  82.       IF (IPSOLU .EQ. 0) THEN
  83.          IPSOLU = IPMODE
  84.       ELSE
  85.          CALL FUSOLU (IPSOLU,IPMODE,  IPSOL1)
  86.          CALL DESOLU (IPMODE)
  87.          CALL DESOLU (IPSOLU)
  88.          IPSOLU = IPSOL1
  89.       END IF
  90. *
  91.       END
  92.  
  93.  
  94.  
  95.  

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