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

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