rderr.c
上传用户:tsjrly
上传日期:2021-02-19
资源大小:107k
文件大小:1k
- /**************************************************************************
- *
- * ROUTINE
- * read_error
- *
- * FUNCTION
- *
- * prints sungraph read error message
- *
- * SYNOPSIS
- * subroutine read_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_open.h)
- *
- * CALLS
- *
- * print_disk_read_error
- *
- ***************************************************************************
- *
- * DESCRIPTION
- *
- *
- *
- **************************************************************************/
- #include <stdio.h>
- read_error(status,string)
- int status;
- char string[];
- {
- fprintf(stderr,"read_error: disk read error at %sn", string);
- print_disk_read_error(status);
- exit(1);
- }