1 : C KOPSID SOURCE GOUNAND 11/05/24 21:15:38 6976
2 : SUBROUTINE KOPSID
3 : C
4 : C************************************************************************
5 : C
6 : C PROJET : CASTEM 2000
7 : C
8 : C NOM : KOPSID
9 : C
10 : C DESCRIPTION : Cette subroutine cree la matrice identité
11 : C sous la forme des objets elementaires de type
12 : C MATRIK
13 : C
14 : C LANGAGE : FORTRAN 77 + ESOPE 2000 (avec extensions CISI)
15 : C
16 : C AUTEUR : A. BECCANTINI, DRN/DMT/SEMT/TTMF
17 : C S. GOUNAND
18 : C************************************************************************
19 : C
20 : C
21 : C APPELES (Outils) :
22 : C
23 : C APPELES (Calcul) :
24 : C
25 : C
26 : C************************************************************************
27 : C
28 : C PHRASE D'APPELLE GIBIANE
29 : C
30 : C MAT1 = 'KOPS' 'MATIDE' LMOT1 GEO1 ('MATRIK') ;
31 : C
32 : C ENTREES : LMOT1 : objet de type LISTMOTS des variables primales (et
33 : C duales)
34 : C
35 : C GEO1 : objet de type MAILLAGE, des variables primales
36 : C (et duales)
37 : C
38 : C SORTIES: MAT1 : objet de type RIGIDITE ou MATRIK,
39 : C qui contient la matrice identité
40 : C Mis à jour le 18/05/2011
41 : C************************************************************************
42 : C
43 : C HISTORIQUE (Anomalies et modifications éventuelles)
44 : C
45 : C HISTORIQUE : Cree le 23-8-2000
46 : C
47 : C************************************************************************
48 : C
49 : C**** Les includes
50 : C
51 : IMPLICIT REAL*8 (A-H,O-Z)
52 : IMPLICIT INTEGER(I-N)
53 : -INC CCOPTIO
54 : C
55 : CHARACTER*6 MOT(1)
56 : CHARACTER*8 MTYP
57 : DATA MOT/'MATRIK'/
58 : C
58 : CALL QUETYP(MTYP,0,IRET)
59 : IF(IRET.EQ.0)THEN
60 : MOTERR(1:8) = 'LISTMOTS'
61 : C
62 : C******* Message d'erreur
63 : C 37 2
64 : C On ne trouve pas d'objet de type %m1:8
65 : C
65 : CALL ERREUR(37)
66 : GOTO 9999
67 : ELSEIF(MTYP .EQ. 'LISTMOTS')THEN
67 : CALL LIROBJ('LISTMOTS',LPRIM,1,IRET)
68 : ELSE
69 : MOTERR(1:8) = 'LISTMOTS'
70 : C
71 : C******* Message d'erreur
72 : C 37 2
73 : C On ne trouve pas d'objet de type %m1:8
74 : C
74 : CALL ERREUR(37)
75 : GOTO 9999
76 : ENDIF
77 : C
77 : CALL QUETYP(MTYP,0,IRET)
78 : IF(IRET.EQ.0)THEN
79 : MOTERR(1:8) = 'MAILLAGE'
80 : C
81 : C******* Message d'erreur
82 : C 37 2
83 : C On ne trouve pas d'objet de type %m1:8
84 : C
84 : CALL ERREUR(37)
85 : GOTO 9999
86 : ELSEIF(MTYP .EQ. 'MAILLAGE')THEN
86 : CALL LIROBJ('MAILLAGE',IGEOM,1,IRET)
87 : ELSE
88 : MOTERR(1:8) = 'MAILLAGE'
89 : C
90 : C******* Message d'erreur
91 : C 37 2
92 : C On ne trouve pas d'objet de type %m1:8
93 : C
93 : CALL ERREUR(37)
94 : GOTO 9999
95 : ENDIF
96 : *
96 : CALL LIRMOT(MOT,1,IRAN,0)
97 : IF (IRAN.EQ.1) THEN
97 : CALL KOPIDK(IGEOM,LPRIM,MATRIK)
98 : IF (IERR.NE.0) GOTO 9999
98 : CALL ECROBJ('MATRIK',MATRIK)
99 : ELSE
99 : CALL KOPIDR(IGEOM,LPRIM,MRIGID)
100 : IF (IERR.NE.0) GOTO 9999
100 : CALL ECROBJ('RIGIDITE',MRIGID)
101 : ENDIF
102 : C
103 : 9999 RETURN
104 : END
105 :
106 :
107 :
108 :
109 :
110 :
111 :
112 :
113 :
114 :
115 :
116 :
© Cast3M 2003 - All rights reserved.
Disclaimer