**************************************************************************
************ ZSTEER entry point Exemples *********************************
**************************************************************************

Remarques:
**********
*     Il est clair que la structure ZINIT doit etre la meme pour ce qui concerne
les cellules (sinon diagnostic et STOP 'RESUME')
      Il est cependant possible de geler ou dégeler des cellules par rapport au
run de reference, d'enlever des D_Mx flag a certains transferts ...voir même de
modifier complètement les transferts - au risque de l'utilisateur.
(cette option est cependant interdite dans le cas d'utilisation de Pseudo_Cell Tr
qui exigent une initialisation et doivent donc se retrouver dans une meme structure
de Transferts.

*     On peut utiliser une procédure analogue pour sortir la matrices sous Zeus
en faisant varier le pas de temps. L exemple suivant, de JLD, le fait en un seul
run, en arrêtant la progression dans le temps à NbItStop (Inc Nb), et calcule
NbItMx matrices en incrémentant DTIME (dtMx).
      Les flags ZPAW et ZENDRN(end_run) déclenchent une sortie pour Visu et la fin
de run.


!======================== Zsteer possibility =====================
ENTRY ZSTEER;
!
if NbItMx.eq.0
< if (istep.ge.NbItStop)
    < ZENDRN =.true.;  >     "si dernier passage"
>else "si analyse matrice de couplage"
< if (istep.ge.NbItStop)
  < if (istep.ge.(NbItStop+NbItMx))
    < ZENDRN =.true.; >     "si dernier passage"
! pour faire l'equivalent de  resume from OZDAT.CL4; "indique par Resume from"
    call ORESUME(LZ);  " !! time modifier "
    if (istep.eq.NbItStop)
    < IstepMx = 1;
      dtime = dtMx;
    > else
    < IstepMx = IstepMx+1;
      dtime = dtime + dtMx;
    >
    time = dtime ;   " Ceci permet d avoir dans visu la variation des coefs(dtime)"
    ZPAW = .true. ;
  >else< ZPAW=.false.;>
>
RETURN ;
END ; "========== END OF ZDL WRITTEN SYSTEM ====================="


*   On pourrait tout aussi bien partir d un precedant run et construire la matrice(dTMx)
sans l' option NbItStop qui serait remplacee par RESUME From OZDAT.CL1, at NbItStop