Télécharger la plaquette Cast3M


fr en

Télécharger vertytab.procedur

Retour à la liste

Numérotation des lignes : 

  1. * VERTYTAB  PROCEDUR  MAGN      18/06/08    21:15:14     9840           
  2. 'DEBPROC' VERTYTAB ;
  3.  ARGU KAS/'ENTIER' ;
  4. *******************************************************************
  5. *******************************************************************
  6. * VERTYTAB rxt 'YAIR' 'FLOTTANT' ;
  7. * on vérifie que 'YAIR' est bien une entrée de rxt et que c'est
  8. * un FLOTTANT                            -/> erreur
  9. *
  10. * VERTYTAB lxt 'YAIR' 'MOT'      ;
  11. * on vérifie que 'YAIR' est bien une entrée de lxt (LISTMOTS)
  12. * 'MOT' n'est pas testé pour le moment   -/> erreur
  13. *
  14. * VERTYTAB 'ERREUR' 'ERREUR' 'message'    ;
  15. * dans ce cas on imprime le message et retour
  16. *
  17. *******************************************************************
  18. Si (Exist KAS)                                          ;
  19.  ARGU GEO*'TABLE'  mt*'MAILLAGE'                        ;
  20.  ltpvf = elem mt 'TYPE'                                 ;
  21.  nbe= dime ltpvf                                        ;
  22.  
  23.  Ellin1D= mots 'SEG2'                                   ;
  24.  Ellin2D= mots 'TRI3' 'QUA4'                            ;
  25.  Ellin3D= mots 'CUB8' 'PRI6' 'TET4' 'PYR5'              ;
  26.  Elqad1D= mots 'SEG3'                                   ;
  27.  Elqad2D= mots 'TRI6' 'QUA8'                            ;
  28.  Elqad3D= mots 'CU20' 'PR15' 'TE10' 'PY13'              ;
  29.  Elqaf1D= mots 'SEG3'                                   ;
  30.  Elqaf2D= mots 'TRI7' 'QUA9'                            ;
  31.  Elqaf3D= mots 'CU27' 'PR21' 'TE15' 'PY19'              ;
  32.  elref=extr ltpvf 1                                     ;
  33.  
  34.  Si ('EGA' KAS 0)                                       ;
  35.  
  36.  Si ('EXIST' Ellin2D elref)                             ;
  37.  TYEL='LIN2D'                                           ;
  38.  Finsi                                                  ;
  39.  Si ('EXIST' Ellin3D elref)                             ;
  40.  TYEL='LIN3D'                                           ;
  41.  Finsi                                                  ;
  42.  
  43.  Si ('EXIST' Elqad2D elref)                             ;
  44.  TYEL='QAD2D'                                           ;
  45.  Finsi                                                  ;
  46.  Si ('EXIST' Elqad3D elref)                             ;
  47.  TYEL='QAD3D'                                           ;
  48.  Finsi                                                  ;
  49.  
  50.  Si ('EXIST' Elqaf2D elref)                             ;
  51.  TYEL='QAF2D'                                           ;
  52.  Finsi                                                  ;
  53.  Si ('EXIST' Elqaf3D elref)                             ;
  54.  TYEL='QAF3D'                                           ;
  55.  Finsi                                                  ;
  56.  
  57.  GEO.'TYEL' = TYEL                                      ;
  59. mess ' On vérifie la cohérence des maillages'           ;
  60. mess ' Le premier type d élément du maillage donné pour vtf est ' ELREF;
  61. mess ' On vérifie que les éléments des maillages fournis pour les';
  62. mess ' besoins du calcul (parois, conditions limites etc) sont'   ;
  63. mess ' compatibles avec les éléments géométriques de type ' TYEL  ;
  64. mess ' et ceci indépendamment de la discrétisations choisie.'     ;
  65. mess ' Les points d un arc de cercle suivant qu il est maillé en '; 
  66. mess ' LINE ou en QUAD ne sont pas forcément à la même position.' ;
  68.  
  69. FINSI                                                   ;
  70.  
  71. SI (KAS '<EG' 1)                                        ;
  72.  TYEL = GEO.'TYEL'                                      ;
  73.  nbe= dime ltpvf                                        ;
  74.  
  75.  Si ('EGA' TYEL 'LIN2D')                                ;
  76.  REPETER BTYEL nbe                                      ;
  77.   el=extr ltpvf &BTYEL                                  ;
  78.   Si (NON ('EXIST' Ellin2D el))                         ;
  79.  Mess                                                             ;
  80.  Mess '*********************************************************' ;
  81.  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  82.  Mess '                                                         ' ;
  83.  Mess '                                                         ' ;
  84.  mess ' On attend des éléments de type linéaire 2D '              ;
  85.  mess ' Le maillage contient des éléments de type ' el  ;
  86.  Mess '*********************************************************' ;
  87.  Mess                                                             ;
  88.  ERREUR 21                                                        ;
  89.  quitter VERTYTAB                                       ;
  90.   Finsi                                                 ;
  91.  FIN BTYEL                                              ;
  92.  FINSI                                                  ;
  93.  
  94.  Si ('EGA' TYEL 'LIN3D')                                ;
  95.  REPETER BTYEL nbe                                      ;
  96.   el=extr ltpvf &BTYEL                                  ;
  97.   Si (NON ('EXIST' Ellin3D el))                         ;
  98.  Mess                                                             ;
  99.  Mess '*********************************************************' ;
  100.  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  101.  Mess '                                                         ' ;
  102.  Mess '                                                         ' ;
  103.  mess ' On attend des éléments de type linéaire 3D '              ;
  104.  mess ' Le maillage contient des éléments de type ' el            ;
  105.  Mess '*********************************************************' ;
  106.  Mess                                                             ;
  107.  ERREUR 21                                                        ;
  108.  quitter VERTYTAB                                       ;
  109.   Finsi                                                 ;
  110.  FIN BTYEL                                              ;
  111.  FINSI                                                  ;
  112.  
  113.  Si ('EGA' TYEL 'QAD2D')                                ;
  114.  REPETER BTYEL nbe                                      ;
  115.   el=extr ltpvf &BTYEL                                  ;
  116.   Si (NON ('EXIST' Elqad2D el))                         ;
  117.  Mess                                                             ;
  118.  Mess '*********************************************************' ;
  119.  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  120.  Mess '                                                         ' ;
  121.  Mess '                                                         ' ;
  122.  mess ' On attend des éléments de type quadratique 2D '           ;
  123.  mess ' Le maillage contient des éléments de type ' el            ;
  124.  Mess '*********************************************************' ;
  125.  Mess                                                             ;
  126.  ERREUR 21                                                        ;
  127.  quitter VERTYTAB                                       ;
  128.   Finsi                                                 ;
  129.  FIN BTYEL                                              ;
  130.  FINSI                                                  ;
  131.  
  132.  Si ('EGA' TYEL 'QAD3D')                                ;
  133.  REPETER BTYEL nbe                                      ;
  134.   el=extr ltpvf &BTYEL                                  ;
  135.   Si (NON ('EXIST' Elqad3D el))                         ;
  136.  Mess                                                             ;
  137.  Mess '*********************************************************' ;
  138.  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  139.  Mess '                                                         ' ;
  140.  Mess '                                                         ' ;
  141.  mess ' On attend des éléments de type quadratique 3D'            ;
  142.  mess ' Le maillage contient des éléments de type ' el            ;
  143.  Mess '*********************************************************' ;
  144.  Mess                                                             ;
  145.  ERREUR 21                                                        ;
  146.  quitter VERTYTAB                                       ;
  147.   Finsi                                                 ;
  148.  FIN BTYEL                                              ;
  149.  FINSI                                                  ;
  150.  
  151.  Si ('EGA' TYEL 'QAF2D')                                ;
  152.  REPETER BTYEL nbe                                      ;
  153.   el=extr ltpvf &BTYEL                                  ;
  154.   Si (NON ('EXIST' Elqaf2D el))                         ;
  155.  Mess                                                             ;
  156.  Mess '*********************************************************' ;
  157.  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  158.  Mess '                                                         ' ;
  159.  Mess '                                                         ' ;
  160.  mess ' On attend des éléments de type QUAF 2D '                  ;
  161.  mess ' Le maillage contient des éléments de type ' el            ;
  162.  Mess '*********************************************************' ;
  163.  Mess                                                             ;
  164.  ERREUR 21                                                        ;
  165.  quitter VERTYTAB                                       ;
  166.   Finsi                                                 ;
  167.  FIN BTYEL                                              ;
  168.  FINSI                                                  ;
  169.  
  170.  Si ('EGA' TYEL 'QAF3D')                                ;
  171.  REPETER BTYEL nbe                                      ;
  172.   el=extr ltpvf &BTYEL                                  ;
  173.   Si (NON ('EXIST' Elqaf3D el))                         ;
  174.  Mess                                                             ;
  175.  Mess '*********************************************************' ;
  176.  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  177.  Mess '                                                         ' ;
  178.  Mess '                                                         ' ;
  179.  mess ' On attend des éléments de type QUAF 3D'                   ;
  180.  mess ' Le maillage contient des éléments de type ' el            ;
  181.  Mess '*********************************************************' ;
  182.  Mess                                                             ;
  183.  ERREUR 21                                                        ;
  184.  quitter VERTYTAB                                       ;
  185.   Finsi                                                 ;
  186.  FIN BTYEL                                              ;
  187.  FINSI                                                  ;
  188.  
  189.  FINSI                                                  ;
  190.  
  191.  
  192. SI (KAS 'EGA' 2)                                        ;
  193.  TYEL = GEO.'TYEL'                                      ;
  194.  nbe  = dime ltpvf                                      ;
  195.  
  196.  Si ('EGA' TYEL 'LIN2D')                                ;
  197.  REPETER BTYEL nbe                                      ;
  198.   el=extr ltpvf &BTYEL                                  ;
  199.   Si (NON ('EXIST' Ellin1D el))                         ;
  200.  Mess                                                             ;
  201.  Mess '*********************************************************' ;
  202.  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  203.  Mess '                                                         ' ;
  204.  Mess ' Conditions limites                                      ' ;
  205.  mess ' On attend des éléments de type linéaire 1D (SEG2) '       ;
  206.  mess ' Le maillage contient des éléments de type ' el  ;
  207.  Mess '*********************************************************' ;
  208.  Mess                                                             ;
  209.  ERREUR 21                                                        ;
  210.  quitter VERTYTAB                                       ;
  211.   Finsi                                                 ;
  212.  FIN BTYEL                                              ;
  213.  FINSI                                                  ;
  214.  
  215.  Si ('EGA' TYEL 'LIN3D')                                ;
  216.  REPETER BTYEL nbe                                      ;
  217.   el=extr ltpvf &BTYEL                                  ;
  218.   Si (NON ('EXIST' Ellin2D el))                         ;
  219.  Mess                                                             ;
  220.  Mess '*********************************************************' ;
  221.  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  222.  Mess '                                                         ' ;
  223.  Mess ' Conditions limites                                      ' ;
  224.  mess ' On attend des éléments de type linéaire 2D (TRI3 ou QUA4)';
  225.  mess ' Le maillage contient des éléments de type ' el            ;
  226.  Mess '*********************************************************' ;
  227.  Mess                                                             ;
  228.  ERREUR 21                                                        ;
  229.  quitter VERTYTAB                                       ;
  230.   Finsi                                                 ;
  231.  FIN BTYEL                                              ;
  232.  FINSI                                                  ;
  233.  
  234.  Si ('EGA' TYEL 'QAD2D')                                ;
  235.  REPETER BTYEL nbe                                      ;
  236.   el=extr ltpvf &BTYEL                                  ;
  237.   Si (NON ('EXIST' Elqad1D el))                         ;
  238.  Mess                                                             ;
  239.  Mess '*********************************************************' ;
  240.  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  241.  Mess '                                                         ' ;
  242.  Mess ' Conditions limites                                      ' ;
  243.  mess ' On attend des éléments de type quadratique 1D (SEG3)'     ;
  244.  mess ' Le maillage contient des éléments de type ' el            ;
  245.  Mess '*********************************************************' ;
  246.  Mess                                                             ;
  247.  ERREUR 21                                                        ;
  248.  quitter VERTYTAB                                       ;
  249.   Finsi                                                 ;
  250.  FIN BTYEL                                              ;
  251.  FINSI                                                  ;
  252.  
  253.  Si ('EGA' TYEL 'QAD3D')                                ;
  254.  REPETER BTYEL nbe                                      ;
  255.   el=extr ltpvf &BTYEL                                  ;
  256.   Si (NON ('EXIST' Elqad2D el))                         ;
  257.  Mess                                                             ;
  258.  Mess '*********************************************************' ;
  259.  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  260.  Mess '                                                         ' ;
  261.  Mess ' Conditions limites                                      ' ;
  262.  mess ' On attend des éléments de type quadratique 2D (TRI6 ou QUA8)';
  263.  mess ' Le maillage contient des éléments de type ' el            ;
  264.  Mess '*********************************************************' ;
  265.  Mess                                                             ;
  266.  ERREUR 21                                                        ;
  267.  quitter VERTYTAB                                       ;
  268.   Finsi                                                 ;
  269.  FIN BTYEL                                              ;
  270.  FINSI                                                  ;
  271.  
  272.  Si ('EGA' TYEL 'QAF2D')                                ;
  273.  REPETER BTYEL nbe                                      ;
  274.   el=extr ltpvf &BTYEL                                  ;
  275.   Si (NON ('EXIST' Elqaf1D el))                         ;
  276.  Mess                                                             ;
  277.  Mess '*********************************************************' ;
  278.  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  279.  Mess '                                                         ' ;
  280.  Mess ' Conditions limites                                      ' ;
  281.  mess ' On attend des éléments de type QUAF 1D (SEG3)'            ;
  282.  mess ' Le maillage contient des éléments de type ' el            ;
  283.  Mess '*********************************************************' ;
  284.  Mess                                                             ;
  285.  ERREUR 21                                                        ;
  286.  quitter VERTYTAB                                       ;
  287.   Finsi                                                 ;
  288.  FIN BTYEL                                              ;
  289.  FINSI                                                  ;
  290.  
  291.  Si ('EGA' TYEL 'QAF3D')                                ;
  292.  REPETER BTYEL nbe                                      ;
  293.   el=extr ltpvf &BTYEL                                  ;
  294.   Si (NON ('EXIST' Elqaf2D el))                         ;
  295.  Mess                                                             ;
  296.  Mess '*********************************************************' ;
  297.  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  298.  Mess '                                                         ' ;
  299.  Mess ' Conditions limites                                      ' ;
  300.  mess ' On attend des éléments de type QUAF 2D (TRI7 ou QUA9)'    ;
  301.  mess ' Le maillage contient des éléments de type ' el            ;
  302.  Mess '*********************************************************' ;
  303.  Mess                                                             ;
  304.  ERREUR 21                                                        ;
  305.  quitter VERTYTAB                                       ;
  306.   Finsi                                                 ;
  307.  FIN BTYEL                                              ;
  308.  FINSI                                                  ;
  309.  
  310.  FINSI                                                  ;
  311.  
  312.  
  313.  
  314.  quitter VERTYTAB;
  315. FINSI ;
  316.  
  317.  ARGU KAS/'ENTIER'
  318.       rxt/'TABLE'
  319.       lxt/'LISTMOTS'
  320.       entree*mot typr*mot 
  321.       lco/'MOT'    ;
  322. *******************************************************************
  323. Si (Exist rxt) ;
  324.  Si (non (exist rxt entree));
  325.  Mess '*********************************************************' ;
  326.  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  327.  Mess '                                                         ' ;
  328.  Mess 'L entree ' ENTREE ' n existe pas dans la table ' ;
  329.  Mess '                                                         ' ;
  330.  Mess '*********************************************************' ;
  331.  erreur 21 ;
  332.  quitter VERTYTAB;
  333.  Finsi ;
  334.  
  335. Si (non (exist lco));
  336.  Si(NON ('EGA' TYPR (TYPE rxt.entree))) ;
  337.  Mess '***********************************************************' ;
  338.  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  339.  Mess '                                                         ' ;
  340.   Mess ' On attend un ' TYPR ' pour l entree ' entree ' de la table';
  341.  Mess '                                                         ' ;
  342.  Mess '***********************************************************' ;
  343.   erreur 21 ;
  344.  Finsi ;
  345. Sinon;
  346.  Si((NON ('EGA' TYPR (TYPE rxt.entree)))
  347.  et (NON ('EGA' lco  (TYPE rxt.entree))) ) ;
  348.  Mess '***********************************************************' ;
  349.  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  350.  Mess '                                                         ' ;
  351.   Mess ' On attend un ' TYPR ' ou un ' lco
  352.                              ' pour l entree ' entree ' de la table';
  353.  Mess '                                                         ' ;
  354.  Mess '***********************************************************' ;
  355.   erreur 21 ;
  356.  Finsi ;
  357.  
  358. Finsi;
  359.  
  360.  quitter VERTYTAB;
  361.  
  362. Finsi ;
  363.  
  364. Si (Exist lxt)                                                    ;
  365.  
  366.  Si (non (exist lxt entree));
  367.  Mess '*********************************************************' ;
  368.  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  369.  Mess '                                                         ' ;
  370.  Mess 'Le mot ' ENTREE ' n existe pas dans la liste ' ;
  371.  Mess '                                                         ' ;
  372.  Mess 'Le contenu de la liste est ';
  373.  list lxt ;
  374.  Mess '                                                         ' ;
  375.  Mess '*********************************************************' ;
  376.  
  377.  erreur 21 ;
  378.  quitter VERTYTAB;
  379.  Finsi ;
  380.  
  381. Finsi ;
  382.  
  383. Si (Exist lco);
  384.  
  385.  Mess '*********************************************************' ;
  386.  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  387.  Mess '                                                         ' ;
  388.  Mess lco                                             ;
  389.  Mess '                                                         ' ;
  390.  Mess '                                                         ' ;
  391.  Mess '*********************************************************' ;
  392.  
  393.  erreur 21 ;
  394.  quitter VERTYTAB;
  395.  
  396. Finsi ;
  397.  
  398. FINPROC ;
  399.  
  400.  
  401.  

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