* !!! Don't remove next two rows !!!
*!*
*!*
#DEFINE __CORE_INCLUDE
#DEFINE INP && Input parameter
#DEFINE INPREF
#DEFINE OUTREF && Output parameter
#DEFINE CHNG && Parameter can be changed in routine
#DEFINE CHNGREF
#DEFINE OPT_INP && Input parameter
#DEFINE OPT_INPREF
#DEFINE OPT_OUTREF && Output parameter
#DEFINE OPT_CHNG && Parameter can be changed in routine
#DEFINE OPT_CHNGREF