wrerr.c
上传用户:tsjrly
上传日期:2021-02-19
资源大小:107k
文件大小:1k
- /**************************************************************************
- *
- * ROUTINE
- * write_error
- *
- * FUNCTION
- *
- * prints sungraph write error message
- *
- * SYNOPSIS
- * subroutine write_error(status,string)
- *
- * formal
- *
- * data I/O
- * name type type function
- * -------------------------------------------------------------------
- * status i i sungraph error index
- * string char i name of file in error
- *
- ***************************************************************************
- *
- * CALLED BY
- *
- * celp (sungraph_endblock.h sungraph_open.h)
- *
- * CALLS
- *
- * print_disk_write_error
- *
- ***************************************************************************
- *
- * DESCRIPTION
- *
- *
- *
- **************************************************************************/
- #include <stdio.h>
- write_error(status,string)
- int status;
- char string[];
- {
- fprintf(stderr,"write_error: disk write error at %sn", string);
- print_disk_write_error(status);
- exit(1);
- }