err(f__elist->ciend, EOF, "list in")
err(f__elist->ciend, EOF, "list in");
l_read(ftnint *number, char *ptr, ftnlen len, ftnint type)#endif{#define Ptr ((flex *)ptr)	int i,n,ch;	doublereal *yy;	real *xx;	for(i=0;i<*number;i++)	{		if(f__lquit) return(0);		if(l_eof)			err(f__elist->ciend, EOF, "list in")		if(f__lcount == 0) {			f__ltype = 0;			for(;;)  {				GETC(ch);				switch(ch) {				case EOF:					err(f__elist->ciend,(EOF),"list in")				case ' ':				case '\t':				case '\n':					continue;				case '/':					f__lquit = 1;					goto loopend;				case ',':					f__lcount = 1;					goto loopend;				default:					(void) Ungetc(ch, f__cf);					goto rddata;				}			}		}	rddata:		switch((int)type)		{		case TYINT1:		case TYSHORT:		case TYLONG:		case TYREAL:		case TYDREAL:			ERR(l_R(0));			break;#ifdef TYQUAD		case TYQUAD:			quad_read = 1;			n = l_R(0);			quad_read = 0;			if (n)				return n;			break;#endif		case TYCOMPLEX:		case TYDCOMPLEX:			ERR(l_C());			break;		case TYLOGICAL1:		case TYLOGICAL2:		case TYLOGICAL:			ERR(l_L());			break;		case TYCHAR:			ERR(l_CHAR());			break;		}	while (GETC(ch) == ' ' || ch == '\t');	if (ch != ',' || f__lcount > 1)		Ungetc(ch,f__cf);	loopend:		if(f__lquit) return(0);		if(f__cf && ferror(f__cf)) {			clearerr(f__cf);			errfl(f__elist->cierr,errno,"list in");			}		if(f__ltype==0) goto bump;		switch((int)type)		{		case TYINT1:		case TYLOGICAL1:			Ptr->flchar = (char)f__lx;			break;		case TYLOGICAL2:		case TYSHORT:			Ptr->flshort = (short)f__lx;			break;		case TYLOGICAL:		case TYLONG:			Ptr->flint=f__lx;			break;#ifdef Allow_TYQUAD		case TYQUAD:			if (!(Ptr->fllongint = f__llx))				Ptr->fllongint = f__lx;			break;#endif		case TYREAL:			Ptr->flreal=f__lx;			break;		case TYDREAL:			Ptr->fldouble=f__lx;			break;		case TYCOMPLEX:			xx=(real *)ptr;			*xx++ = f__lx;			*xx = f__ly;			break;		case TYDCOMPLEX:			yy=(doublereal *)ptr;			*yy++ = f__lx;			*yy = f__ly;			break;		case TYCHAR:			b_char(f__lchar,ptr,len);			break;		}	bump:		if(f__lcount>0) f__lcount--;		ptr += len;		if (nml_read)			nml_read++;	}