23 Vardesc *v, **vd, **vde;
27 extern ftnlen f__typesize[];
29 nl = (Namelist *) a->cifmt;
31 for (s = nl->name; *s; s++)
41 #ifdef No_Extra_Namelist_Newlines
42 if (f__recpos + strlen (s) + 2 >= L_len)
49 number = (dims = v->dims) ? dims[1] : 1;
57 size = f__typesize[type];
58 l_write (&number, v->addr, size, type);
61 if (f__recpos + 2 >= L_len)
66 else if (f__recpos + 1 >= L_len)