********************************************************************************
******** Création des Transferts (Objet dual, ou de connection entre cellules) *
********************************************************************************
Deux types de créatons : naturelle ou imposée.

***********
Naturelle : c'est alors ZOOM/KER qui associera cet objet à une famille (la plus emboitée
*********** qui contienne l'ensemble des cellules connectées par ce transfert)

CREATE TR,TYPE=*TrProc* 1,-9,-9;
  Instruction complète de creation d'un Transfert associé au modèle *TrProc*
  avec trois entiers en argument - en l'occurence, leurs valeurs par défaut;
  (*TrProc* comportant au plus 5 alphanumériques).
exemple Create Tr, Type = COND;
On remarque qu'il est impossible de donner un nom au transfert; il faut donc l instancier
complètement à sa creation.

;
Complément :
CREATE N-TR,TYPE=*TrProc*;
  Comme pour la cellule, cree un transfert fige; ses composantes garderont
  leur valeurs initiales (nulles par defaut) fixee par le Zinit.
  Dans le cas d'un [Resume from] avec option OZDAT>CL/OZDAT.TR, le vecteur initial conservera
la valeur fixee dans Zinit SANS etre reinitialise a partir du fichier resultat OZDAT.TR

cf egalement  $ZOOM/Help/Users/Proc/Tr_flag_bits   <<< Futura autre gestion par composantes

*********
Imposée :
*********

CREATE-F TR  : au lieu de CREATE TR donne l'instruction a ZOOM de forcer le placement de ce transfert sous
               la famille courante;
CREATE-F+ TR : Crée un transfert forcé, non pas sous la famille courante, mais sous celle du dessus;
               (Il peut être utile pour trier entre deux Types de Transferts créés dans une même boucle
                - car connectés aux mêmes cellules);
CREATE-Z TR  : creation d'un transfert sous Zeus
CREATE-U TR  :     idem sous U
;
*** Dans ces derniers cas,l'utilisateur prend la responsabilité de le situer dans l'arbre ZOOM, soit pour
    tenter d'optimiser le découpage des matrices induit par la structure, soit pour
    étudier en sortie des couplages impliquant ce transfert.
    L'utilisateur doit connaitre les contraintes de structures pour le faire.
    ZOOM/KER signalera une erreur si ce transfert ne peut etre situé comme l'indique
    l'utilisateur.


Exemples  de récupèration des arguments :
.........................................

CREATE CL SURF, TYPE = VORTX 4,1,Jusers;
  Dans le IEntry, on récupère les valeurs:
  4 dans JZTAU
  1 dans KZTAU(1)
 [Jusers] dans KZTAU(2)
;
CREATE TR, TYPE = HMIXL NCELL,2;  " ajout deuxieme argument et +"
  Dans le YEntry, on recupère les valeurs:
 [NCELL] dans JZTAU   ( comme toujours)
  1 dans KZTAU(1)

Rq. Ces deux tableaux sont initialisés à -9; Si on tente d'entrer trop d'arguments,
=== on ne transmet donc que ces valeurs à -9, ainsi qu un diagnostic in run.lis