1 : C SEISM2 SOURCE CHAT 07/10/29 21:28:27 5940
2 : SUBROUTINE SEISM2(IBAS,IPLA2,ICHPT)
3 : IMPLICIT INTEGER(I-N)
4 : IMPLICIT REAL*8(A-H,O-Z)
5 : *--------------------------------------------------------------------*
6 : * *
7 : * G{n}re un CHPOINT qui repr{sente la r{partition spatiale du *
8 : * chargement sismique. *
9 : * *
10 : * Param}tres: *
11 : * *
12 : * e ITBAS Table repr{sentant une base modale *
13 : * e IPLA2 num{ro du d{placement g{n{ralis{ *
14 : * s ICHPT chpoint cr{{ *
15 : * *
16 : * Auteur, date de cr{ation: *
17 : * *
18 : * Lionel VIVAN, le 17 mai 1990. *
19 : * *
20 : *--------------------------------------------------------------------*
21 : * *
22 : -INC CCOPTIO
23 : -INC CCGEOME
24 : -INC SMCHPOI
25 : -INC SMELEME
26 : *
27 : LOGICAL L0,L1
28 : CHARACTER*8 TYPRET,CHARRE
29 : *
30 : IM = 0
31 : NBMODE = 0
32 : 10 CONTINUE
33 : IM = IM + 1
34 : TYPRET = ' '
34 : CALL ACCTAB(IBAS,'ENTIER',IM,X0,' ',L0,IP0,
35 : & TYPRET,I1,X1,CHARRE,L1,ITMOD)
36 : IF (ITMOD.NE.0 .AND. TYPRET.EQ.'TABLE ') THEN
37 : NBMODE = NBMODE + 1
38 : GOTO 10
39 : ENDIF
40 : *
41 : NBNN = 1
42 : NBELEM = NBMODE
43 : NBSOUS = 0
44 : NBREF = 0
45 : SEGINI MELEME
46 : IMAIL = MELEME
47 : ITYPEL = 1
48 : *
49 : NSOUPO = 1
50 : NAT= 1
51 : SEGINI MCHPOI
52 : JATTRI(1)=2
53 : ICHPT = MCHPOI
54 : IFOPOI = IFOUR
55 : NC = 1
56 : SEGINI MSOUPO
57 : IPCHP(1)=MSOUPO
58 : NOHARM(1) = NIFOUR
59 : NOCOMP(1) = 'FALF'
60 : N = NBMODE
61 : SEGINI MPOVAL
62 : IPOVAL = MPOVAL
63 : DO 20 IM = 1,NBMODE
63 : CALL ACCTAB(IBAS,'ENTIER',IM,X0,' ',L0,IP0,
64 : & 'TABLE',I1,X1,' ',L1,ITMOD)
64 : CALL ACCTAB(ITMOD,'MOT',I0,X0,'POINT_REPERE',L0,IP0,
65 : & 'POINT',I1,X1,' ',L1,IPTR)
66 : NUM(1,IM) = IPTR
67 : ICOLOR(IM) = IDCOUL
67 : CALL ACCTAB(ITMOD,'MOT',I0,X0,'DEPLACEMENTS_GENERALISES',L0,
68 : & IP0,'TABLE',I1,X1,' ',L1,ITDEP)
68 : CALL ACCTAB(ITDEP,'ENTIER',IPLA2,X0,' ',L0,IP0,
69 : & 'FLOTTANT',I1,XQN,' ',L1,IP1)
70 : VPOCHA(IM,1) = -1.D0 * XQN
71 : 20 CONTINUE
72 : * end do
73 : SEGDES MELEME
74 : SEGDES MPOVAL
75 : IGEOC = IMAIL
76 : SEGDES MSOUPO
77 : SEGDES MCHPOI
78 : *
79 : END
80 :
81 :
82 :
83 :
84 :
85 :
86 :
© Cast3M 2003 - All rights reserved.
Disclaimer