110547Sdlw /* 2*20187Slibs * "@(#)subout.c 1.2" 310547Sdlw */ 410547Sdlw 510547Sdlw #include <stdio.h> 610547Sdlw 710547Sdlw subout(varn, offset, procn, line) 810547Sdlw char *varn, *procn; 910547Sdlw long int offset; 1010547Sdlw int line; 1110547Sdlw { 1210547Sdlw register int i; 1310547Sdlw 1410547Sdlw fprintf(stderr, "Subscript out of range on line %d of procedure ", line); 1510547Sdlw for(i = 0 ; i < 8 && *procn!='_' ; ++i) 1610547Sdlw putc(*procn++, stderr); 1710547Sdlw fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1); 1810547Sdlw for(i = 0 ; i < 6 && *varn!=' ' ; ++i) 1910547Sdlw putc(*varn++, stderr); 2010547Sdlw fprintf(stderr, ".\n"); 21*20187Slibs f77_abort(); 2210547Sdlw } 23