Procedures | Cast3M

   1 : * DESCOUR   PROCEDUR  CHAT      93/01/08    21:15:21     780            
   2 :  'DEBPROC' DESCOUR  TAB*'TABLE' I*'ENTIER'  BLOCI*'MAILLAGE'      
   3 :               MM*'MOT'     J*'FLOTTANT' ;                               
   4 : *******************************************************************     
   5 : *       DESCRIPTION D UNE ZONE DE COURANTS                        *     
   6 : *       TAB   TABLE   QUI CONTIENDRA LE DESCIPTIF DE TOUTES LES   *     
   7 : *                          ZONES DE COURANTS                      *     
   8 : *       I        NUMERO D ORDRE  DE LA ZONE DE COURANT            *     
   9 : *       BLOCI    ZONE DE COURANT TYPE MAILLAGE                    *     
  10 : *       MM       MOT   'AMP'  OU  'AT'                            *     
  11 : *       J        FLOTTANT   DENSITE DE COURANT OU AMPERES TOURS   *     
  12 : *******************************************************************     
  13 :  STN= TABLE ;                                                           
  14 :  STN.'GEO'= BLOCI ;                                                     
  15 :      'SI' ( 'EGA' MM 'AMP') ;                                               
  16 :      STN.'AMP' =  J ;   
  17 :      'FINSI' ;                                                
  18 :      'SI' ( EGA MM 'AT' )  ;                                                    
  19 :      STN.'AT' = J ;                                                     
  20 :      'FINSI' ;
  21 :      'SI' ( 'EGA' MM 'FIL' ) ;
  22 :      STN.'FIL' = J ;
  23 :      'FINSI' ;                                                            
  24 :  TAB.I= STN ;                                                           
  25 :  'FINPROC' ;