Procedures | Cast3M

   1 : * PAS_RESU  PROCEDUR  CHAT      11/03/16    21:28:48     6902           
   2 : DEBPROC PAS_RESU TEMP0*'FLOTTANT' IAUTO*'ENTIER'
   3 :                   PRECED*'TABLE' TT/'TABLE' ;
   4 : 
   5 : wtab=preced.'WTABLE'; ipresu=WTAB.'IPRESU';
   6 : NAURES=WTAB.'NAURES';
   7 : MEC1=WTAB.'FOR_MECA';
   8 : THE1=WTAB.'FOR_THER';
   9 : * SP DIFF :
  10 : DIF1=WTAB.'FOR_DIFF';
  11 : ITCAR=WTAB.'ITCAR';
  12 : DT1=WTAB.'DT'; NSOR=WTAB.'NSOR';                                   
  13 : 
  14 : * Recuperation de la table 'ESTIMATION' des champs en fin de pas :
  15 : estim = PRECED.'ESTIMATION' ;
  16 : 
  17 : * remplissage de la table de 'CONTINUATION' a partir de 'ESTIMATION'
  18 : 'SI' ( 'EXIS' PRECED 'CONTINUATION' );
  19 :   conti=PRECED.'CONTINUATION';
  20 : 'SINON';
  21 :   conti= 'TABLE' ; PRECED.'CONTINUATION'=conti;
  22 : 'FINSI';  
  23 : *
  24 : conti.'TEMPS'=TEMP0;
  25 : *
  26 :   'SI' MEC1 ;
  27 :     conti.'DEPLACEMENTS' = estim.'DEPLACEMENTS' ;
  28 :     conti.'CONTRAINTES'  = estim.'CONTRAINTES' ;
  29 :     conti.'REACTIONS'    = estim.'REACTIONS' ;
  30 :     'SI' WTAB.'IPLAVI';   
  31 :        conti.'DEFORMATIONS'       = estim.'DEFORMATIONS' ;
  32 :        conti.'VARIABLES_INTERNES' = estim.'VARIABLES_INTERNES' ;
  33 :        conti.'DEFORMATIONS_INELASTIQUES'
  34 :             = estim.'DEFORMATIONS_INELASTIQUES' ;
  35 :     'FINSI';                                                    
  36 :     'SI'  WTAB . 'DYNAMIQUE' ;                              
  37 :         conti.'VITESSES'      = estim.'VITESSES' ;
  38 :         conti.'ACCELERATIONS' = estim.'ACCELERATIONS' ;
  39 :     'FINSI';                                                    
  40 :     'SI' ITCAR;                                                 
  41 :        conti.'CARA_ACTU' = estim.'CARA_ACTU' ;
  42 :     'FINSI'; 
  43 :   'FINSI';
  44 :   
  45 :   'SI' THE1; 
  46 : *??   conti.'TEMPERATURES' = estim.'TEMPERATURES' ;
  47 :       conti.'TEMPERATURES' = WTAB.'TET2'; 
  48 :        'SI' WTAB.'PHASE' ;  
  49 : *??      conti.'PROPORTIONS_PHASE' = estim.'PROPORTIONS_PHASE' ;
  50 :          conti.'PROPORTIONS_PHASE' = WTAB.'PROPPHAS';  
  51 :         'FINSI';                                                    
  52 :   'FINSI';                                                                      
  53 : 
  54 : * SP DIFF :
  55 :   'SI' DIF1 ;
  56 :       conti.'CONCENTRATIONS' = WTAB.'CO2'; 
  57 :   'FINS' ;
  58 : 
  59 : **********************************************************************  
  60 : ************* Sauvegarde eventuelle des resultats*********************  
  61 : **********************************************************************    
  62 :    ISAUV=FAUX;
  63 :    'SI' WTAB.'CONV';
  64 :      ISAUV='DANS' IPRESU TEMP0;                       
  65 :      'SI' ( 'MULT'  IAUTO NAURES ) ;               
  66 :        ISAUV=VRAI;                                                    
  67 :      'FINSI';                                
  68 :      'SI' ISAUV ;     
  69 :         NSOR=NSOR + 1;WTAB.'NSOR'=NSOR;
  70 : * SP DIFF :
  71 :         PAS_SAUV PRECED TT TEMP0 NSOR MEC1 THE1 DIF1 ;   
  72 :      'FINSI'; 
  73 :    'FINSI';                                                   
  74 : 'FINPROC' isauv ;
  75 : 
  76 :  
  77 :  
  78 :