**************************************************************************
***************************  Macro pour ZINIT  ***************************
***************************** (JLD 20/04/93) *****************************
**************************************************************************

==========================================================================
=======================> Modifications aux processeurs <==================
=====================> pour l'acces au parametres <=======================
==========================================================================

1) il faut ajouter au début de chaque processeur, dans la partie interprètée
par MORTRAN  (donc après un &M ) +cde,OPACC.

2)Il faut rajouter a la fin des processeur (qu'il soit de cellule ou de
transfert ), en dehors de tous blocks (en particulier de from TR(LTR)<
ou from CL(LCL)< ), juste avant le END:
;
Parameter_Entry ;
END;

Variables réservées :

  = Pour une cellule: l'adresse du processeur est LCL, le nom du bank des
     paramètres est CD et son adresse LCD;
  = Pour une transfert: l'adresse du processeur est LTR, le nom du bank des
     paramètres est TD et son adresse LTD;

Dans le Y/I_Entry, il faut créer le TD/CD bank:
set .Nb_Edge for TD = ... Fixe les valeurs de variables dimentionnant des
                          Desc_Bank_Var avant de créer le Desc_bank par:
;
Lift LTD of class TD under (2,0);
"Link TDesc" @LTR@TR@TD@=LTD;
" "
RETURN;

==========================================================================
============> Modification de GOCL et GOTR pour l'accès <=================
====================> aux parametres d'un objet <=========================
==================> déclarés dans un CD ou TD bank <======================
==========================================================================

sous CMZ
========

1) dans le patch CDE, les deux deck $TRLIST et $CLLIST doivent contenir les
deux +keep TRLIST et +keep CLLIST. contenant la liste des processeurs :

+PATCH,CDE et/ou de chaque P=Version_User/CDE
+KEEP,TRLIST.
*CMZ :          12/03/93  18.32.53  by  Robert FRANCHISSEUR
*-- Author :    Robert FRANCHISSEUR   12/03/93
PROCESSORS LIST
<  "Liste des processeurs de transfert"
   TFIX2, THCVA, TFQO, TRAD2, TKND, TKHAIR,TCDTR
   , TSPEAR, TPROB ,TTHCX ;
>

+KEEP,CLLIST.
*CMZ :          12/03/93  18.34.10  by  Robert FRANCHISSEUR
*-- Author :    Robert FRANCHISSEUR   12/03/93
PROCESSORS LIST
<  "Liste des processeurs de cellule"
    CND, CHAIR, CFIX, COCEAN
>

2) dans chaque patch ZINIT, il faut les 4 decks suivants, strictement
identiques pour tout le monde

+PATCH,//ZARLETY/ZINIT et/ou Version_User_ZINIT
+DECK,GOCL.
/*CMZ :          12/03/93  18.35.39  by  Robert FRANCHISSEUR*/
/*CMZ :  1.01/00 28/01/93  18.04.22  by  Jean-Louis DUFRESNE*/
/*-- Author :*/
+SEQ,ZIN1cl.  (ZIN"Un"Cell)
+SEQ,ClList.  (CellList)
;
+DECK,GO2CL.
/*CMZ :          12/03/93  18.35.58  by  Robert FRANCHISSEUR*/
/*CMZ :  1.01/00 28/01/93  18.04.22  by  Jean-Louis DUFRESNE*/
/*-- Author :*/
+SEQ,ZIN2cl.
+SEQ,ClList.
;
+DECK,GOTR.
/*CMZ :          12/03/93  18.36.17  by  Robert FRANCHISSEUR*/
/*CMZ :  1.01/00 28/01/93  18.04.22  by  Jean-Louis DUFRESNE*/
/*-- Author :*/
+SEQ,ZIN1TR.
+SEQ,TrList.
;
+DECK,GO2TR.
/*CMZ :          12/03/93  18.36.29  by  Robert FRANCHISSEUR*/
/*CMZ :  1.01/00 28/01/93  18.04.22  by  Jean-Louis DUFRESNE*/
/*-- Author :*/
+SEQ,ZIN2TR.
+SEQ,TRList.
;