1 : C DEVLIA SOURCE CHAT 11/03/16 21:19:10 6902
2 : SUBROUTINE DEVLIA(LTLIA,KCPR,PDT,KTLIAA,KTLIAB,ITCARA,LMODYN)
3 : IMPLICIT INTEGER(I-N)
4 : IMPLICIT REAL*8(A-H,O-Z)
5 : *--------------------------------------------------------------------*
6 : * *
7 : * Op{rateur DYNE : algorithme de Fu - de Vogelaere *
8 : * ________________________________________________ *
9 : * *
10 : * Remplissage des tableaux de description des liaisons @ *
11 : * partir des informations contenues dans la table ITLIA. *
12 : * *
13 : * Param}tres: *
14 : * *
15 : * e LTLIA Table rassemblant la description des liaisons *
16 : * e KCPR Segment descriptif des points. *
17 : * e PDT Pas de temps. *
18 : * s KTLIAA Segment descriptif des liaisons en base A *
19 : * s KTLIAB Segment descriptif des liaisons en base B *
20 : * *
21 : * Auteur, date de cr{ation: *
22 : * *
23 : * Lionel VIVAN, le 16 aout 1989. *
24 : * *
25 : *--------------------------------------------------------------------*
26 : *
27 : -INC CCOPTIO
28 : -INC SMCOORD
29 : -INC SMMODEL
30 : *
31 : SEGMENT,ICPR(XCOOR(/1)/(IDIM+1))
32 : *
33 : * segment chapeau modeles liaisons
34 : SEGMENT MOLIAI
35 : integer modtla,modtlb
36 : ENDSEGMENT
37 : CHARACTER*8 TYPRET,CHARRE
38 : LOGICAL L0,L1,lmodyn
39 : *
40 : ICPR = KCPR
41 : LTLA = 0
42 : LTLB = 0
43 :
44 : IF (lmodyn) THEN
45 : moliai = ltlia
46 : segact moliai
47 : if (modtla.gt.0) then
48 : mmode1 = modtla
49 : segact mmode1
50 : endif
51 :
52 : if (modtlb.gt.0) then
53 : mmode2 = modtlb
54 : ltlb = modtlb
55 : segact mmode2
56 : if (mmode2.kmodel(/1).gt.0) then
56 : CALL DYNE20(LTLB,KTLIAB,ITCARA,LMODYN)
57 : endif
58 : endif
59 : ELSE
60 : *
61 : * Liaisons sur la base A
62 : *
63 : TYPRET = ' '
63 : CALL ACCTAB(LTLIA,'MOT',I0,X0,'LIAISON_A',L0,IP0,
64 : & TYPRET,I1,X1,CHARRE,L1,LTLA)
65 : IF (IERR.NE.0) RETURN
66 : IF (LTLA.NE.0) THEN
66 : CALL DYNE19(LTLA,KCPR,PDT,KTLIAA)
67 : IF (IERR.NE.0) RETURN
68 : ENDIF
69 : *
70 : * Liaisons sur la base B
71 : *
72 : TYPRET = ' '
72 : CALL ACCTAB(LTLIA,'MOT',I0,X0,'LIAISON_B',L0,IP0,
73 : & TYPRET,I1,X1,CHARRE,L1,LTLB)
74 : IF (IERR.NE.0) RETURN
75 : IF (LTLB.NE.0) THEN
75 : CALL DYNE20(LTLB,KTLIAB,0,LMODYN)
76 : IF (IERR.NE.0) RETURN
77 : ENDIF
78 : *
79 : ENDIF
80 : END
81 :
82 :
83 :
84 :
85 :
© Cast3M 2003 - All rights reserved.
Disclaimer