Télécharger la plaquette Cast3M


fr en

Télécharger idvar5.eso

Retour à la liste

Numérotation des lignes : 

idvar5

  1. C IDVAR5    SOURCE    BR232186  16/12/05    21:39:48     9238           
  2.  
  3. *_______________________________________________________________________
  4. *      RECHERCHE DES NOMS DE COMPOSANTES DES VARIABLES INTERNES
  5. *      --------------------------------------------------------
  6. *      CAS DE L'ENDOMMAGEMENT
  7. *      ---------------------
  8. *
  9. *  ENTREES :
  10. *  ---------
  11. *     MATEPL   NUMERO DU MATERIAU ENDOMAGEABLE
  12. *     MFR      NUMERO DE FORMULATION
  13. *     IFOUR    VALEUR DE IFOU DANS CCOPTIO
  14. *     IFLAG    0=TOUTES LES VARIABLES
  15. *              1=FONCTIONS SEUIL
  16. *
  17. *  SORTIES :
  18. *  ---------
  19. *     IPCOMP   POINTEUR SUR LA LISTE DES NOMS DE COMPOSANTES
  20. *              OBLIGATOIRES ET FACULTATIVES
  21. *     NBROBL   NOMBRE DE COMPOSANTES OBLIGATOIRES
  22. *     NBRFAC   NOMBRE DE COMPOSANTES FACTULTATIVES
  23. *
  24. *     PP 16/8/91 ajout var.int pour l'endommagement
  25. *_______________________________________________________________________
  26.  
  27.       SUBROUTINE IDVAR5 (MATEPL,MFR,IFOUR,IFLAG,IPCOMP,NBROBL,NBRFAC)
  28.  
  29.       IMPLICIT INTEGER(I-N)
  30.       IMPLICIT REAL*8 (A-H,O-Z)
  31.  
  32.       SEGMENT NOMID
  33.         CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  34.       ENDSEGMENT
  35.  
  36.       NBROBL=0
  37.       NBRFAC=0
  38.       NOMID=0
  39. C      PRINt *,'ENTREE IDVAR5 MATEPL, MFR =',MATEPL,MFR
  40.  
  41. C  1 - Cas du modele SCALAIRE
  42. C ============================
  43.       IF (MATEPL.EQ.30.OR.MATEPL.EQ.118) THEN
  44.         IF (IFLAG.EQ.0) THEN
  45.           NBROBL=2
  46.           SEGINI,NOMID
  47.           LESOBL(1)='EPTI'
  48.           LESOBL(2)='D'
  49.         ELSE
  50.           NBROBL=1
  51.           SEGINI,NOMID
  52.           LESOBL(1)='EPTI'
  53.         ENDIF
  54.  
  55. C  2 - Cas du modele UNILATERAL simple ou avec viscosite
  56. C =======================================================
  57.       ELSE IF (MATEPL.EQ.31.OR.MATEPL.EQ. 97) THEN
  58.         IF (IFLAG.EQ.0) THEN
  59.           NBROBL=4
  60.           SEGINI,NOMID
  61.           LESOBL(1)='YLI1'
  62.           LESOBL(2)='YLI2'
  63.           LESOBL(3)='DOM1'
  64.           LESOBL(4)='DOM2'
  65.         ELSE
  66.           NBROBL=2
  67.           SEGINI,NOMID
  68.           LESOBL(1)='YLI1'
  69.           LESOBL(2)='YLI2'
  70.         ENDIF
  71.  
  72. C  3 - Cas du modele ROTATING_CRACK
  73. C ==================================
  74.       ELSE IF (MATEPL.EQ.37) THEN
  75.         NBROBL=2
  76.         SEGINI,NOMID
  77.         LESOBL(1)='EPSM'
  78.         LESOBL(2)='EPSN'
  79.  
  80. C  4 - Cas du modele SIC_SIC
  81. C      Modele disponible seulement en MASSIF 3D
  82. C ==============================================
  83.       ELSE IF (MATEPL.EQ.88) THEN
  84.         IF (MFR.EQ.1) THEN
  85.           NBROBL=10
  86.           SEGINI,NOMID
  87.           LESOBL( 1)='EPSE'
  88.           LESOBL( 2)='DOM1'
  89.           LESOBL( 3)='DOM2'
  90.           LESOBL( 4)='DOM3'
  91.           LESOBL( 5)='DF11'
  92.           LESOBL( 6)='DF22'
  93.           LESOBL( 7)='DF33'
  94.           LESOBL( 8)='DF23'
  95.           LESOBL( 9)='DF13'
  96.           LESOBL(10)='DF12'
  97.         ELSE
  98.           CALL ERREUR (19)
  99.         ENDIF
  100.  
  101. C  5 - Cas du modele MICROPLANS ORTHOTROPE
  102. C =========================================
  103.       ELSE IF (MATEPL.EQ.96) THEN
  104.         NBROBL=14
  105.         SEGINI,NOMID
  106.         LESOBL( 1)='EPSE'
  107.         LESOBL( 2)='R   '
  108. C= Tenseur d'endommagement
  109.         LESOBL( 3)='D11 '
  110.         LESOBL( 4)='D22 '
  111.         LESOBL( 5)='D33 '
  112.         LESOBL( 6)='D12 '
  113.         LESOBL( 7)='D13 '
  114.         LESOBL( 8)='D23 '
  115. C= Tenseur des contraintes anelastiques dues a l'endommagement
  116.         LESOBL( 9)='SA11'
  117.         LESOBL(10)='SA22'
  118.         LESOBL(11)='SA33'
  119.         LESOBL(12)='SA12'
  120.         LESOBL(13)='SA13'
  121.         LESOBL(14)='SA23'
  122.  
  123. C  5 - Cas du modele MICROPLANS ISOTROPE
  124. C =======================================
  125.       ELSE IF (MATEPL.EQ.98) THEN
  126.         NBROBL=9
  127.         SEGINI,NOMID
  128.         LESOBL(1)='EPSE'
  129.         LESOBL(2)='R   '
  130. C= Scalaire d'endommagement
  131.         LESOBL(3)='DOM'
  132. C= Tenseur des contraintes anelastiques dues a l'endommagement
  133.         LESOBL(4)='SA11'
  134.         LESOBL(5)='SA22'
  135.         LESOBL(6)='SA33'
  136.         LESOBL(7)='SA12'
  137.         LESOBL(8)='SA13'
  138.         LESOBL(9)='SA23'
  139.  
  140. * RDj
  141. *
  142.       ELSEIF(MATEPL.EQ.124)THEN
  143. *
  144. *     CAS DU MODELE SCALAIRE AVEC DEFORMATION ANELASTIQUE
  145. *
  146.         NBROBL=24
  147.         SEGINI,NOMID
  148.         LESOBL(1)  ='ECM'
  149.         LESOBL(2)  ='D'
  150.         LESOBL(3)  ='DELT'
  151.         LESOBL(4)  ='EIC1'
  152.         LESOBL(5)  ='EIC2'
  153.         LESOBL(6)  ='EIC3'
  154.         LESOBL(7)  ='EIC4'
  155.         LESOBL(8)  ='EIC5'
  156.         LESOBL(9)  ='EIC6'
  157.         LESOBL(10) ='EIT1'
  158.         LESOBL(11) ='EIT2'
  159.         LESOBL(12) ='EIT3'
  160.         LESOBL(13) ='EIT4'
  161.         LESOBL(14) ='EIT5'
  162.         LESOBL(15) ='EIT6'
  163.         LESOBL(16) ='EPTI'
  164.         LESOBL(17) ='VER1'
  165.         LESOBL(18) ='VER2'
  166.         LESOBL(19) ='VER3'
  167.         LESOBL(20) ='VER4'
  168.         LESOBL(21) ='VER5'
  169.         LESOBL(22) ='VER6'
  170.         LESOBL(23) ='ENDP'
  171.         LESOBL(24) ='ENDM'
  172. * RDj
  173. *
  174. * CCd
  175. *
  176.       ELSEIF(MATEPL.EQ.125)THEN
  177. *
  178. *     MODEL DAMAGE_TC - R. Faria & J. Oliver
  179. *
  180. C      NBROBL=12
  181.       NBROBL=6
  182.       SEGINI NOMID
  183.       LESOBL(1)='THRT'
  184.       LESOBL(2)='EQUT'
  185.       LESOBL(3)='DAMT'
  186.       LESOBL(4)='THRC'
  187.       LESOBL(5)='EQUC'
  188.       LESOBL(6)='DAMC'
  189. *
  190. C      LESOBL(7) ='SE11'
  191. C      LESOBL(8) ='SE22'
  192. C      LESOBL(9) ='SE33'
  193. C      LESOBL(10)='SE12'
  194. C      LESOBL(11)='SE13'
  195. C      LESOBL(12)='SE23'
  196. *
  197.  
  198. C  11 - Cas du modele SICf_SIC Scalaire ONERA
  199. C      SICSCAL
  200. C      Modele disponible seulement en MASSIF 3D
  201. C ==============================================
  202.       ELSE IF (MATEPL.EQ.131) THEN
  203.         IF (MFR.EQ.1) THEN
  204.           NBROBL=19
  205.           SEGINI,NOMID
  206. * Somme des defo inel
  207.           LESOBL( 1)='EPSE'
  208. * Dommage dans les différentes directions
  209.           LESOBL( 2)='DOM1'
  210.           LESOBL( 3)='DOM2'
  211.           LESOBL( 4)='DOM3'
  212. * Déformation repère orthotrope  ordre ONERA
  213.           LESOBL( 5)='DF11'
  214.           LESOBL( 6)='DF22'
  215.           LESOBL( 7)='DF33'
  216.           LESOBL( 8)='DF23'
  217.           LESOBL( 9)='DF13'
  218.           LESOBL(10)='DF12'
  219. * Indice d'activation des fissures
  220.           LESOBL(11)='NUA1'
  221.           LESOBL(12)='NUA2'
  222.           LESOBL(13)='NUA3'
  223. * Déformations inélastiques repère orthotrope  ordre ONERA
  224.           LESOBL(14)='EPI1'
  225.           LESOBL(15)='EPI2'
  226.           LESOBL(16)='EPI3'
  227.           LESOBL(17)='EPI4'
  228.           LESOBL(18)='EPI5'
  229.           LESOBL(19)='EPI6'
  230.         ELSE
  231.           CALL ERREUR (19)
  232.         ENDIF
  233. C  12 - Cas du modele SICf_SIC pseudo Tensoriel ONERA
  234. C       SICTENS
  235. C      Modele disponible seulement en MASSIF 3D
  236. C ==============================================
  237.       ELSE IF (MATEPL.EQ.132) THEN
  238.         IF (MFR.EQ.1) THEN
  239.           NBROBL=23
  240.           SEGINI,NOMID
  241. *         somme defo inel
  242.           LESOBL( 1)='EPSE'
  243. *         5 variables de dommage
  244.           LESOBL( 2)='DOM1'
  245.           LESOBL( 3)='DOM2'
  246.           LESOBL( 4)='DOM3'
  247.           LESOBL( 5)='DOM4'
  248.           LESOBL( 6)='DOM5'
  249. * Défo dans le repère ortho ordre ONERA
  250.           LESOBL( 7)='DF11'
  251.           LESOBL( 8)='DF22'
  252.           LESOBL( 9)='DF33'
  253.           LESOBL( 10)='DF23'
  254.           LESOBL( 11)='DF13'
  255.           LESOBL( 12)='DF12'
  256. * Indices d'activation
  257.           LESOBL(13)='NUA1'
  258.           LESOBL(14)='NUA2'
  259.           LESOBL(15)='NUA3'
  260.           LESOBL(16)='NUA4'
  261.           LESOBL(17)='NUA5'
  262. * Déformations inélastique repère ortho ordre ONERA
  263.           LESOBL(18)='EPI1'
  264.           LESOBL(19)='EPI2'
  265.           LESOBL(20)='EPI3'
  266.           LESOBL(21)='EPI4'
  267.           LESOBL(22)='EPI5'
  268.           LESOBL(23)='EPI6'
  269.         ELSE
  270.           CALL ERREUR (19)
  271.         ENDIF
  272. *
  273.       ELSEIF(MATEPL.EQ.134)THEN
  274. *
  275. *  13.   CAS DU MODELE DESMORAT
  276. *
  277.         NBROBL=23
  278.         SEGINI,NOMID
  279. *
  280. * flag pour le non local
  281.         LESOBL(1) ='EPTI'
  282. *
  283. *  tenseur d'endommagement
  284. *
  285.         LESOBL(2) ='D11 '
  286.         LESOBL(3) ='D22 '
  287.         LESOBL(4) ='D33 '
  288.         LESOBL(5) ='D12 '
  289.         LESOBL(6) ='D13 '
  290.         LESOBL(7) ='D23 '
  291. *
  292. *  tenseur de la base d'endommagement
  293. *
  294.         LESOBL(8) ='RT11'
  295.         LESOBL(9) ='RT12'
  296.         LESOBL(10) ='RT13'
  297.         LESOBL(11) ='RT21'
  298.         LESOBL(12) ='RT22'
  299.         LESOBL(13) ='RT23'
  300.         LESOBL(14) ='RT31'
  301.         LESOBL(15) ='RT32'
  302.         LESOBL(16) ='RT33'
  303. *
  304. * flag pour l'endommagement maximum
  305.         LESOBL(17) ='FAIL'
  306. *
  307. *  tenseur des deformations
  308. *
  309.         LESOBL(18) ='EP11'
  310.         LESOBL(19) ='EP22'
  311.         LESOBL(20) ='EP33'
  312.         LESOBL(21) ='EP12'
  313.         LESOBL(22) ='EP13'
  314.         LESOBL(23) ='EP23'
  315.       ELSEIF(MATEPL.EQ.141)THEN
  316. *
  317. C  14 - Cas du modele 'FATSIN'
  318. C ==============================================
  319.         IF (IFLAG.EQ.0) THEN
  320.           NBROBL=3
  321.           SEGINI,NOMID
  322.           LESOBL(1)='EPTI'
  323.           LESOBL(2) ='D'
  324.           LESOBL(3) ='EPT0'
  325.         ELSE
  326.           NBROBL=1
  327.           SEGINI,NOMID
  328.           LESOBL(1)='EPTI'
  329.         ENDIF
  330.       ELSEIF(MATEPL.EQ.144)THEN
  331. *
  332. C  15 - Cas du modele 'RICRAG'
  333. C ==============================================
  334.         NBROBL=26
  335.         SEGINI,NOMID
  336. *
  337. *     POUR LE NON LOCAL
  338. *
  339.         LESOBL(1) ='EPTI'
  340. *
  341. *     TENSEUR DE GLISSEMENT
  342. *
  343.         LESOBL(2) ='EPI1'
  344.         LESOBL(3) ='EPI2'
  345.         LESOBL(4) ='EPI3'
  346.         LESOBL(5) ='EPI4'
  347.         LESOBL(6) ='EPI5'
  348.         LESOBL(7) ='EPI6'
  349. *
  350. *     TENSEUR D ECROUISSAGE CINEMATIQUE
  351. *
  352.         LESOBL(8) ='ABC1'
  353.         LESOBL(9) ='ABC2'
  354.         LESOBL(10) ='ABC3'
  355.         LESOBL(11) ='ABC4'
  356.         LESOBL(12) ='ABC5'
  357.         LESOBL(13) ='ABC6'
  358. *
  359. *     QUELQUES VARIABLES INTERNES SCALAIRES
  360. *
  361.         LESOBL(14) ='D   '
  362.         LESOBL(15) ='DOND'
  363.         LESOBL(16) ='DONI'
  364.         LESOBL(17) ='FFFZ'
  365.         LESOBL(18) ='TYPC'
  366. *
  367. *     TENSEUR DE DEFORMATION TOTALES
  368. *
  369.         LESOBL(19) ='EPA1'
  370.         LESOBL(20) ='EPA2'
  371.         LESOBL(21) ='EPA3'
  372.         LESOBL(22) ='EPA4'
  373.         LESOBL(23) ='EPA5'
  374.         LESOBL(24) ='EPA6'
  375. *
  376. *     FLAGS POUR ENDOMMAGEMENT ECCESSIF ET ECROUISSAGE
  377. *
  378.         LESOBL(25) ='FZF1'
  379.         LESOBL(26) ='FZF2'
  380. C +BR
  381.                 ELSEIF(MATEPL.EQ.157)THEN
  382. *
  383. C  16 - Cas du modele 'GLRC_DM'
  384. C ==============================================
  385.         NBROBL=12
  386.         SEGINI,NOMID
  387.         LESOBL( 1) ='VA01'
  388.         LESOBL( 2) ='VA02'
  389.         LESOBL( 3) ='VA03'
  390.         LESOBL( 4) ='VA04'
  391.         LESOBL( 5) ='VA05'
  392.         LESOBL( 6) ='VA06'
  393.         LESOBL( 7) ='VA07'
  394.         LESOBL( 8) ='VA08'
  395.         LESOBL( 9) ='XD1 '
  396.         LESOBL(10) ='XD2 '
  397.         LESOBL(11) ='XDM '
  398.         LESOBL(12) ='XDF '
  399.  
  400.       ELSEIF(MATEPL.EQ.158)THEN
  401. *
  402. C  17 - Cas du modele 'RICBET'
  403. C ==============================================
  404.         NBROBL=42
  405.         SEGINI,NOMID
  406.  
  407.         LESOBL( 1)='EPTI'
  408.  
  409.         LESOBL( 2)='EPI1'
  410.         LESOBL( 3)='EPI2'
  411.         LESOBL( 4)='EPI3'
  412.         LESOBL( 5)='EPI4'
  413.         LESOBL( 6)='EPI5'
  414.         LESOBL( 7)='EPI6'
  415.  
  416.         LESOBL( 8)='ABC1'
  417.         LESOBL( 9)='ABC2'
  418.         LESOBL(10)='ABC3'
  419.         LESOBL(11)='ABC4'
  420.         LESOBL(12)='ABC5'
  421.         LESOBL(13)='ABC6'
  422.  
  423.         LESOBL(14)='D   '
  424.  
  425.         LESOBL(15)='FZFT'
  426.  
  427.         LESOBL(16)='EPA1'
  428.         LESOBL(17)='EPA2'
  429.         LESOBL(18)='EPA3'
  430.         LESOBL(19)='EPA4'
  431.         LESOBL(20)='EPA5'
  432.         LESOBL(21)='EPA6'
  433.  
  434.         LESOBL(22)='SIC1'
  435.         LESOBL(23)='SIC2'
  436.         LESOBL(24)='SIC3'
  437.         LESOBL(25)='SIC4'
  438.         LESOBL(26)='SIC5'
  439.         LESOBL(27)='SIC6'
  440.  
  441.         LESOBL(28)='DEFF'
  442.  
  443.         LESOBL(29)='SIP1'
  444.         LESOBL(30)='SIP2'
  445.         LESOBL(31)='SIP3'
  446.         LESOBL(32)='SIP4'
  447.         LESOBL(33)='SIP5'
  448.         LESOBL(34)='SIP6'
  449.  
  450.         LESOBL(35)='EPP1'
  451.         LESOBL(36)='EPP2'
  452.         LESOBL(37)='EPP3'
  453.         LESOBL(38)='EPP4'
  454.         LESOBL(39)='EPP5'
  455.         LESOBL(40)='EPP6'
  456.  
  457.         LESOBL(41)='RECO'
  458.  
  459.         LESOBL(42)='DEPP'
  460.  
  461.       ELSEIF(MATEPL.EQ.159)THEN
  462. *
  463. C  18 - Cas du modele 'RICCOQ'
  464. C ==============================================
  465.         NBROBL=18
  466.         SEGINI,NOMID
  467.  
  468.         LESOBL(1) ='EPM1'
  469.         LESOBL(2) ='EPM2'
  470.         LESOBL(3) ='EPM3'
  471.  
  472.         LESOBL(4) ='EPF1'
  473.         LESOBL(5) ='EPF2'
  474.         LESOBL(6) ='EPF3'
  475.  
  476.         LESOBL(7) ='DT  '
  477.         LESOBL(8) ='ZT  '
  478.         LESOBL(9) ='DC  '
  479.         LESOBL(10)='ZC  '
  480.  
  481.         LESOBL(11)='EPP1'
  482.         LESOBL(12)='EPP2'
  483.         LESOBL(13)='EPP3'
  484.  
  485.         LESOBL(14)='XEC1'
  486.         LESOBL(15)='XEC2'
  487.         LESOBL(16)='XEC3'
  488.  
  489.         LESOBL(17)='XYDT'
  490.         LESOBL(18)='XYDC'
  491.  
  492.         ELSEIF(MATEPL.EQ.163)THEN
  493. *
  494. C  19 - Cas du modele 'CONCYC'
  495. C ==============================================
  496.         NBROBL=35
  497.         SEGINI,NOMID
  498.         LESOBL( 1) ='EP11'
  499.         LESOBL( 2) ='EP22'
  500.         LESOBL( 3) ='EP33'
  501.         LESOBL( 4) ='EP12'
  502.         LESOBL( 5) ='EP13'
  503.         LESOBL( 6) ='EP23'
  504.  
  505.         LESOBL( 7) ='SF11'
  506.         LESOBL( 8) ='SF22'
  507.         LESOBL( 9) ='SF33'
  508.         LESOBL(10) ='SF12'
  509.         LESOBL(11) ='SF13'
  510.         LESOBL(12) ='SF23'
  511.  
  512.         LESOBL(13) ='QF11'
  513.         LESOBL(14) ='QF22'
  514.         LESOBL(15) ='QF33'
  515.         LESOBL(16) ='QF12'
  516.         LESOBL(17) ='QF13'
  517.         LESOBL(18) ='QF23'
  518.  
  519.         LESOBL(19) ='D   '
  520.         LESOBL(20) ='ZT  '
  521.         LESOBL(21) ='PHI '
  522.  
  523.         LESOBL(22) ='EM11'
  524.         LESOBL(23) ='EM22'
  525.         LESOBL(24) ='EM33'
  526.         LESOBL(25) ='EM12'
  527.         LESOBL(26) ='EM13'
  528.         LESOBL(27) ='EM23'
  529.  
  530.         LESOBL(28) ='DP11'
  531.         LESOBL(29) ='DP22'
  532.         LESOBL(30) ='DP33'
  533.         LESOBL(31) ='DP12'
  534.         LESOBL(32) ='DP13'
  535.         LESOBL(33) ='DP23'
  536.  
  537.         LESOBL(34) ='EDIS'
  538.  
  539.         LESOBL(35) ='EPTI'
  540.  
  541. C -BR
  542.       ELSEIF(MATEPL.EQ.177)THEN  
  543.  
  544. C  20 - Cas du modele 'EFEM' 
  545. C ==============================================  
  546.         NBROBL=59
  547.         SEGINI,NOMID                                                            
  548.  
  549.         LESOBL(1) ='RHO1'
  550.         LESOBL(2) ='RHO2'
  551.         LESOBL(3) ='RHO4'
  552.         LESOBL(4) ='RHO7'
  553.  
  554.         LESOBL(5) ='EPS1'
  555.         LESOBL(6) ='EPS2'
  556.         LESOBL(7) ='EPS3'
  557.         LESOBL(8) ='EPS4'
  558.         LESOBL(9) ='EPS5'
  559.         LESOBL(10) ='EPS6'
  560.  
  561.         LESOBL(11) ='T1  '
  562.         LESOBL(12) ='T2  '
  563.  
  564.         LESOBL(13) ='OUV1'
  565.         LESOBL(14) ='OUV2'
  566.  
  567.         LESOBL(15) ='Z1  '
  568.         LESOBL(16) ='Z2  '
  569.         LESOBL(17) ='Z4  '
  570.         LESOBL(18) ='Z7  '                    
  571.  
  572.         LESOBL(19) ='EPSZ'
  573.  
  574.         LESOBL(20) ='MNOU'
  575.  
  576.         LESOBL(21) ='ZIN1'
  577.         LESOBL(22) ='ZIN2'
  578.         LESOBL(23) ='ZIN4'
  579.         LESOBL(24) ='ZIN7'
  580.  
  581.         LESOBL(25) ='DGL1'
  582.         LESOBL(26) ='DGL2'
  583.         LESOBL(27) ='DGL3'
  584.  
  585.         LESOBL(28) ='SGL1'
  586.         LESOBL(29) ='SGL2'
  587.         LESOBL(30) ='SGL3'
  588.  
  589.         LESOBL(31) ='NFLA'
  590.         LESOBL(32) ='NIT '
  591.  
  592.         LESOBL(33) ='XNX1'
  593.         LESOBL(34) ='YN  '
  594.  
  595.         LESOBL(35) ='CPLA'
  596.         LESOBL(36) ='Z_U '
  597.         LESOBL(37) ='UMAX'
  598.         LESOBL(38) ='OUVN'
  599.         LESOBL(39) ='OUVT'
  600.         LESOBL(40) ='RESI'
  601.         LESOBL(41) ='XNT '
  602.         LESOBL(42) ='YNT '
  603.         LESOBL(43) ='TUN '
  604.         LESOBL(44) ='TUT '
  605.         LESOBL(45) ='XNOR'
  606.         LESOBL(46) ='YNOR'
  607.         LESOBL(47) ='XPSI'
  608.         LESOBL(48) ='VPT1'
  609.         LESOBL(49) ='VPT2'
  610.         LESOBL(50) ='XNVP'
  611. C-------POUR LE NON LOCAL
  612.  
  613.         LESOBL(51) ='ENL1'
  614.         LESOBL(52) ='ENL2'
  615.         LESOBL(53) ='ENL3'
  616.         LESOBL(54) ='SXX'
  617.         LESOBL(55) ='SYY'               
  618.         LESOBL(56) ='SZZ'
  619.         LESOBL(57) ='SXY'
  620.         LESOBL(58) ='SLM'
  621.         LESOBL(59) ='DIFF'   
  622.  
  623.  
  624.       ENDIF
  625.       IPCOMP=NOMID
  626.       SEGDES,NOMID
  627.  
  628.  
  629.       RETURN
  630.       END
  631.  
  632.  
  633.  
  634.  
  635.  
  636.  
  637.  
  638.  
  639.  
  640.  
  641.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales