Télécharger manuso.eso

Retour à la liste

Numérotation des lignes :

  1. C MANUSO SOURCE FANDEUR 10/12/14 21:18:06 6812
  2. SUBROUTINE MANUSO(SOUSTY,NUME,XFREQ,XMN,Q1,Q2,Q3,ICHPT,ICHEL,
  3. & IJONCT,ISOL)
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8(A-H,O-Z)
  6. ************************************************************************
  7. *
  8. * M A N U S O
  9. * -----------
  10. *
  11. * FONCTION:
  12. * ---------
  13. *
  14. * CREE UN OBJET SOLUTION DE SOUS-TYPE SOUSTY.
  15. *
  16. * MODULES UTILISES:
  17. * -----------------
  18. *
  19. -INC CCOPTIO
  20. -INC SMCHPOI
  21. -INC SMELEME
  22. -INC SMSOLUT
  23. *
  24. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  25. * -----------
  26. *
  27. * SOUSTY (E) SOUS-TYPE DE L'OBJET SOLUTION :
  28. * MODE,SOLUSTAT,DYNAMIQU.
  29. * NUME (E) NUMERO DU MODE.
  30. * XFREQ (E) FREQUENCE.
  31. * XMN (E) MASSE GENERALISEE.
  32. * Q1 (E) DEPLACEMENT GENERALISE.
  33. * Q2 (E) DEPLACEMENT GENERALISE.
  34. * Q3 (E) DEPLACEMENT GENERALISE.
  35. * ICHPT (E) POINTEUR SUR LE CHAMP DE DEPLACEMENTS.
  36. * ICHEL (E) POINTEUR SUR LE CHAMP DE CONTRAINTES.
  37. * IJONCT (E) POINTEUR SUR LE MJONCT
  38. * ISOL (S) POINTEUR SUR L'OBJET SOLUTION.
  39. *
  40. *
  41. CHARACTER*8 SOUSTY
  42. *
  43. * MODE DE FONCTIONNEMENT:
  44. *------------------------
  45. *
  46. * ON SUPPOSE QUE LE PROGRAMME APPELANT A VERIFIE QUE LE
  47. * MOT-CLE "SOUSTY" SOIT CORRECT.
  48. *
  49. *
  50. * AUTEUR, DATE DE CREATION:
  51. * -------------------------
  52. *
  53. * LIONEL VIVAN JUILLET 1988
  54. *
  55. * LANGAGE:
  56. * --------
  57. *
  58. * ESOPE + FORTRAN77
  59. *
  60. ************************************************************************
  61. *
  62. LVALM = 5
  63. NIMOD = 3
  64. N = 1
  65. NIPO = 10
  66. SEGINI MSOLUT
  67. ISOL = MSOLUT
  68. DO 10 I = 1,NIPO
  69. MSOLIT(I) = 0
  70. MSOLIS(I) = 0
  71. 10 CONTINUE
  72. SEGINI MMODE
  73. MSOLIS(4) = MMODE
  74. IMMODD(1) = NUME
  75. FMMODD(1) = XFREQ
  76. FMMODD(2) = XMN
  77. FMMODD(3) = Q1
  78. FMMODD(4) = Q2
  79. FMMODD(5) = Q3
  80. MSOLIS(5) = ICHPT
  81. IF (ICHEL.NE.0) THEN
  82. MSOLIS(6) = ICHEL
  83. ENDIF
  84. IF (IJONCT.NE.0) THEN
  85. MSOLIS(10) = IJONCT
  86. ENDIF
  87. *
  88. MCHPOI = MSOLIS(5)
  89. SEGACT MCHPOI
  90. IF (IFOPOI.NE.1) GOTO 20
  91. ICHPOI=MCHPOI
  92. CALL NUHARM(ICHPOI,IFO,IHARM)
  93. MCHPOI=ICHPOI
  94. IF (IFO.NE.1) THEN
  95. IMMODD(2)=0
  96. IMMODD(3)=0
  97. ELSE
  98. IMMODD(2)=IHARM
  99. IF(IHARM.LT.0)IMMODD(3)=1
  100. IF(IHARM.GE.0)IMMODD(3)=2
  101. ENDIF
  102. 20 CONTINUE
  103. SEGDES MCHPOI
  104. SEGDES MMODE
  105. ITYSOL = SOUSTY
  106. *
  107. * **** ON CREE LE NOEUD NBNO+1 QUI VA ETRE ASSOCIE AU MODE.
  108. * **** ON MET CE NOEUD A L ORIGINE. IL VA SERVIR D INDICE AU MODE
  109. *
  110. ZERO = 0.D0
  111. CALL CREPO1(ZERO,ZERO,ZERO,IPOIN)
  112. NBSOUS = 0
  113. NBREF = 0
  114. NBNN = 1
  115. NBELEM = 1
  116. SEGINI MELEME
  117. NUM(1,1) = IPOIN
  118. ITYPEL = 1
  119. SEGDES MELEME
  120. MSOLIS(3) = MELEME
  121. *
  122. SEGINI MSOLEN
  123. ISOLEN(1) = MSOLIS(4)
  124. SEGDES MSOLEN
  125. MSOLIS(4) = MSOLEN
  126. *
  127. SEGINI MSOLEN
  128. ISOLEN(1) = MSOLIS(5)
  129. SEGDES MSOLEN
  130. MSOLIS(5) = MSOLEN
  131. MSOLIT(5) = 2
  132. *
  133. IF (MSOLIS(6) .NE. 0) THEN
  134. SEGINI MSOLEN
  135. ISOLEN(1) = MSOLIS(6)
  136. SEGDES MSOLEN
  137. MSOLIS(6) = MSOLEN
  138. MSOLIT(6) = 5
  139. ENDIF
  140. *
  141. IF (MSOLIS(10) .NE. 0) THEN
  142. SEGINI MSOLEN
  143. ISOLEN(1) = MSOLIS(10)
  144. SEGDES MSOLEN
  145. MSOLIS(10) = MSOLEN
  146. MSOLIT(10) = 14
  147. ENDIF
  148. *
  149. SEGDES MSOLUT
  150. *
  151. RETURN
  152. END
  153.  
  154.  
  155.  

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