Return to ftest.c CVS log

Up to [Research Unix] / researchv10dc / libI77 / notused

Annotation of researchv10dc/libI77/notused/ftest.c, revision 1.1.1.1

1.1       root        1: /*     @(#)ftest.c     1.2     */
                      2: #include "fio.h"
                      3: #define FLOAT double
                      4: cilist x,y;
                      5: main(argc,argv) char **argv;
                      6: {      FLOAT dd[20];
                      7:        int ret[22];
                      8:        long one=1;
                      9:        int i,n,j;
                     10:        if(argc<2)
                     11:        {       fprintf(stderr,"%s infmt [outfmt] [n]\n",argv[0]);
                     12:                exit(1);
                     13:        }
                     14:        setcilist(&x,5,argv[1],0,1,1);
                     15:        argc--;
                     16:        argv++;
                     17:        if(argc<2 || argv[1][0]!='(')
                     18:                setcilist(&y,6,argv[0],0,1,1);
                     19:        else
                     20:        {       setcilist(&y,6,argv[1],0,1,1);
                     21:                argc--;
                     22:                argv++;
                     23:        }
                     24:        if(argc>=2) n=atoi(argv[1]);
                     25:        else n=1;
                     26:        j=0;
                     27:        ret[j++]=s_rsfe(&x);
                     28:        for(i=0;i<n;i++)
                     29:        {       ret[j++]=do_fio(&one,&dd[i],(long)sizeof(FLOAT));
                     30:        }
                     31:        ret[j++]=e_rsfe();
                     32:        for(i=0;i<j;i++) fprintf(stderr,"%d ",ret[i]);
                     33:        putc('\n',stderr);
                     34:        j=0;
                     35:        ret[j++]=s_wsfe(&y);
                     36:        for(i=0;i<n;i++)
                     37:                ret[j++]=do_fio(&one,&dd[i],(long)sizeof(FLOAT));
                     38:        ret[j++]=e_wsfe();
                     39:        for(i=0;i<j;i++) fprintf(stderr,"%d ",ret[i]);
                     40:        putc('\n',stderr);
                     41:        f_exit();
                     42:        exit(0);
                     43: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.