Procedures | Cast3M

   1 : * PAS_SAUV  PROCEDUR  CHAT      11/05/04    21:17:42     6965           
   2 : * SP DIFF :
   3 : 'DEBPROC' PAS_SAUV PRECED*'TABLE' TT/'TABLE' TEMP0*'FLOTTANT'
   4 :    NSOR*'ENTIER'  MEC1*'LOGIQUE'  THE1*'LOGIQUE' DIF1*'LOGIQUE' ;
   5 : 
   6 :    estim = PRECED.'ESTIMATION' ;
   7 :    WTAB  = PRECED.'WTABLE';
   8 :    TABSAUV = WTAB.'TABSAUV';
   9 : *############################################################
  10 : * ne pas modifier avant cette ligne ( do not modified before this line)
  11 : *############################################################
  12 : * debut des conservations
  13 : * Les grandeurs a sauver sont issues de la table 'ESTIMATION' mais 
  14 : * peuvent aussi etre recuperees (avec precaution) de la table TT de 
  15 : * sortie de la procedure UNPAS (mecanique)
  16 : * ( Start storage
  17 : *   The fields to be saved come from the 'ESTIMATION' table but can 
  18 : *   also be extracted (with care) from the TT table output of UNPAS
  19 : *   (mechanics) )
  20 : *
  21 : * conserve le temps ( store time)
  22 : *
  23 :   PRECED.'TEMPS'.NSOR = TEMP0;
  24 : *
  25 : * en cas de mécanique ( in case of mechanics)                           
  26 : *
  27 :   'SI' MEC1 ;
  28 : *
  29 : * conserve les déplacements (store displacements)
  30 : *                                       
  31 :      PRECED.'DEPLACEMENTS'.NSOR = estim.'DEPLACEMENTS' ;
  32 : *
  33 : * conserve les vitesses ( store speeds)
  34 : * 
  35 :      'SI'  WTAB . 'DYNAMIQUE' ;                              
  36 :            PRECED.'VITESSES'.NSOR      = estim.'VITESSES' ;
  37 :            PRECED.'ACCELERATIONS'.NSOR = estim.'ACCELERATIONS' ;
  38 :      'FINSI';
  39 : *
  40 : * conserve les contraintes (store stresses)
  41 : *                            
  42 :      PRECED.'CONTRAINTES'.NSOR = estim.'CONTRAINTES' ;
  43 : *
  44 : *  conserve les réactions d'appuis, de contacts ..
  45 : *  ( store reactions from supports, from contact..)
  46 : *
  47 :      PRECED.'REACTIONS'.NSOR =  estim.'REACTIONS' ;
  48 : *
  49 : * en cas de materiau non lineaire (in case of non linear material
  50 : * 
  51 :       'SI' WTAB.'IPLAVI'; 
  52 : *
  53 : *  conserve variables internes ( store internal variables)
  54 : * 
  55 :          PRECED.'VARIABLES_INTERNES'.NSOR = estim.'VARIABLES_INTERNES' ;
  56 : *
  57 : * conserve deformations inelastiques (store inelastic strains)
  58 : *
  59 :         'SI' TABSAUV.'DEFIN';
  60 :            PRECED.'DEFORMATIONS_INELASTIQUES'.NSOR
  61 :                  = estim.'DEFORMATIONS_INELASTIQUES' ;
  62 :         'FINSI';
  63 : *
  64 : * conserve les deformations totales (store inelastic strains)
  65 : *
  66 :           'SI'  TABSAUV.'DEFTO';                                        
  67 :               PRECED.'DEFORMATIONS'.NSOR = estim.'DEFORMATIONS' ;
  68 :           'FINSI'; 
  69 :      'FINSI';                                           
  70 :  'FINSI';
  71 : * fin de la partie mecanique (end of mechanical part)
  72 : *
  73 : * en cas de calcul thermique (in case of thermal analysis)   
  74 :  'SI' THE1;                                                     
  75 :        PRECED.'TEMPERATURES'.NSOR = WTAB.'TET2';                    
  76 :        'SI' WTAB.'PHASE' ;                                       
  77 :            PRECED.'PROPORTIONS_PHASE'.NSOR = WTAB.'PROPPHAS';       
  78 :        'FINSI';                                                    
  79 :  'FINSI'; 
  80 : * SP DIFF :
  81 :  'SI' DIF1 ;
  82 :    PRECED.'CONCENTRATIONS'.NSOR = WTAB.'CO2';                    
  83 :  'FINS' ;
  84 : *###########  ne pas modifier apres cette ligne ############# 
  85 : 
  86 : *-----------------------------------------------------------------------
  87 : *---  on se pose la question de la sauvegarde incrementale 
  88 : *---  et de la fantomisation (option economique)
  89 : *-----------------------------------------------------------------------
  90 :  'SI' WTAB.'ISAUVEGL';                                       
  91 :       'SI' ( TEMP0 'DANS' WTAB.'ISAUVEGA');                    
  92 :            'SAUV' PRECED; 
  93 :           'SI' WTAB.'LECONOMI';                                   
  94 :              NFFSOR=NSOR - WTAB.'NFSOR' - 1;                       
  95 :              'SI' ( NFFSOR > 0) ;                                       
  96 :                'REPETER' DETRES  NFFSOR;                                
  97 :                 NSORM2 = WTAB.'NFSOR' - 1 + &DETRES;    
  98 :                'SI' (NSORM2 '>EG' 0);                          
  99 :                  'SI' MEC1 ;
 100 :                      'FANTOM' (PRECED.'DEPLACEMENTS') NSORM2;           
 101 :                      'FANTOM' (PRECED.'CONTRAINTES')  NSORM2;           
 102 :                      'FANTOM' (PRECED.'REACTIONS')  NSORM2;             
 103 :                      'SI' WTAB.'IPLAVI' ;                    
 104 :                         'FANTOM' (PRECED.'VARIABLES_INTERNES') NSORM2 ;
 105 :                         'SI' TABSAUV.'DEFIN';       
 106 :                   'FANTOM' (PRECED.'DEFORMATIONS_INELASTIQUES') NSORM2; 
 107 :                         'FINSI';
 108 :                         'SI' TABSAUV.'DEFTO';
 109 :                             'FANTOM' (PRECED.'DEFORMATIONS') NSORM2; 
 110 :                         'FINSI';          
 111 :                     'FINSI';                                            
 112 :                     'SI'  WTAB . 'DYNAMIQUE' ;                      
 113 :                         'FANTOM'  (PRECED.'VITESSES')  NSORM2 ;
 114 :                         'FANTOM' (PRECED.'ACCELERATIONS') NSORM2 ;      
 115 :                     'FINSI';                                            
 116 : *
 117 : *  AM+TC 24/8/09  ON MET EN COMMENTAIRE LES 3 LIGNES QUI SUIVENT
 118 : *                   'SI' WTAB.'ITCAR';
 119 : *                       'FANTOM'  PRECED.'CARA_ACTU'  NSORM2 ;
 120 : *                   'FINSI';                      
 121 :                  'FINSI';                                               
 122 :                  'SI' THE1 ;
 123 :                     FANTOM (PRECED.'TEMPERATURES') NSORM2 ;             
 124 :                     'SI' WTAB.'PHASE' ;                               
 125 :                        'FANTOM' (PRECED.'PROPORTIONS_PHASE') NSORM2;    
 126 :                     'FINSI';                                            
 127 :                  'FINSI';                                               
 128 : * SP DIFF :
 129 :                  'SI' DIF1 ;
 130 :                     FANTOM (PRECED.'CONCENTRATIONS') NSORM2 ;             
 131 :                  'FINS' ;
 132 :                'FINSI';                                                 
 133 :                'FIN' DETRES; 
 134 :                WTAB.'NFSOR'= WTAB.'NFSOR' + NFFSOR ;
 135 :              'FINSI';                                  
 136 :           'FINSI'; 
 137 :       'FINSI';                                                   
 138 :  'FINSI';  
 139 : 
 140 : 'FINP';
 141 : 
 142 :  
 143 :  
 144 :  
 145 :