Procedures | Cast3M

   1 : * TRADUIRE  PROCEDUR  NOBODY    92/01/01    00:00:00     001                    
   2 : *********************************************************************           
   3 : *                                                                               
   4 : *         La proc{dure TRADUIRE sert @ transformer :                            
   5 : *               un objet SOLUTION en un objet TABLE                             
   6 : *           ou, un objet TABLE en un objet SOLUTION.                            
   7 : *                                                                               
   8 : *********************************************************************           
   9 : 'DEBPROC'  TRADUIRE   OBJ_SOL/SOLUTION  OBJ_TAB/TABLE ;                         
  10 : *                                                                               
  11 :    'SI' ('EXISTE' OBJ_SOL) ;                                                    
  12 :       MOT_TYPE = 'TYPE' OBJ_SOL ;                                               
  13 :    'FINSI' ;                                                                    
  14 :    'SI' ('EXISTE' OBJ_TAB) ;                                                    
  15 :       MOT_TYPE = 'TYPE' OBJ_TAB ;                                               
  16 :    'FINSI' ;                                                                    
  17 : *                                                                               
  18 : *------------------------------------------------------                         
  19 : * 1 - Traduire un objet SOLUTION en un objet TABLE                              
  20 : *------------------------------------------------------                         
  21 :    'SI' ('EGA' MOT_TYPE 'SOLUTION') ;                                           
  22 :       NBMODE = 'DIMENSION' OBJ_SOL ;                                            
  23 :       TTRAD= 'TABLE' 'BASE_DE_MODES' ;                                          
  24 :       DEPG_1 = 'TIRE' OBJ_SOL 'DEPL' 'RANG' 1 ;                                 
  25 :       MAILASS = 'EXTRAIRE' DEPG_1 MAIL ;                                        
  26 :       TTRAD.'MAILLAGE' = MAILASS ;                                              
  27 :       I = 0 ;                                                                   
  28 :       'REPETER' BOUC_TAB NBMODE ;                                               
  29 :          I = I '+' 1 ;                                                          
  30 :          TMK = 'TABLE' 'MODE' ;                                                 
  31 :          TTRAD.I = TMK ;                                                        
  32 : *                                                                               
  33 :          FREQ_I = 'TIRE' OBJ_SOL 'FREQ' 'RANG' I ;                              
  34 :          MGEN_I = 'TIRE' OBJ_SOL 'MGEN' 'RANG' I ;                              
  35 :          POIN_I = 'TIRE' OBJ_SOL 'POIN' 'RANG' I ;                              
  36 :          DEPG_I = 'TIRE' OBJ_SOL 'DEPL' 'RANG' I ;                              
  37 :          QQX_I  = 'TIRE' OBJ_SOL 'QX  ' 'RANG' I ;                              
  38 :          QQY_I  = 'TIRE' OBJ_SOL 'QY  ' 'RANG' I ;                              
  39 :          QQZ_I  = 'TIRE' OBJ_SOL 'QZ  ' 'RANG' I ;                              
  40 : *                                                                               
  41 :          T_DEPLG = 'TABLE' 'DEPLACEMENTS_GENERALISES' ;                         
  42 :          T_DEPLG.1 = QQX_I ;                                                    
  43 :          T_DEPLG.2 = QQY_I ;                                                    
  44 :          T_DEPLG.3 = QQZ_I ;                                                    
  45 : *                                                                               
  46 :          TMK.'POINT_REPERE' = POIN_I ;                                          
  47 :          TMK.'FREQUENCE' = FREQ_I;                                              
  48 :          TMK.'MASSE_GENERALISEE' = MGEN_I ;                                     
  49 :          TMK.'DEPLACEMENTS_GENERALISES' = T_DEPLG ;                             
  50 :          TMK.'DEFORMEE_MODALE' = DEPG_I ;                                       
  51 :       'FIN' BOUC_TAB ;                                                          
  52 :    'FINSI' ;                                                                    
  53 : *-----------------------------------------------------                          
  54 : * 2 - Traduire un objet TABLE en un objet SOLUTION                              
  55 : *-----------------------------------------------------                          
  56 :    'SI' ('EGA' MOT_TYPE 'TABLE   ') ;                                           
  57 :       'MESSAGE' '**************************************************' ;          
  58 :       'MESSAGE' '   ' ;                                                         
  59 :       'MESSAGE' '         ON NE TRAITE PAS L"OBJET TABLE.' ;                    
  60 :       'MESSAGE' '   ' ;                                                         
  61 :       'MESSAGE' '**************************************************' ;          
  62 :    'FINSI' ;                                                                    
  63 : 'FINPROC' TTRAD ;