110544Sdlw /* 2*20187Slibs * "@(#)s_rnge.c 1.2" 310544Sdlw */ 410544Sdlw 510544Sdlw #include <stdio.h> 610544Sdlw 710544Sdlw /* called when a subscript is out of range */ 810544Sdlw 910544Sdlw s_rnge(varn, offset, procn, line) 1010544Sdlw char *varn, *procn; 1110544Sdlw long int offset; 1210544Sdlw int line; 1310544Sdlw { 1410544Sdlw register int i; 1510544Sdlw 1610544Sdlw fprintf(stderr, "Subscript out of range on file line %d, procedure ", line); 1710544Sdlw for(i = 0 ; i < 8 && *procn!='_' ; ++i) 1810544Sdlw putc(*procn++, stderr); 1910544Sdlw fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1); 2010544Sdlw for(i = 0 ; i < 6 && *varn!=' ' ; ++i) 2110544Sdlw putc(*varn++, stderr); 2210544Sdlw fprintf(stderr, ".\n"); 23*20187Slibs f77_abort(); 2410544Sdlw } 25