Esope source files

   1 : C SIMULT    SOURCE    CHAT      05/01/13    03:19:41     5004           
   2 :       SUBROUTINE SIMULT(IPMASS,IPSOLU,IPRIG1,IPRIG2,LIMAGE,FREQ,NN)
   3 : ************************************************************************
   4 : *
   5 : *                             S I M U L T
   6 : *                             -----------
   7 : *
   8 : *     SOUS-PROGRAMME ASSOCIE A L'OPTION "SIMULTANE" DE L'OPERATEUR
   9 : *     "VIBRATION".
  10 : *
  11 : * FONCTION:
  12 : * ---------
  13 : *
  14 : *     DETERMINER UNE SERIE DE MODES PROPRES DONT LES FREQUENCES SONT
  15 : *     VOISINES D'UNE VALEUR DONNEE.
  16 : *
  17 : * PHRASE D'APPEL (EN GIBIANE):
  18 : * ----------------------------
  19 : *
  20 : *     MODES = VIBRATION SIMULTANE FREQ NN MAT_K MAT_M ;
  21 : *
  22 : * OPERANDES ET RESULTATS:
  23 : * -----------------------
  24 : *
  25 : *     FREQ      'FLOTTANT'  VALEUR QUE LES FREQUENCES PROPRES DEVRONT
  26 : *                           AVOISINER.
  27 : *     NN        'ENTIER  '  NOMBRE DE MODES DEMANDES.
  28 : *     MAT_K     'RIGIDITE'  MATRICE DE RIGIDITE (SOUS-TYPE 'RIGIDITE').
  29 : *     MAT_M     'RIGIDITE'  MATRICE MASSE (SOUS-TYPE 'MASSE').
  30 : *     MODES     'SOLUTION'  ENSEMBLE DES MODES PROPRES CALCULES.
  31 : *
  32 : * LEXIQUE: (ORDRE ALPHABETIQUE)
  33 : * --------
  34 : *
  35 : *     IPMASS  ENTIER    POINTEUR DE L'OBJET "MAT_M".
  36 : *     IPRIGI  ENTIER    POINTEUR DE L'OBJET "MAT_K".
  37 : *     IPSOLU  ENTIER    POINTEUR DE L'OBJET "MODES".
  38 : *
  39 : * AUTEUR, DATE DE CREATION:
  40 : * -------------------------
  41 : *
  42 : *     PASCAL MANIGOT     04 AVRIL 1985
  43 : *
  44 : * LANGAGE:
  45 : * --------
  46 : *
  47 : *     FORTRAN77
  48 : *
  49 : ************************************************************************
  50 : *
  51 :       IMPLICIT INTEGER(I-N)
  52 : -INC CCOPTIO
  53 : *
  54 :       REAL*8 FREQ
  55 :       LOGICAL  LIMAGE
  56 :  
  57 :        IF(NN.LT.1) NN=1
  58 :  
  59 :        IF(FREQ.LT.0.D0.AND.(.NOT.LIMAGE)) FREQ= 0.D0
  60 :  
  61 : *
  62 : *     VERIFICATION DES SOUS-TYPES DES 'RIGIDITE':
  62 :       CALL WHICH1 (IPRIG1,IPRIG2,  IPRIGI,IPMASS)
  63 :       IF (IERR .NE. 0) RETURN
  64 : *
  65 : *     -- DETERMINATION DES MODES PROPRES --
  66 : *
  66 :       CALL SIMUL1 (FREQ,NN,IPRIGI,IPMASS,  IPSOLU, LIMAGE)
  67 :       IF (IERR .NE. 0) RETURN
  68 : *
  69 : *
  70 :       END
  71 :  
  72 :