Procedures | Cast3M

   1 : * PECHE     PROCEDUR  PASCAL    13/01/29    21:16:09     7685           
   2 : 'DEBPROC' PECHE TT*TABLE NOM*MOT VAL/FLOTTANT MOT1/'MOT';                       
   3 :                                                                                
   4 : 'SI' ( 'EXIS'  TT  'TEMPS' );                                   
   5 :                                                                                
   6 : *----------- TRAITEMENT D'UNE TABLE FORMAT DE PASAPAS ---------------           
   7 :                                                                                
   8 :    'SI' ('EXIS' MOT1) ;
   9 :      IPOL1   = 'EGA' MOT1 'IPOL' ;
  10 :    'SINO' ;
  11 :      IPOL1   = FAUX ;
  12 :    'FINS' ;
  13 :    TT1 = TT . NOM ; 
  14 :    TT2 = TT . 'TEMPS';                                                          
  15 :    NDIM = 'DIME' TT2 ;                                                          
  16 :    JIMPRIM = 'VALEUR' 'IMPI' ;                                                  
  17 :    'SI' ( 'EXIS' VAL ) ;                                                        
  18 :      ICOMP = -1 ;                                                               
  19 :      ISUCCES = 0 ;                                                              
  20 :      VALREF = VAL * 1.E-10 ;                                       
  21 :      'REPETER' BOUC NDIM ;                                                      
  22 :         ICOMP = ICOMP + 1 ;                                                     
  23 :         VAL1  = TT2.ICOMP;                                                      
  24 :         'SI' ( 'EGA' VAL1 VAL VALREF) ;                                       
  25 :            TOTO = TT1.ICOMP ;                                              
  26 :            ISUCCES = 1 ;                                                        
  27 :            'SI' ( 'NEG'  JIMPRIM 0 ) ;                                          
  28 :               'MESS' ' ON A TROUVE UN RESULTAT AU TEMPS ' VAL1 ;                
  29 :            'FINSI';                                                             
  30 :            'QUITTER' BOUC ;                                                     
  31 :         'SINO' ;
  32 :         'SI' IPOL1 ;
  33 :            SI (VAL1 '>' VAL) ;
  34 :              ICOMPM1 = ICOMP - 1 ;
  35 :              VAL0    = TT2.ICOMPM1 ;
  36 :              NOM0    = TT1.ICOMPM1 ;
  37 :              NOM1    = TT1.ICOMP ;
  38 :              TOTO    = (VAL - VAL0) / (VAL1 - VAL0) * (NOM1 - NOM0) ;
  39 :              TOTO    = NOM0 + TOTO ;
  40 :              ISUCCES = 1 ;                                                      
  41 :              'SI' ( 'NEG'  JIMPRIM 0 ) ;                                        
  42 :                 'MESS' ' ON A TROUVE UN RESULTAT AU TEMPS ' VAL1 ;
  43 :              'FINSI';                                                           
  44 :              'QUITTER' BOUC ;                                                   
  45 :            FINS ;
  46 :         'FINS' ;
  47 :         'FINSI' ;                                                               
  48 :      'FIN' BOUC ;                                                               
  49 :    'SINON';                                                                     
  50 :       TOTO = TT1.(NDIM - 1) ;                                                
  51 :       ISUCCES = 1 ;                                                             
  52 :    'FINSI' ;                                                                    
  53 :    'SI' ( ISUCCES 'EGA' 0 ) ;                                                  
  54 :       'ERREUR' '*** On n a pas trouve le résultat cherché.' ;                  
  55 :    'FINSI' ;                                                                   
  56 :                                                                                
  57 : 'SINON';
  58 : 
  59 :    'SI' ( 'EXIS' TT  'RESUDEPL'  );                                   
  60 :                                                                                
  61 : *------------ TRAITEMENT D'UNE TABLE ISSUE DE NONLIN --------------             
  62 :       
  63 :       TT1 = TT . NOM ;                                                          
  64 :       TTIND = 'INDEX' TT1 ;                                                     
  65 :       NDIM = 'DIME' TTIND ;                                                     
  66 :       JIMPRIM = 'VALEUR' 'IMPI' ;                                               
  67 :       'SI' ( 'EXIS' VAL ) ;                                                     
  68 :          ICOMP = 0 ;                                                            
  69 :          ISUCCES = 0 ;                                                          
  70 :          VALREF = TTIND . NDIM * 1.E-6 ;                                        
  71 :          'REPETER' BOUC NDIM ;                                                  
  72 :             ICOMP = ICOMP + 1 ;                                                 
  73 :             VAL1 =  TTIND . ICOMP ;                                             
  74 :             'SI' ( 'EGA' VAL1 VAL  VALREF ) ;                                   
  75 :                TOTO = TT1 . ( TTIND . ICOMP ) ;                                 
  76 :                ISUCCES = 1 ;                                                    
  77 :                'SI' ( 'NEG'  JIMPRIM 0 ) ;                                      
  78 :                   'MESS' ' ON A TROUVE UN RESULTAT AU TEMPS ' VAL1;             
  79 :                'FINSI';                                                         
  80 :                'QUITTER' BOUC ;                                                 
  81 :             'FINSI' ;                                                           
  82 :          'FIN' BOUC ;                                                           
  83 :       'SINON';                                                                  
  84 :          TOTO = TT1 . ( TTIND . NDIM  ) ;                                       
  85 :          ISUCCES = 1 ;                                                          
  86 :       'FINSI' ;                                                                 
  87 :       'SI' ( ISUCCES 'EGA' 0 ) ;                                                
  88 :         'ERREUR' '*** On n a pas trouve le résultat cherché.' ;                 
  89 :       'FINSI' ; 
  90 :    'SINON'; 
  91 :   'ERRE' '*** La table fournie ne convient pas';                                
  92 :    'FINSI';
  93 : 'FINSI';                                                                        
  94 : 'FINPROC' TOTO ;
  95 :