]>
gcc.gnu.org Git - gcc.git/blob - libf2c/libI77/xwsne.c
26 Vardesc
*v
, **vd
, **vde
;
30 static ftnint one
= 1;
31 extern ftnlen f__typesize
[];
33 nl
= (Namelist
*)a
->cifmt
;
35 for(s
= nl
->name
; *s
; s
++)
44 #ifdef No_Extra_Namelist_Newlines
45 if (f__recpos
+strlen(s
)+2 >= L_len
)
52 number
= (dims
= v
->dims
) ? dims
+ 1 : &one
;
59 size
= f__typesize
[type
];
60 l_write(number
, v
->addr
, size
, type
);
62 if (f__recpos
+2 >= L_len
)
67 else if (f__recpos
+1 >= L_len
)
This page took 0.038655 seconds and 5 git commands to generate.