Procedures | Cast3M

   1 : * @FIS_1    PROCEDUR  CHAT      97/09/25    21:15:04     2851           
   2 :    debproc @FIS_1 tab1*table tab2*table ;                                  
   3 :    i = 0 ;                                                              
   4 :    nbnol = dime tab1 ;                                                  
   5 :    nbcon = dime tab2 ;                                                  
   6 :    si (ega nbnol nbcon) ;                                               
   7 :     repe bouc1 nbnol ;                                                  
   8 :      i = i + 1 ;                                                        
   9 :      m = i ;                                                            
  10 :      j = 0 ;                                                            
  11 :      repe bouc2 nbnol ;                                                 
  12 :       j = j + 1 ;                                                       
  13 :       si ((tab1 . j) > (tab1 . m)) ;                                    
  14 :        m = j ;                                                          
  15 :        tempoa = tab1 . m ;                                              
  16 :        tab1 . m = tab1 . i ;                                            
  17 :        tab1 . i = tempoa ;                                              
  18 :        tempod = tab2 . m ;                                              
  19 :        tab2 . m = tab2 . i ;                                            
  20 :        tab2 . i = tempod ;                                              
  21 :       finsi ;                                                           
  22 :      fin bouc2 ;                                                        
  23 :     fin bouc1 ;                                                         
  24 :    sinon ;                                                              
  25 :     mess ' ATTENTION !!!  ERREUR DANS LES TABLES ' ;                    
  26 :    finsi ;                                                              
  27 :    finproc tab2 ;                                                               
  28 :