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

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