110544Sdlw /* 2*22983Skre * Copyright (c) 1980 Regents of the University of California. 3*22983Skre * All rights reserved. The Berkeley software License Agreement 4*22983Skre * specifies the terms and conditions for redistribution. 5*22983Skre * 6*22983Skre * @(#)s_rnge.c 5.1 06/07/85 710544Sdlw */ 810544Sdlw 910544Sdlw #include <stdio.h> 1010544Sdlw 1110544Sdlw /* called when a subscript is out of range */ 1210544Sdlw 1310544Sdlw s_rnge(varn, offset, procn, line) 1410544Sdlw char *varn, *procn; 1510544Sdlw long int offset; 1610544Sdlw int line; 1710544Sdlw { 1810544Sdlw register int i; 1910544Sdlw 2010544Sdlw fprintf(stderr, "Subscript out of range on file line %d, procedure ", line); 2110544Sdlw for(i = 0 ; i < 8 && *procn!='_' ; ++i) 2210544Sdlw putc(*procn++, stderr); 2310544Sdlw fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1); 2410544Sdlw for(i = 0 ; i < 6 && *varn!=' ' ; ++i) 2510544Sdlw putc(*varn++, stderr); 2610544Sdlw fprintf(stderr, ".\n"); 2720187Slibs f77_abort(); 2810544Sdlw } 29