********************************************************************
********************************************************************
***** Exemple de gestion du pas dTime et fin de run ****************
********************************************************************
********************************************************************

DTIME=.01 ; TIMAX = 99999.;

ENTRY ZSTEER;
if istep.le.64     [ ou if dTime.le.[Value max] ]
< IF mod(ISTEP,2).eq.0  < dTime=dTime*sqrt(sqrt(2.)); >;
>;
!                          => dtime *2. tous les 8 pas.
!                        à 64 : dTime=.01*2.**8 = 2.56 s.
if istep.gt.250 < ZENDRN=.true.; >   "Zsteer est appelé  en début du"
!            pas de temps mais le run se terminera a la fin d'icelui .

Rq. : pour un pb lineaire, cela fournit egalement la Borelienne, si l'on
a bloque ZBorel a .True. => et donc pas modifié les Alpha (O_Etat_Eta...).