XSM_FILE XSM1 XSM2 XSM3 ;
PROCEDURE svdg0caut295 svdg0cuss295 svdg0crse295 ;
MODULE VDG: DELETE: ABORT: END: ;
SEQ_ASCII SECLIB_XSM ;
REAL zaver REFVALUE DELTA ;
*
ECHO "Process svdg0/AUTO" ;
XSM1 := svdg0caut295 ;
*
ECHO "Process svdg0/PT" ;
XSM2 := svdg0cuss295 ;
*
ECHO "Process svdg0/RSE" ;
XSM3 := svdg0crse295 ;
*
* COMPARE THE TWO RUNS.
VDG: XSM1 XSM2 :: GRMI 52 GRMA 206 PICK AVER >>zaver<< ;
ECHO "PT: averaged error=" zaver "%" ;

EVALUATE REFVALUE := 6.90350E-1 ;
EVALUATE DELTA := zaver REFVALUE - REFVALUE / ABS ;
IF DELTA 5.0E-2 < THEN
  ECHO "TEST SUCCESSFUL; DELTA=" DELTA ;
ELSE
  ECHO "------------" ;
  ECHO "TEST FAILURE" ;
  ECHO "------------" ;
  ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ;
  ABORT: ;
ENDIF ;
*
* COMPARE THE TWO RUNS.
VDG: XSM1 XSM3 :: GRMI 52 GRMA 206 PICK AVER >>zaver<< ;
ECHO "RSE: averaged error=" zaver "%" ;

EVALUATE REFVALUE := 1.850314E-1 ;
EVALUATE DELTA := zaver REFVALUE - REFVALUE / ABS ;
IF DELTA 5.0E-2 < THEN
  ECHO "TEST SUCCESSFUL; DELTA=" DELTA ;
ELSE
  ECHO "------------" ;
  ECHO "TEST FAILURE" ;
  ECHO "------------" ;
  ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ;
  ABORT: ;
ENDIF ;

XSM1 XSM2 XSM3 := DELETE: XSM1 XSM2 XSM3 ;
ECHO "test svdg0c_295 completed" ;
END: ;
QUIT "LIST" .