Procedures | Cast3M

   1 : * THERMIC   PROCEDUR  JEANV     95/05/09    21:15:37     1655           
   2 : 'DEBPROC' THERMIC ;                                                             
   3 : *----------------------------------------------------------------------*        
   4 : *                                                                      *        
   5 : *                             T H E R M I C                            *        
   6 : *                             -------------                            *        
   7 : *                                                                      *        
   8 : * FONCTION:                                                            *        
   9 : * ---------                                                            *        
  10 : *                                                                      *        
  11 : *     LA PROCEDURE "THERMIC" TRAITE DU PROBLEME SUIVANT :              *        
  12 : *                                                                      *        
  13 : *     - LE REGIME PERMANENT NON-LINEAIRE                               *        
  14 : *                                                                      *        
  15 : * PHRASE D'APPEL (EN GIBIANE):                                         *        
  16 : * ----------------------------                                         *        
  17 : *                                                                      *        
  18 : *     THERMIC   ( MOTCLE )   ETAB   ;                                  *        
  19 : *                                                                      *        
  20 : * OPERANDES ET RESULTATS:                                              *        
  21 : * -----------------------                                              *        
  22 : *                                                                      *        
  23 : *     MOTCLE                UN MOT CARACTERISANT LE                    *        
  24 : *                           TYPE DE CALCUL ENTREPRIS :                 *        
  25 : *                                                                      *        
  26 : *     NONLINEAIRE                                                      *        
  27 : *                                                                      *        
  28 : *                                                                      *        
  29 : *     ETAB                  TABLE CONTENANT EN ENTREE LES OPERANDES    *        
  30 : *                           ET EN SORTIE LES CHAMPS DE TEMPERATURE     *        
  31 : *                                                                      *        
  32 : *                           ETAB EST DE SOUS-TYPE 'THERMIQUE'          *        
  33 : *                                                                      *        
  34 : * AUTEUR, DATE DE CREATION:                                            *        
  35 : * -------------------------                                            *        
  36 : *                                                                      *        
  37 : *     D.R., LE 7 NOVEMBRE 1988. VERSION DU 18 JANVIER 1989.            *        
  38 : *                                                                      *        
  39 : *----------------------------------------------------------------------*        
  40 : IERREUR = 0 ;                                                                   
  41 : 'REPETER' PROC 1 ;                                                              
  42 : *                                                                               
  43 : *  TRAITEMENT DES MOTS-CLES                                                     
  44 : *                                                                               
  45 : 'ARGUMENT' MOTCLE1*'MOT     ' ;                                                 
  46 : *                                                                               
  47 : 'SI' ( 'EGA' MOTCLE1 'NONLINEAIRE2' ) ;                                         
  48 : *                                                                               
  49 : *---  CAS DU PERMANENT NON-LINEAIRE, METHODE DES RESIDUS                        
  50 : *                                                                               
  51 :    'ARGUMENT' ETAB*'TABLE   ' ;                                                 
  52 :     TRANSIT0 ETAB ;                                                             
  53 :    'QUITTER' PROC ;                                                             
  54 : 'FINSI';                                                                        
  55 : *                                                                               
  56 : 'SI' ( 'EGA' MOTCLE1 'NONLINEAIRE' ) ;                                          
  57 : *  TYP_PRO4 = 'TYPE' TRANSIT1 ;                                                 
  58 : *  'SI' ( 'NEG' TYP_PRO4 'PROCEDUR' ) ;                                         
  59 : *     IERREUR = 2 ;                                                             
  60 : *     MOPROC = '"TRANSIT1"' ;                                                   
  61 : *     'QUITTER' PROC ;                                                          
  62 : *  'FINSI' ;                                                                    
  63 :    'ARGUMENT' ETAB*'TABLE   ' ;                                                 
  64 : *                                                                               
  65 : *---  CAS DU PERMANENT NON-LINEAIRE, METHODE DU POINT-FIXE                      
  66 : *                                                                               
  67 :    TRANSIT1 ETAB ;                                                              
  68 :    'QUITTER' PROC ;                                                             
  69 : 'SINON' ;                                                                       
  70 :    'SI' ( 'EGA' MOTCLE1 'TRANSITOIRE' ) ;                                   
  71 :       'ARGUMENT' MOTCLE2/'MOT     ' ;                                           
  72 :       'SI' ( 'EXISTE' MOTCLE2 ) ;                                               
  73 :          'SI' ( 'EGA' MOTCLE2 'NONLINEAIRE' ) ;                                 
  74 :             'ARGUMENT' MOTCLE3/'MOT     ' ;                                     
  75 :             'SI' ( 'EXISTE' MOTCLE3 ) ;                                         
  76 :                'SI' ( 'EGA' MOTCLE3 'METHODE' ) ;                               
  77 :                   'ARGUMENT' MOTCLE4/'MOT     ' ;                               
  78 :                   'SI' ( 'EXISTE' MOTCLE4 ) ;                                   
  79 :                      'SI' ( 'EGA' MOTCLE4 'POINTFIXE' ) ;                       
  80 :                         IERREUR = 3 ;                                           
  81 : *                       TYP_PRO1 = 'TYPE' TRANSIT4 ;                            
  82 : *                       'SI' ( 'NEG' TYP_PRO1 'PROCEDUR' ) ;                    
  83 : *                          IERREUR = 2 ;                                        
  84 : *                          MOPROC = '"TRANSIT4"' ;                              
  85 : *                          'QUITTER' PROC ;                                     
  86 : *                       'FINSI' ;                                               
  87 :                         'ARGUMENT' ETAB*'TABLE   ' ;                            
  88 : *                                                                               
  89 : *---  CAS DU TRANSITOIRE NONLINEAIRE METHODE POINT FIXE                         
  90 : *                                                                               
  91 : *                       TRANSIT4 ETAB ;                                         
  92 :                         'QUITTER' PROC ;                                        
  93 :                      'SINON' ;                                                  
  94 :                         'SI' ( 'EGA' MOTCLE4 'DUPONT2' ) ;                      
  95 :                            TYP_PRO2 = 'TYPE' TRANSIT3 ;                         
  96 : *                          'SI' ( 'NEG' TYP_PRO2 'PROCEDUR' ) ;                 
  97 : *                             IERREUR = 2 ;                                     
  98 : *                             MOPROC = '"TRANSIT3"' ;                           
  99 : *                             'QUITTER' PROC ;                                  
 100 : *                          'FINSI' ;                                            
 101 :                            'ARGUMENT' ETAB*'TABLE   ' ;                         
 102 : *                                                                               
 103 : *---  CAS DU TRANSITOIRE NONLINEAIRE METHODE DUPONT2                            
 104 : *   
 105 :             'MESS' 'La thermique transitoire à été débranchée';
 106 :             'MESS' 'Veuillez utiliser la procédure PASAPAS';
 107 :             'QUITTER' PROC;                                                     
 108 :                            TRANSIT3 ETAB ;                                      
 109 :                            'QUITTER' PROC ;                                     
 110 :                         'SINON' ;                                               
 111 :                            IERREUR = 1 ;                                        
 112 :                            'QUITTER' PROC ;                                     
 113 :                         'FINSI' ;                                               
 114 :                      'FINSI' ;                                                  
 115 :                   'SINON' ;                                                     
 116 :                      IERREUR = 1 ;                                              
 117 :                      'QUITTER' PROC ;                                           
 118 :                   'FINSI' ;                                                     
 119 :                'SINON' ;                                                        
 120 :                   IERREUR = 1 ;                                                 
 121 :                   'QUITTER' PROC ;                                              
 122 :                'FINSI' ;                                                        
 123 :             'SINON' ;                                                           
 124 :                IERREUR = 1 ;                                                    
 125 :                'QUITTER' PROC ;                                                 
 126 :             'FINSI' ;                                                           
 127 :          'SINON' ;                                                              
 128 :             IERREUR = 1 ;                                                       
 129 :             'QUITTER' PROC ;                                                    
 130 :          'FINSI' ;                                                              
 131 :       'FINSI' ;                                                                 
 132 :       TYP_PRO3 = 'TYPE' TRANSIT2 ;                                              
 133 : *     'SI' ( 'NEG' TYP_PRO3 'PROCEDUR' ) ;                                      
 134 : *        IERREUR = 2 ;                                                          
 135 : *        MOPROC = '"TRANSIT2"' ;                                                
 136 : *        'QUITTER' PROC ;                                                       
 137 : *     'FINSI' ;                                                                 
 138 :       'ARGUMENT' ETAB*'TABLE   ' ;                                              
 139 : *                                                                               
 140 : *---  CAS DU TRANSITOIRE LINEAIRE                                               
 141 : * 
 142 :       'MESS' 'La thermique transitoire à été débranchée';
 143 :       'MESS' 'Veuillez utiliser la procédure PASAPAS';
 144 :       'QUITTER' PROC;                                                           
 145 :       TRANSIT2 ETAB ;                                                           
 146 :       'QUITTER' PROC ;                                                          
 147 :    'SINON' ;                                                                    
 148 :       IERREUR = 1 ;                                                             
 149 :       'QUITTER' PROC ;                                                          
 150 :    'FINSI' ;                                                                    
 151 : 'FINSI' ;                                                                       
 152 : 'FIN' PROC ;                                                                    
 153 : *                                                                               
 154 : 'SI' ( IERREUR 'EGA' 1 ) ;                                                      
 155 :    'SAUTER' 1 'LIGNE' ;                                                         
 156 :    'MESS' '***** ERREUR  *****' ;                                               
 157 :    'MESS' 'PROCEDURE "THERMIC" : MOT(S)-CLE(S) INCORRECT(S) |';                 
 158 : 'SINON' ;                                                                       
 159 :    'SI' ( IERREUR 'EGA' 2 ) ;                                                   
 160 :       'SAUTER' 1 'LIGNE' ;                                                      
 161 :       'MESS' '***** ERREUR  *****' ;                                            
 162 :       'MESS' 'LA PROCEDURE ' MOPROC ' A DISPARU |';                             
 163 :    'SINON' ;                                                                    
 164 :       'SI' ( IERREUR 'EGA' 3 ) ;                                                
 165 :          'SAUTER' 1 'LIGNE' ;                                                   
 166 :          'MESS' '***** ERREUR  *****' ;                                         
 167 :          'MESS' 'CETTE OPTION EST ACTUELLEMENT INDISPONIBLE |';                 
 168 :       'FINSI' ;                                                                 
 169 :    'FINSI' ;                                                                    
 170 : 'FINSI' ;                                                                       
 171 : *                                                                               
 172 : 'FINPROC' ETAB ;