1 /* 2 * "@(#)subout.c 1.2" 3 */ 4 5 #include <stdio.h> 6 7 subout(varn, offset, procn, line) 8 char *varn, *procn; 9 long int offset; 10 int line; 11 { 12 register int i; 13 14 fprintf(stderr, "Subscript out of range on line %d of procedure ", line); 15 for(i = 0 ; i < 8 && *procn!='_' ; ++i) 16 putc(*procn++, stderr); 17 fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1); 18 for(i = 0 ; i < 6 && *varn!=' ' ; ++i) 19 putc(*varn++, stderr); 20 fprintf(stderr, ".\n"); 21 f77_abort(); 22 } 23