Télécharger intval.eso

Retour à la liste

Numérotation des lignes :

  1. C INTVAL SOURCE CHAT 05/01/13 00:42:00 5004
  2. SUBROUTINE INTVAL(IPMASS,IPSOLU,FREINF,FRESUP,IBASS,IHAUT
  3. $ ,LIMAGE,IPRIG1,IPRIG2,LMULT)
  4. ************************************************************************
  5. *
  6. * I N T V A L
  7. * -----------
  8. *
  9. * SOUS-PROGRAMME ASSOCIE A L'OPTION "INTERVALLE" DE L'OPERATEUR
  10. * "VIBRATION".
  11. *
  12. * FONCTION:
  13. * ---------
  14. *
  15. * DETERMINER TOUS LES MODES PROPRES DE FREQUENCES CONTENUES DANS UN
  16. * INTERVALLE DONNE.
  17. *
  18. * PHRASE D'APPEL (EN GIBIANE):
  19. * ----------------------------
  20. *
  21. * |BASSE|
  22. * MODES = VIBRATION INTERVALLE INF SUP (| | NBRE) RIGID MASSE ;
  23. * |HAUTE|
  24. *
  25. * LES PARENTHESES INDIQUANT DES ARGUMENTS FACULTATIFS.
  26. *
  27. * OPERANDES ET RESULTATS:
  28. * -----------------------
  29. *
  30. * INF 'FLOTTANT' BORNE INFERIEURE DE L'INTERVALLE DE
  31. * FREQUENCES.
  32. * SUP 'FLOTTANT' BORNE SUPERIEURE DE L'INTERVALLE DE
  33. * FREQUENCES.
  34. * BASSE 'MOT ' MOT-CLE INDIQUANT QUE L'ON NE VEUT QUE LES
  35. * "NBRE" PLUS BASSES FREQUENCES DANS
  36. * L'INTERVALLE.
  37. * HAUTE 'MOT ' MOT-CLE INDIQUANT QUE L'ON NE VEUT QUE LES
  38. * "NBRE" PLUS HAUTES FREQUENCES DANS
  39. * L'INTERVALLE.
  40. * NBRE 'ENTIER ' NOMBRE LIMITE DE FREQUENCES DEMANDEES DANS
  41. * L'INTERVALLE.
  42. * RIGID 'RIGIDITE' MATRICE DE RIGIDITE (SOUS-TYPE 'RIGIDITE').
  43. * MASSE 'RIGIDITE' MATRICE MASSE (SOUS-TYPE 'MASSE').
  44. * MODES 'SOLUTION' ENSEMBLE DES MODES PROPRES CALCULES.
  45. *
  46. * LEXIQUE: (ORDRE ALPHABETIQUE)
  47. * --------
  48. *
  49. * FREINF REEL DP BORNE INFERIEURE DE L'INTERVALLE DE FREQUENCES.
  50. * FRESUP REEL DP BORNE SUPERIEURE DE L'INTERVALLE DE FREQUENCES.
  51. * IPMASS ENTIER POINTEUR DE L'OBJET "MASSE".
  52. * IPRIGI ENTIER POINTEUR DE L'OBJET "RIGID".
  53. * IPSOLU ENTIER POINTEUR DE L'OBJET "MODES".
  54. * JEVEUX ENTIER NOMBRE DE 'FLOTTANT' QUE JE VEUX LIRE.
  55. * MOPTIO ENTIER CONTIENT LA CHAINE DE CARACTERES 'BASS' OU
  56. * 'HAUT'.
  57. * NBFREQ ENTIER NOMBRE MAXIMUM DE FREQUENCES PROPRES A TROUVER.
  58. *
  59. * AUTEUR, DATE DE CREATION:
  60. * -------------------------
  61. *
  62. * PASCAL MANIGOT 24 DECEMBRE 1984
  63. *
  64. * LANGAGE:
  65. * --------
  66. *
  67. * FORTRAN77 + EXTENSION: DECLARATION REAL*8
  68. *
  69. ************************************************************************
  70. *
  71. IMPLICIT INTEGER(I-N)
  72. -INC CCOPTIO
  73. *
  74. PARAMETER (INFINI = 9999)
  75. REAL*8 XMINIM
  76. PARAMETER (XMINIM = 0.D0)
  77. *
  78. REAL*8 FREINF,FRESUP
  79. *
  80. CHARACTER*(4) MOPTIO
  81. LOGICAL LIMAGE, LMULT
  82.  
  83. IF(IBASS.NE.0) THEN
  84. MOPTIO = 'BASS'
  85. NBFREQ = IBASS
  86. ELSE IF(IHAUT.NE.0) THEN
  87. MOPTIO = 'HAUT'
  88. NBFREQ = IHAUT
  89. ELSE
  90. MOPTIO = 'BASS'
  91. NBFREQ = INFINI
  92. ENDIF
  93. IF(NBFREQ.LT.1) NBFREQ=1
  94.  
  95. IF(.NOT.LIMAGE)THEN
  96. IF(FREINF.LT.XMINIM)THEN
  97. REAERR(1) = XMINIM
  98. REAERR(2) = FREINF
  99. NUMERR = 191
  100. CALL ERREUR (NUMERR)
  101. ENDIF
  102. IF(FRESUP.LT.XMINIM)THEN
  103. REAERR(1) = XMINIM
  104. REAERR(2) = FRESUP
  105. NUMERR = 191
  106. CALL ERREUR (NUMERR)
  107. ENDIF
  108. IF (IERR .NE. 0) RETURN
  109. ENDIF
  110. **
  111. * VERIFICATION DES SOUS-TYPES DES 'RIGIDITE':
  112. CALL WHICH1 (IPRIG1,IPRIG2,IPRIGI,IPMASS)
  113. IF (IERR .NE. 0) RETURN
  114. *
  115. * -- DETERMINATION DES MODES PROPRES --
  116. *
  117. CALL INTVA1 (FREINF,FRESUP,IPRIGI,IPMASS,MOPTIO,NBFREQ,IPSOLU,
  118. . LIMAGE,LMULT)
  119. *
  120. *
  121. END
  122.  
  123.  

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