Flute acoustics: measurement, modelling and design - School of ...

APPENDIX B. PROGRAM LISTINGS 239
fprintf(stderr, "Invalid -r option\n");
return 0;
}
rflag = 1;
continue;
}
if(strcmp(argv[i], "-e") == 0) {
if(eflag)
return 0;
*entryratio = atof(argv[i + 1]);
if((*entryratio 1.0)) {
fprintf(stderr, "Invalid -e option\n");
return 0;
}
eflag = 1;
continue;
}
/* else invalid option */
fprintf(stderr, "Invalid option: %s\n", argv[i]);
return 0;
}
/* Swap frequency low and high values if inverted */
if((*flo > *fhi) && (*flo != 0.0) && (*fhi != 0.0)) {
d = *flo;
*flo = *fhi;
*fhi = d;
}
/* Set XML filename */
*xml_filename = argv[argc - numinputfiles];
return 1;
}