Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
s_rnge.c
Go to the documentation of this file.00001 #include "stdio.h"
00002 #include "f2c.h"
00003
00004
00005
00006 #ifdef KR_headers
00007 extern VOID sig_die();
00008 integer s_rnge(varn, offset, procn, line) char *varn, *procn; ftnint offset, line;
00009 #else
00010 extern VOID sig_die(char*,int);
00011 integer s_rnge(char *varn, ftnint offset, char *procn, ftnint line)
00012 #endif
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 }
