*!  <version of July 30, 2000>  (STB-57:snp15.1)
#delim ;
program define somers_p;
version 6.0;
*
 Predict program for somersd
 (warning the user that predict should not be used
 after somersd)
 Author: Roger Newson
 Date: 30 July 2000
*;

syntax [newvarlist] [,*];

disp in red
 "predict should not be used after somersd";
error 498;

end;