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 99 : CALL ERREUR (NUMERR) 100 : ENDIF 101 : IF(FRESUP.LT.XMINIM)THEN 102 : REAERR(1) = XMINIM 103 : REAERR(2) = FRESUP 104 : NUMERR = 191 104 : CALL ERREUR (NUMERR) 105 : ENDIF 106 : IF (IERR .NE. 0) RETURN 107 : ENDIF 108 : ** 109 : * VERIFICATION DES SOUS-TYPES DES 'RIGIDITE': 109 : CALL WHICH1 (IPRIG1,IPRIG2,IPRIGI,IPMASS) 110 : IF (IERR .NE. 0) RETURN 111 : * 112 : * -- DETERMINATION DES MODES PROPRES -- 113 : * 113 : CALL INTVA1 (FREINF,FRESUP,IPRIGI,IPMASS,MOPTIO,NBFREQ,IPSOLU, 114 : . LIMAGE,LMULT) 115 : * 116 : * 117 : END 118 :
© Cast3M 2003 - All rights reserved.
Disclaimer