Procedures | Cast3M

   1 : * TRTRAJEC  PROCEDUR  ELOI      95/10/02    21:20:21     1816           
   2 :  'DEBPROC' TRTRAJEC UUUU*'TABLE'  ;
   3 : *        CREATION D UN MAILLAGE DE SEG2 POUR TRACER DES TRAJECTOIRES
   4 : *              UUUU EST UNE TABLE RESULTAT DE L'OPERATEUR TRAJEC
   5 :  NBPART = 'DIME' UUUU.'MTABX' ;
   6 :  'SI' ('EXIS' UUUU 'MTABZ') ;
   7 : *                          CAS DU 3D
   8 :    I=1 ;
   9 :    CROB = 'QUEL' 'SEG2' (UUUU.'MTABX'.I) (UUUU.'MTABY'.I)
  10 :                                          (UUUU.'MTABZ'.I) ;
  11 :    NBPART = NBPART - 1 ;
  12 :    'SI' ( NBPART > 0 ) ;
  13 :       'REPETER' BLOC1 NBPART ;
  14 :             I=I+1 ;
  15 :             LIG1 = 'QUEL' 'SEG2' (UUUU.'MTABX'.I) (UUUU.'MTABY'.I)
  16 :                                                   (UUUU.'MTABZ'.I) ;
  17 :             CROB= CROB 'ET' LIG1 ;
  18 :       'FIN' BLOC1 ;
  19 :    'FINSI' ;
  20 : *
  21 :  'SINON' ;
  22 : *                             CAS 2D
  23 :     I=1 ;
  24 :     CROB = 'QUEL' 'SEG2' (UUUU.'MTABX'.I) (UUUU.'MTABY'.I) ;
  25 :     NBPART = NBPART - 1 ;
  26 :    'SI' ( NBPART > 0 ) ;
  27 :       'REPETER' BLOC2 NBPART ;
  28 :             I=I+1 ;
  29 :             LIG1 = 'QUEL' 'SEG2' (UUUU.'MTABX'.I) (UUUU.'MTABY'.I) ;
  30 :             CROB= CROB 'ET' LIG1 ;
  31 :       'FIN' BLOC2 ;
  32 :    'FINSI' ;
  33 :  'FINSI' ;
  34 :  'FINPROC' CROB ;
  35 :