1 : C HOOKE SOURCE CHAT 06/08/24 21:41:48 5529
2 : SUBROUTINE HOOKE
3 : C_______________________________________________________________________
4 : C
5 : C Op{rateur de cr{ation d'un MCHAML de matrice de HOOKE
6 : C
7 : C Nouvelle syntaxe:
8 : C _________________
9 : C
10 : C HO1=HOOKE MOD1 CAR1 ( VA1 ) ;
11 : C
12 : C MOD1 Pointeur sur un MMODEL
13 : C CAR1 Pointeur sur un MCHAML de caract{ristiques
14 : C VA1 Pointeur sur un MCHAML de variables internes(facultatif)
15 : C HO1 Pointeur sur un MCHAML de MATRICE DE HOOKE
16 : C
17 : C
18 : C CODE L.EBERSOLT MAI 84
19 : C
20 : C Passage aux nouveaux CHAMELEMs par I.Monnier le 15.06.90
21 : C
22 : C_______________________________________________________________________
23 : C
24 : IMPLICIT INTEGER(I-N)
25 : -INC CCOPTIO
26 : C
27 : CHARACTER*4 MOREFE(1)
28 : DATA MOREFE/'REFE'/
29 : IPCHE1=0
30 : IPCHE2=0
31 : *
32 : * LECTURE DU MOT REFE EVENTUELLEMENT
33 : *
33 : CALL LIRMOT(MOREFE,1,LASURF,0)
34 : IF (IERR.NE.0) RETURN
35 : C
36 : C LECTURE DU MODELE
37 : C
37 : CALL LIROBJ('MMODEL',IPMODL,0,IRT1)
38 : IF (IERR.NE.0) RETURN
39 : C
40 : C LECTURE DU MCHAML DE CARACTERISTIQUES GEOMETRIQUES ET MATERIELLE
41 : C
41 : CALL LIROBJ('MCHAML',IPCHE1,1,IRT1)
42 : IF (IERR.NE.0) RETURN
43 : IF(IRT1.EQ.0) GOTO 666
44 : C
45 : C LECTURE DU MCHAML DE VARIABLES INTERNES
46 : C
46 : CALL LIROBJ('MCHAML',IPCHE2,0,IRT2)
47 : IF (IERR.NE.0) RETURN
48 : C
49 : C CALCUL DE LA MATRICE DE HOOKE
50 : C
50 : CALL HOOK2P(IPMODL,IPCHE1,IPCHE2,LASURF,IPCHOO,IRT1)
51 : IF(IRT1.EQ.0) GOTO 666
52 : C
53 : C ECRITURE DU RESULTAT
54 : C
54 : CALL ECROBJ('MCHAML',IPCHOO)
55 : 666 CONTINUE
56 : RETURN
57 : END
58 :
59 :
© Cast3M 2003 - All rights reserved.
Disclaimer