Procédures | Cast3M

* @TEST     PROCEDUR  AM        98/12/30    21:15:26     3421           
DEBP @TEST EPS1*MCHAML EPS2*MCHAML ERR*FLOTTANT ;
 
*-----------------------------------------------------------------------
* @TEST : test de stationnarite (EPS2 - EPS1) < ERR
*        si oui, TEST = vrai
*-----------------------------------------------------------------------
 
  TEST = FAUX ;
  DIF = abs (EPS2 - EPS1) ;
  NTEST = DIF masq egsupe somme ERR ;
  si (NTEST ega 0) ;
   TEST = VRAI ;
  finsi ;
 
FINP TEST ;