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

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