1 : C SIGTAB SOURCE FANDEUR 10/12/14 21:19:35 6812
2 : C*AV SUBROUTINE SIGTAB(TYPE,IBAS,IPCHE1,IPCHE2,IMAT,IPMODL)
3 : SUBROUTINE SIGTAB(TYPE,IBAS,IPCHA1,IPCHE1,IPCHE2,ICONV,
4 : 1 IMAT,IPMODL)
5 :
6 : IMPLICIT INTEGER(I-N)
7 : IMPLICIT REAL*8(A-H,O-Z)
8 :
9 : *_____________________________________________________________________
10 : * *
11 : * Calcule les contraintes. *
12 : * *
13 : * Entr{es: *
14 : * ________ *
15 : * *
16 : * TYPE indique le type de la table *
17 : * IBAS table repr{sentant une base modale,ou les pseudo_modes*
18 : * IPCHE1 pointeur sur le MCHAML de CARACTERISTIQUES *
19 : * IPCHE2 pointeur sur le MCHAML de HOOKE *
20 : * IMAT flag de mar{riau *
21 : * IMAT Pointeur sur un MMODEL *
22 : * *
23 : * Sorties: *
24 : * ________ *
25 : * *
26 : * IBAS table repr{sentant une base modale,ou les pseudo_modes*
27 : * *
28 : * Auteur, date de cr{ation: *
29 : * *
30 : * Lionel VIVAN, le 25 avril 1990. *
31 : * *
32 : *--------------------------------------------------------------------*
33 : *
34 : -INC CCOPTIO
35 : -INC SMCHPOI
36 : *
37 : LOGICAL L0,L1
38 : CHARACTER*4 TYPE
39 : CHARACTER*8 TYPRET,CHARRE
40 : CHARACTER*72 CTEXT
41 : *
42 : IMODE = 0
43 : 10 CONTINUE
44 : IMODE = IMODE + 1
45 : TYPRET = ' '
45 : CALL ACCTAB(IBAS,'ENTIER',IMODE,X0,' ',L0,IP0,
46 : & TYPRET,I1,X1,CHARRE,L1,ITBMOD)
47 : IF (ITBMOD.NE.0 .AND. TYPRET.EQ.'TABLE ') THEN
48 : IF (TYPE.EQ.'MODE') THEN
48 : CALL ACCTAB(ITBMOD,'MOT',I0,X0,'DEFORMEE_MODALE',L0,IP0,
49 : & 'CHPOINT',I1,X1,' ',L1,ICDM)
50 : ELSE IF (TYPE.EQ.'PSMO') THEN
50 : CALL ACCTAB(ITBMOD,'MOT',I0,X0,'DEPLACEMENT',L0,IP0,
51 : & 'CHPOINT',I1,X1,' ',L1,ICDM)
52 : ELSE
53 : RETURN
54 : ENDIF
55 : IPOI1 = ICDM
56 : MCHPOI = IPOI1
57 : SEGACT MCHPOI
58 : CTEXT = MOCHDE
59 : SEGDES MCHPOI
59 : C*AV CALL SIGMAP(0,IPMODL,IPOI1,IPCHE1,IPCHE2,IMAT,IPOI8,IRET)
59 : CALL SIGMAP(0,IPMODL,IPOI1,IPCHE1,IPCHE2,ICONV,IMAT,IPOI8,IRET)
60 : IF (IRET.NE.0) THEN
61 : IF (TYPE.EQ.'MODE') THEN
61 : CALL ECCTAB(ITBMOD,'MOT',I0,X0,'CONTRAINTE_MODALE',L0,
62 : & IP0,'MCHAML',I1,X1,' ',L1,IPOI8)
63 : ELSE IF (TYPE.EQ.'PSMO') THEN
63 : CALL ECCTAB(ITBMOD,'MOT',I0,X0,'CONTRAINTE',L0,IP0,
64 : & 'MCHAML',I1,X1,' ',L1,IPOI8)
65 : ELSE
66 : RETURN
67 : ENDIF
68 : ENDIF
69 : GOTO 10
70 : ENDIF
71 : *
72 : RETURN
73 : END
74 :
75 :
© Cast3M 2003 - All rights reserved.
Disclaimer