1 : C IDELNL SOURCE CHAT 05/01/13 00:28:53 5004
2 : C IDPLEN SOURCE AC2 97/04/29 21:20:29 2680
3 : SUBROUTINE IDELNL (MFR,MOOBL,MOFAC,IPLAC,IRET)
4 : *--------------------------------------------------------------------*
5 : * Noms de composantes de mat{riaux elastiques non lineaires *
6 : *--------------------------------------------------------------------*
7 : * *
8 : * ENTREES: *
9 : * ------- *
10 : * MFR num{ro de formulation *
11 : * IPMODL objet mod}le {l{mentaire ( segment actif ) *
12 : * MOOBL pointeur sur les mots obligatoires *
13 : * MOFAC pointeur sur les mots facultatif *
14 : * IPLAC numero du materiau dans MODPLA *
15 : * *
16 : * SORTIE : *
17 : * ------- *
18 : * *
19 : * IRET : 0 SI PROBLEME *
20 : * *
21 : *--------------------------------------------------------------------*
22 : *
23 : IMPLICIT INTEGER(I-N)
24 : -INC SMLMOTS
25 : -INC CCOPTIO
26 : *
27 : JGN=8
28 : IRET=1
29 : *
30 : *--------------------------------------------------------------------*
31 : * *
32 : * T Y P E EQUIPLAS *
33 : * *
34 : *--------------------------------------------------------------------*
35 : IF (IPLAC.EQ.1) THEN
36 : *
37 : * MODELE EQUIPLAS
38 : *
39 : IF (MOOBL.NE.0) THEN
40 : MLMOTS = MOOBL
41 : JGA = MOTS(/2)
42 : JGM = JGA+1
43 : SEGADJ,MLMOTS
44 : ELSE
45 : JGA = 0
46 : JGM = 1
47 : SEGINI,MLMOTS
48 : ENDIF
49 : MOOBL = MLMOTS
50 : MOTS(JGA+1) = 'TRAC'
51 : GOTO 9999
52 : *
53 : ENDIF
54 : GOTO 99
55 : *
56 : 9999 CONTINUE
57 : IRET=1
58 : RETURN
59 : *
60 : * SI PROBLEME , ON SORT AVEC IRET A 0
61 : *
62 : 99 CONTINUE
63 : IRET=0
63 : CALL ERREUR(261)
64 : RETURN
65 : END
66 :
67 :
68 :
69 :
70 :
71 :
72 :
73 :
74 :
75 :
76 :
77 :
78 :
79 :
© Cast3M 2003 - All rights reserved.
Disclaimer