main(argc
,argv
) char **argv
;
{ fprintf(stderr
,"%s infmt [outfmt] [n]\n",argv
[0]);
setcilist(&x
,5,argv
[1],0,1,1);
if(argc
<2 || argv
[1][0]!='(')
setcilist(&y
,6,argv
[0],0,1,1);
{ setcilist(&y
,6,argv
[1],0,1,1);
if(argc
>=2) n
=atoi(argv
[1]);
{ ret
[j
++]=do_fio(&one
,&dd
[i
],(long)sizeof(FLOAT
));
for(i
=0;i
<j
;i
++) fprintf(stderr
,"%d ",ret
[i
]);
ret
[j
++]=do_fio(&one
,&dd
[i
],(long)sizeof(FLOAT
));
for(i
=0;i
<j
;i
++) fprintf(stderr
,"%d ",ret
[i
]);