Télécharger cremo1.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  62.  
  63.  
  64. REAL*8 PROPRE(*),FREQ,GDEPL1,GDEPL2,GDEPL3,FREQPP,GMASSE
  65.  
  66. CALL MANUSO('MODE ',NUMODE2,PROPRE(6),PROPRE(7),PROPRE(8)
  67. & ,PROPRE(9),PROPRE(10),IPVECI,0,0,IPMODE)
  68.  
  69. IF (IERR .NE. 0) RETURN
  70. ICODE = 1
  71. * CALL LIROBJ ('SOLUTION',IPMODE,ICODE,IRETOU)
  72. * IF (IERR .NE. 0) RETURN
  73. *
  74. END
  75.  
  76.  
  77.  
  78.  

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