save_sg.c
上传用户:szhypcb168
上传日期:2007-01-06
资源大小:2187k
文件大小:1k
- /**************************************************************************
- *
- * ROUTINE
- * save_sg
- *
- * FUNCTION
- *
- * save data in sungraph format
- *
- * SYNOPSIS
- * subroutine save_sg(id, data, number, string)
- *
- * formal
- *
- * data I/O
- * name type type function
- * -------------------------------------------------------------------
- * id int i variable id name
- * data char i array or variable to be saved
- * number int i number of values to be saved
- * string char i character string to aid in error
- * location
- *
- ***************************************************************************
- *
- * DESCRIPTION
- *
- *
- ***************************************************************************
- *
- * CALLED BY
- *
- * celp csub cbsearch psearch
- *
- * CALLS
- *
- * print_disk_write_error save_variable
- *
- **************************************************************************/
- save_sg(id, data, number, string)
- int id, number;
- char *data, string[];
- {
- int status;
- if (status = save_variable(id, data, number) < 0)
- {
- printf("save_sg: disk write error at %sn",string);
- print_disk_write_error(status);
- exit(1);
- }
- }