*****************************************************************
*****************************************************************
********** Coefficients dTime (1/p) dependance ******************
*****************************************************************
*****************************************************************


L exemple donné considère que l on explore la matrice au 500ième
step d une sortie déjà acquise.

! Resume from file
Resume from OZDAT.CL1, at 500;
;
On veut recalculer la matrice en faisant varier dTime :

ENTRY ZSTEER;

 call ORESUME(LZ);  " reprend au début de chaque step la même initialisation "
                    " attention, time reprend la valeur de debut, cf + bas"
 dtime = dtime*2.;  " on fait varier dTime"
 time = time + dTime; " Il faut donner une valeur croissante a time"
! variante : time = dTime;"si le job ne dépend pas de time, on aura directement"
                           dans viZu les cij(dTime)
;
  if ISTEP.ge.NSTEP < ZENDRN=.TRUE.; >;  Pour arrêter le job, on fixe TIMAX
                                         grand, et on se donne un NSTEP.

Rien de changé dans viZu.