257 	char *ptr;  in get_name()  local
260 		for (ptr = name + letters + 2; ptr >= name + letters; ptr--) {  in get_name()
261 			(*ptr)++;  in get_name()
262 			if (*ptr <= '9')  in get_name()
264 			*ptr = '0';  in get_name()
266 		if (ptr < name + letters) {  in get_name()
275 	char *ptr;  in get_line()  local
277 	for (ptr = buf; ptr < &buf[BSZ]; ) {  in get_line()
278 		*ptr = getc(ifp);  in get_line()
281 		if (*ptr++ == '\n') {  in get_line()
282 			*ptr = '\0';  in get_line()
336 	const char *ptr, *p;  in lname()  local
343 	ptr = skipws(buf);  in lname()
344 	if (*ptr == '\n') {  in lname()
348 	ptr = skiplab(buf);  in lname()
349 	if (ptr == NULL) {  in lname()
354 	p = ptr;  in lname()
362 	if ((ptr = look(line, "subroutine")) != NULL ||  in lname()
363 	    (ptr = look(line, "function")) != NULL ||  in lname()
364 	    (ptr = functs(line)) != NULL) {  in lname()
365 		if (scan_name(s, l, ptr)) {  in lname()
369 	} else if ((ptr = look(line, "program")) != NULL) {  in lname()
370 		if (scan_name(s, l, ptr)) {  in lname()
375 	} else if ((ptr = look(line, "blockdata")) != NULL) {  in lname()
376 		if (scan_name(s, l, ptr)) {  in lname()
381 	} else if ((ptr = functs(line)) != NULL) {  in lname()
382 		if (scan_name(s, l, ptr)) {  in lname()
394 scan_name(char *s, size_t smax, const char *ptr)  in scan_name()  argument
400 	ptr = skipws(ptr);  in scan_name()
403 	while (*ptr != '(' && *ptr != '\n') {  in scan_name()
404 		if (*ptr != ' ' && *ptr != '\t' && *ptr != '/') {  in scan_name()
410 			*sptr++ = *ptr;  in scan_name()
413 		ptr++;  in scan_name()
433         const char *ptr;  in functs()  local
435         if ((ptr = look(p, "character")) != NULL ||  in functs()
436 	    (ptr = look(p, "logical")) != NULL ||  in functs()
437 	    (ptr = look(p, "real")) != NULL ||  in functs()
438 	    (ptr = look(p, "integer")) != NULL ||  in functs()
439 	    (ptr = look(p, "doubleprecision")) != NULL ||  in functs()
440 	    (ptr = look(p, "complex")) != NULL ||  in functs()
441 	    (ptr = look(p, "doublecomplex")) != NULL) {  in functs()
442                 while (*ptr == ' ' || *ptr == '\t' || *ptr == '*'  in functs()
443 		    || (*ptr >= '0' && *ptr <= '9')  in functs()
444 		    || *ptr == '(' || *ptr == ')') {  in functs()
445 			ptr++;  in functs()
447 		ptr = look(ptr, "function");  in functs()
448 		return ptr;  in functs()
463 	const char *ptr;  in skiplab()  local
465 	for (ptr = p; ptr < &p[6]; ptr++) {  in skiplab()
466 		if (*ptr == ' ')  in skiplab()
468 		if (*ptr == '\t') {  in skiplab()
469 			ptr++;  in skiplab()
474 	return ptr;  in skiplab()