Doxygen Source Code Documentation
s_rnge.c File Reference
#include "stdio.h"#include "f2c.h"Go to the source code of this file.
Functions | |
| VOID | sig_die (char *, int) |
| integer | s_rnge (char *varn, ftnint offset, char *procn, ftnint line) |
Function Documentation
|
||||||||||||||||||||
|
Definition at line 11 of file s_rnge.c. References i, offset, and sig_die().
00013 {
00014 register int i;
00015
00016 fprintf(stderr, "Subscript out of range on file line %ld, procedure ", line);
00017 while((i = *procn) && i != '_' && i != ' ')
00018 putc(*procn++, stderr);
00019 fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1);
00020 while((i = *varn) && i != ' ')
00021 putc(*varn++, stderr);
00022 sig_die(".", 1);
00023 #ifdef __cplusplus
00024 return 0;
00025 #endif
00026 }
|
|
||||||||||||
|
|
