1 : C RIGI SOURCE FANDEUR 11/07/19 21:17:19 7039 2 : 3 : *---------------------------------------------------------------------* 4 : * __________________________ * 5 : * | | * 6 : * | OPERATEUR RIGIDITE | * 7 : * |________________________| * 8 : * * 9 : *---------------------------------------------------------------------* 10 : * * 11 : * NOUVELLE SYNTAXE : * 12 : * __________________ * 13 : * * 14 : * * 15 : * RIG1 = RIGI MOD1 | CAR1 ; * 16 : * | HOO1 ( CAR1 ) ; * 17 : * * 18 : * ENTREES : * 19 : * * 20 : * MOD1 OBJET MODELE * 21 : * CAR1 CHAMELEM DE CARACTERISTIQUES * 22 : * GEOMETRIQUES ET MATERIELLES * 23 : * * 24 : * EVENTUELLEMENT, * 25 : * * 26 : * HOO1 CHAMELEM REPRESENTANT UNE MATRICE DE HOOKE * 27 : * * 28 : * * 29 : * CHRISTIAN LE BRETON , DECEMBRE 1989 * 30 : * CONVERSION AU NOUVEAU CHAMELEM I. MONNIER AVRIL 90 * 31 : * * 32 : * * 33 : * ANALYSE MODALE : * 34 : * ________________ * 35 : * * 36 : * SYNTAXES POSSIBLES : RIG2 = RIGI M ; * 37 : * RIG3 = RIGI P S ; * 38 : * RIG4 = RIGI M P S ; * 39 : * RIG5 = RIGI B ; * 40 : * RIG6 = RIGI A ; * 41 : * * 42 : * M : OBJET SOLUTION DE SOUS TYPE MODE * 43 : * P : OBJET SOLUTION DE SOUS TYPE SOLU STAT * 44 : * S : OBJET STRUCTURE * 45 : * B : OBJET BASE MODALE * 46 : * A : OBJET ATTACHE * 47 : * * 48 : * RIG2 : RIGIDITE DUE AUX MODES SEULS ( KN ) * 49 : * RIG3 : RIGIDITE DUE AU COUPLAGE DES SOLUTIONS STATIQUES * 50 : * SUR UNE STRUCTURE . * 51 : * RIG4 : RIGIDITE DUE AU COUPLAGE DES SOLUTIONS STATIQUES * 52 : * ET DES MODES . * 53 : * RIG5 : CALCUL AUTOMATIQUE DE RIG2, RIG3 ET RIG4. * 54 : * RIG6 : RIGIDITE DUE AUX LIAISONS MIXTES * 55 : * * 56 : *---------------------------------------------------------------------* 57 : * 58 : SUBROUTINE RIGI 59 : * 60 : IMPLICIT INTEGER(I-N) 61 : IMPLICIT REAL*8(A-H,O-Z) 62 : * * 63 : -INC CCOPTIO 64 : * 65 : CHARACTER*4 CMOT 66 : 67 : * -------------------------------------------------* 68 : * ON RECUPERE EVENTUELLEMENT UN OBJET MODELE 69 : * -------------------------------------------------* 70 : IPMODL = 0 70 : CALL LIROBJ('MMODEL',IPMODL,0,IRET) 71 : IF (IERR.NE.0) RETURN 72 : IF (IRET.EQ.0) GO TO 700 73 : C 74 : IPCHE1 = 0 75 : IPCHE2 = 0 76 : IPCHA1 = 0 77 : IPCHA2 = 0 78 : * 79 : * ON LIT UN 1-ER MCHAML 80 : * 80 : CALL LIROBJ('MCHAML',IPCHA1,1,IRET1) 81 : IF (IERR.NE.0) RETURN 82 : * 83 : * ON LIT EVENTUELLEMENT UN 2EME MCHAML 84 : * 84 : CALL LIROBJ('MCHAML',IPCHA2,0,IRET1) 85 : IF (IERR.NE.0) RETURN 86 : * 87 : * RANGEMENT DES POINTEURS : 'CARACTERISTIQUES' DANS IPCHE1 88 : * 'MATRICE DE HOOKE' DANS IPCHE2 89 : * 89 : CALL RNGCHA(IPCHA1,IPCHA2,'CARACTERISTIQUES','MATRICE DE HOOKE', 90 : 1 IPCHE1,IPCHE2) 91 : IF (IERR.NE.0) RETURN 92 : * 93 : IF (IPCHE2.NE.0) THEN 94 : IMAT = 2 95 : ELSE IF (IPCHE1.NE.0) THEN 96 : IMAT = 1 97 : ELSE 98 : IPCHE1=IPCHA1 99 : IMAT = 1 100 : ENDIF 101 : * 102 : * APPEL AU CALCUL DES RIGIDITES ELEMENTAIRES 103 : * 103 : CALL RIGI1(IPMODL,IPCHE1,IPCHE2,IMAT,IPOI6,IRET) 104 : * 104 : IF (IRET.EQ.1) CALL ECROBJ('RIGIDITE',IPOI6) 105 : RETURN 106 : C 107 : C -------------------------------------------------* 108 : C **** RAIDEURS ADDITIONNELLLES 109 : C -------------------------------------------------* 110 : 700 CONTINUE 110 : CALL LIRCHA(CMOT,0,IRET) 111 : IF (IERR.NE.0) RETURN 112 : IF (IRET.EQ.0) GOTO 800 113 : * 113 : CALL REFUS 113 : CALL APPUI(1) 114 : RETURN 115 : C 116 : C -------------------------------------------------* 117 : C **** ANALYSE MODALE 118 : C -------------------------------------------------* 119 : 800 CONTINUE 119 : CALL RIGIMO 120 : RETURN 121 : * 122 : END 123 : 124 :
© Cast3M 2003 - All rights reserved.
Disclaimer