{}
{   The purpose of this request is to write the current correction package
{ to a scratch_file.
{}
{      RAP$WRITE_CP_TO_SCRATCH_FILE (PARAMETER_LIST, STATUS)
{}
{ PARAMETER_LIST: (input) This parameter specifies the list of parameters.
{}
{ STATUS: (output) This parameter specifies normal or abnormal status.
{}

