Télécharger la plaquette Cast3M


fr en

Télécharger cremo1.eso

Retour à la liste

Numérotation des lignes : 

cremo1

  1. C CREMO1    SOURCE    BP208322  15/10/21    21:15:16     8690
  2.       SUBROUTINE CREMO1 (PROPRE,IPVECI,IPKW2M,INF0,NUMODE2,IPMODE)
  3.  
  4. ************************************************************************
  5. *
  6. *                             C R E M O 1
  7. *
  8. *                             -----------
  9. *
  10. * FONCTION:
  11. * ---------
  12. *
  13. *     CREATION DE L'OBJET REPRESENTANT LE MODE PROPRE CALCULE
  14. *     (PARTIE IMAGINAIRE)
  15. *     SP COPIE (CF CREMOD.ESO) ET ADAPTE A LA PARTIE IMAGINAIRE DU MODE
  16. *
  17. *
  18. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE
  19. * -----------
  20. *
  21. *     PROPRE  REEL DP   (E)  TABLEAU DE CARACTERISTIQUES DE LA
  22. *                            PARTIE IMAGINAIRE DU MODE PROPRE CALCULE:
  23. *                            PROPRE(6) = FREQUENCE PROPRE,
  24. *                            PROPRE(7) = MASSE GENERALISEE,
  25. *                          PROPRE(8,9 ET 10) = DEPLACEMENTS GENERALISES
  26. *     IPVECI  ENTIER    (E)  POINTEUR DU 'CHPOINT' PROPRE.
  27. *     IPKW2M  ENTIER    (E)  POINTEUR DE LA 'RIGIDITE' "DECALEE" QUI A
  28. *                            SERVI AU CALCUL DU MODE PROPRE.
  29. *     INF0    ENTIER    (E)  NOMBRE DE TERMES DIAGONAUX NEGATIFS DE LA
  30. *                            'RIGIDITE' "K" NON "DECALEE" LORSQU'ELLE
  31. *                            EST DECOMPOSEE EN LT.D.L.(il est nul.On
  32. *                             l'a laissé parce qu'on est paresseux)
  33. *     FREQ    REEL DP   (E)  FREQUENCE QUI A ETE UTILISEE POUR LE
  34. *                            DECALAGE DE LA 'RIGIDITE' "K".
  35. *
  36. *     NUMODE2 ENTIER   (E)   TERME CORRECTIF DANS LE CAS DES ITERATIONS
  37. *                            SIMULTANEES,POUR CALCULER LE NUMERO DU MODE
  38. *                            (dans les iterations simples numode2=0)
  39. *     IPMODE  ENTIER    (S)  POINTEUR DE L'OBJET 'SOLUTION' REPRESENTANT
  40. *                            LE MODE PROPRE.
  41. *
  42. * SOUS-PROGRAMMES APPELES:
  43. * ------------------------
  44. *
  45. *     MANUSO
  46. *
  47. * AUTEUR, DATE DE CREATION:
  48. * -------------------------
  49. *
  50. *     PASCAL BOUDA      10 JUILLET 2015
  51. *
  52. * LANGAGE:
  53. * --------
  54. *
  55. *     FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS.
  56. *
  57. ************************************************************************
  58.       IMPLICIT INTEGER(I-N)
  59.       IMPLICIT REAL*8 (A-H,O-Z)
  60.  
  61.  
  62. -INC PPARAM
  63. -INC CCOPTIO
  64.  
  65.  
  66.       REAL*8 PROPRE(*),FREQ,GDEPL1,GDEPL2,GDEPL3,FREQPP,GMASSE
  67.  
  68.       CALL MANUSO('MODE    ',NUMODE2,PROPRE(6),PROPRE(7),PROPRE(8)
  69.      & ,PROPRE(9),PROPRE(10),IPVECI,0,0,IPMODE)
  70.  
  71.       IF (IERR .NE. 0) RETURN
  72.       ICODE = 1
  73. *     CALL LIROBJ ('SOLUTION',IPMODE,ICODE,IRETOU)
  74. *     IF (IERR .NE. 0) RETURN
  75. *
  76.       END
  77.  
  78.  
  79.  
  80.  

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