Télécharger la plaquette Cast3M


fr en

Télécharger pas_verm.procedur

Retour à la liste

Numérotation des lignes : 

  1. * PAS_VERM  PROCEDUR  MB234859  24/03/18    21:15:19     11873          
  2. 'DEBPROC' PAS_VERM PRECED*'TABLE' chetat1*'MCHAML';
  3. *---------- verifications qu'il existe bien les donnees necessaires
  4. *---------- au matériaux
  5. conti=PRECED.'CONTINUATION';
  6. WTAB=PRECED.'WTABLE';
  7. LDEVA = 'EXTR' WTAB.'CARACTERISTIQUES' 'DEVA';                      
  8. LPAR0 = 'EXTR' WTAB.'MODELE' 'PARA';      
  9. LDEVA_DI = 'DIME' LDEVA;
  10. nocom='EXTR'  CHETAT1 'COMP';
  11. 'SI' ('NEG' LDEVA_DI 0);
  12.  
  13.    'REPETER' BOU_VA1 LDEVA_DI;                                       
  14.         ITE1 = &BOU_VA1;                                               
  15.         NOM1 = 'EXTR' LDEVA ITE1;
  16.         'SI' (WTAB.'FREQUENTIEL' 'ET' ('EGA' NOM1 'FREQ')) ; 'ITER' BOU_VA1 ; 'FINSI' ;
  17.         'SI' (WTAB.'FOR_METALLU' 'ET' ('EGA' NOM1 'TPOI')) ; 'ITER' BOU_VA1 ; 'FINSI' ;
  18.         'SI' ('NON' ('EXISTE'   nocom NOM1)); 
  19.            'MESS' 'Il manque la variable ' NOM1 ;                       
  20.            'ERRE'  ' '; 
  21.         'FINSI' ;
  22.    'FIN' BOU_VA1;
  23.    'SI' WTAB.'FOR_MECA' ;
  24.      MA = 'VIDE' 'MCHAML' ;
  25.      'SI' WTAB.'MEC1' ;
  26.        MA = MA 'ET' (WTAB.'MAT_MEC') ;
  27.      'FINSI' ;
  28.      'SI' WTAB.'POR1' ;
  29.        MA = MA 'ET' WTAB.'MAT_POR' ;
  30.      'FINSI' ;
  31.      'SI' ('EXIS' WTAB 'MAT_CHA') ;
  32.        MA = MA 'ET' WTAB.'MAT_CHA' ;
  33.      'FINSI' ;
  34.      LDEVAM='EXTR' MA 'DEVA';     
  35.      LDEVA_DM = 'DIME' LDEVAM;   
  36.      'SI' ('NEG' LDEVA_DM 0);
  37.         'SI' ('NON' (('EGA' LDEVA_DM 1) 'ET' 
  38.              ( 'EGA' (LDEVAM 'EXTR' 1) 'ALPH' ) ));
  39.             WTAB.'RECARI'= VRAI;
  40.         'FINSI';
  41.         WTAB.'MATVAR'=VRAI;WTAB.'LDEVA'=LDEVAM;
  42.         'SI' WTAB.'FREQUENTIEL' ; WTAB.'MATVAR'= FAUX; 'FINSI';
  43.      'FINSI';
  44.    'FINSI';  
  45. 'FINSI';
  46. *------- le modèle depend-t-il de parametres externes? Si oui verification
  47. *------- de leur presence.
  48. 'SI' WTAB.'PARA_EXTE';
  49.     TEMP0=conti.'TEMPS';
  50.     LPAR0_DI = 'DIME' LPAR0;                                                    
  51.    'REPETER' BOU_PA1 LPAR0_DI;                                                  
  52.        NOM1 = 'EXTR' LPAR0 &BOU_PA1; 
  53.        'SI' ('NON' ('EXISTE'   nocom NOM1)); 
  54.             'MESS' 'Il manque la variable ' NOM1  ;                      
  55.             'ERRE'  ' '; 
  56.        'FINSI';  
  57.    'FIN' BOU_PA1;   
  58.    'SI' WTAB.'FOR_MECA' ;
  59.      WTAB.'PARA_EXTE'=FAUX;
  60.      'SI'  WTAB.'MEC1' ; 
  61.         MO=WTAB.'MOD_MEC'; 
  62.         'SI' WTAB.'POR1' ;
  63.           MO= MO 'ET' WTAB.'MOD_POR';
  64.         'FINSI';
  65.      'SINON';
  66.         MO=WTAB.'MOD_POR';
  67.      'FINSI';                 
  68.      LPAR0 = 'EXTR' MO 'PARA'; 
  69.      LPAR0_DI = 'DIME' LPAR0;
  70.      'SI' ( LPAR0_DI  'NEG' 0) ;
  71.        WTAB.'PARA_EXTE'=VRAI;
  72.        WTAB.'LPAR0'= LPAR0 ;
  73.      'FINSI';
  74.    'FINSI';
  75. 'FINSI';                                           
  76. 'FINPROC';
  77.  
  78.  
  79.  

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