Procedures | Cast3M

   1 : * MULC      PROCEDUR  GOUNAND   12/12/06    21:15:17     7595           
   2 : *
   3 : DEBPROC MULC ZCHPO1*CHPOINT ZCHPO2*CHPOINT ;
   4 : *
   5 : *
   6 : ****************************************************
   7 : *
   8 : *       PROCEDUR MULT1 : MULTIPLICATION DE DEUX 

   9 : *         CHPOINTS DE MEME SUPPORT GEOMETRIQUE
  10 : *         MULTIPLICATION TERME A TERME
  11 : *
  12 : *   SYNTAXE
  13 : *   -------
  14 : *
  15 : *     CHRES = MULC CH1 CH2 ;
  16 : *
  17 : *    APPELE PAR SISSI
  18 : ****************************************************
  19 : *
  20 : * Ancienne programmation
  21 : *
  22 : *ZCHRE1 = ZCHPO1 * 0. ;
  23 : *ZLCOMP1 = 'EXTR' ZCHPO1 'COMP' ;
  24 : *ZNCO1 = 'DIME' ZLCOMP1 ;
  25 : *II = 0 ;
  26 : *'REPETER' BCOMP1 ZNCO1 ;
  27 : *II = II '+' 1 ;
  28 : *ZNOMC1 = 'EXTR' ZLCOMP1 II ;
  29 : *ZAUX = 'EXCO' ZCHPO1 ZNOMC1 ;
  30 : *ZAUX2 = 'EXCO' ZCHPO2 ZNOMC1 ;
  31 : *ZRESU = ZAUX * ZAUX2 ;
  32 : *ZRESU = 'NOMC' ZNOMC1 ZRESU ;
  33 : *ZCHRE1 = ZCHRE1 '+' ZRESU ;
  34 : *'FIN' BCOMP1 ;
  35 : *
  36 : *
  37 : *'MENAGE' ;
  38 : * Nouvelle programmation
  39 : ZLCOMP1 = 'EXTR' ZCHPO1 'COMP' ;
  40 : ZCHRE1  = '*' ZCHPO1 ZCHPO2 ZLCOMP1 ZLCOMP1 ZLCOMP1 ;
  41 : 'FINPROC'  ZCHRE1 ;
  42 : *
  43 : *
  44 :