radc_var_clr.c

快速傅立叶变换程序代码,学信号的同学,可要注意了

    else if ( strcmp (argv[i], "-afile") == 0 ) {
       if ( i + 1 == argc ) { ERROR1; }
       else {
         strcpy(c->afile, argv[++i]);
         c->reada=2;
       }
    }
    else if ( strcmp (argv[i], "-nac") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%d", &(c->notabovecap));
       }
    }
    else if ( strcmp (argv[i], "-el") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%d", &(c->error_log));
       }
    }
    else if ( strcmp (argv[i], "-elfile") == 0 ) {
       if ( i + 1 == argc ) { ERROR1; }
       else {
         strcpy(c->error_logfile, argv[++i]);
         c->error_log=2;
       }
    }
    else if ( strcmp (argv[i], "-maxcount") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%d", &(c->maxcount));
       }
    }
    else if ( strcmp (argv[i], "-skip") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%d", &(c->skip));
       }
    }
    else if ( strcmp (argv[i], "-n") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%d", &(c->N));
       }
    }
    else if ( strcmp (argv[i], "-k") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%d", &(c->K));
       }
    }
    else if ( strcmp (argv[i], "-fn") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%lf", &(c->fn));
       }
    }
    else if ( strcmp (argv[i], "-fs") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%lf", &(c->fs));
       }
    }
    else if ( strcmp (argv[i], "-fnass") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%lf", &(c->fnass));
       }
    }
    else if ( strcmp (argv[i], "-gc") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%d", &(c->gc));
       }
    }
    else if ( strcmp (argv[i], "-gcx") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%lf", &(c->gcx));
       }
    }
    else if ( strcmp (argv[i], "-gcxass") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%lf", &(c->gcxass));
       }
    }
    else if ( strcmp (argv[i], "-v") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%d", &(c->verbose));
       }
    }
    else if ( strcmp (argv[i], "-mseed") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%ld", &(c->mseed));
       }
    }
    else if ( strcmp (argv[i], "-vseed") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%ld", &(c->vseed));
       }
    }
    else if ( strcmp (argv[i], "-mess") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%d", &(c->MESSAGE));
       }
    }
    else if ( strcmp (argv[i], "-demo") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%d", &(c->DEMO));
       }
    }
    else if ( strcmp (argv[i], "-failures") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%d", &(c->failures));
       }
    }
    else if ( strcmp (argv[i], "-pheading") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%d", &(c->pheading_period));
       }
    }
    else if ( strcmp (argv[i], "-zscore") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%lf", &(c->zscore));
       }
    }
    else if ( strcmp (argv[i], "-bndloops") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%d", &(c->loops));
       }
    }
    else if ( strcmp (argv[i], "-bndlogn") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%d", &(c->writelog));
       }
    }
    else if ( strcmp (argv[i], "-doclip") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%d", &(c->doclip));
       }
    }
    else if ( strcmp (argv[i], "-clip") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%lf", &(c->clip));
         c->doclip=1;
       }
    }
    else if ( strcmp (argv[i], "-tinydiv") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%lf", &(c->tinydiv));
       }
    }
    else if ( strcmp (argv[i], "-bndwis") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%d", &(c->wis));
       }
    }
    else if ( strcmp (argv[i], "-bndwisline") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%d", &(c->wisline));
       }
    }
    else if ( strcmp (argv[i], "-bndwisgrey") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%d", &(c->wisgrey));
       }
    }
    else if ( strcmp (argv[i], "-bndis") == 0 ) {
       if ( i + 1 == argc ) { ERROR1; }
       else {
         strcpy(c->isfile, argv[++i]);
         if(!c->wis)c->wis=1;
       }
    }
    else if ( strcmp (argv[i], "-bndlog") == 0 ) {
       if ( i + 1 == argc ) { ERROR1; }
       else {
         strcpy(c->logfile, argv[++i]);
         if(!c->writelog)c->writelog=10;
       }
    }
    else if ( strcmp (argv[i], "-oappend") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%d", &(c->outappend));
       }
    }
    else if ( strcmp (argv[i], "-o") == 0 ) {
       if ( i + 1 == argc ) { ERROR1; }
       else {
         strcpy(c->outfile, argv[++i]);
         if(!(c->printout))c->printout=1;
       }
    }
    else if ( strcmp (argv[i], "-to") == 0 ) {
       if ( i + 1 == argc ) { ERROR1; }
       else {
         strcpy(c->totoutfile, argv[++i]);
         if(!(c->printtot))c->printtot=1;
       }
    }
    else if ( strcmp (argv[i], "-ho") == 0 ) {
       if ( i + 1 == argc ) { ERROR1; }
       else {
         strcpy(c->histofile, argv[++i]);
         if(!(c->printhisto))c->printhisto=1;
       }
    }
    else if ( strcmp (argv[i], "-pbw") == 0 ) {
      if ( i + 1 == argc ) { ERROR1; }
      else {
        cs *= sscanf(argv[++i], "%d", &(c->big_write_period));
       }
    }