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