********************************************************************
  ***** Version en pro dite pre_Futura *******************************
  ********************************************************************
  ********************************************************************

 IMPORTANT : Si vous utilisez des transferts cumules, ajouter dans le
 Zinit_Entry  Set Cumulated_Tr flag;  ou
              Set Cum_Tr flag;


 Flags par composante (JOFlags):
 cf $ZOOM/Help/Versions_futures/Versions_prochaines

 Modifs Ker :* A la fin du step advance, apres impressions,
               Fiz = Fi+dFi pour les non Cumulated_Tr;
               (consequence : meilleur dev before entering D_loop)
               Pour les Pseudo_Cell Tr [ set Pseudo_Cell flag; ou
               set Ps_Cl flag; ] Fi=Fiz=Fi+dFi;
             * Les PseudoK_Tr dependent d'autres transferts, sans
               reciprocite : on les appelle en dernier dans la D_loop.
              [Set Pseudo1_K_Tr flag; ou Set K1_Tr flag;
               Set Pseudo2_K_Tr flag; ou Set K2_Tr flag;]


Nouvelles macros :
======================================
= Amelioration de la boucle standard :
======================================
    read thru CX(LCX) (JCx=1,*)
    <
 genere :
    READ THRU CX(LCX)(JCx=1,0_(#U6#S6$L#C.TV).Nb_Cx_CX)<
( cad qu elle recupere l'adresse du TV superieur );

=================================
= Ecriture compactee de boucles :
=================================

      Skip thru CX(LCX) (JCx=1,*)/.CL(LCL)/SV(LSV2)/CX(LCX2.ne.LCX)/
                .TV(LTV2)/.TR(LTR2)
      < IF (LTR2).Types(2).EQ. 01 01 02   "TCdM"
        <
        >"End TCdM"
      > "close Skip thru CX/../TR2"

 cf description complete a la fin de :
 $ZOOM/Help/Users/Proc/ZBM_manuals/zbm_user_manual.doc

Problemes, suggestions
======================(les mettre dans $ZOOM/Help/Versions_futures/Futura )