Log bad FITS files
parent
e2e7793393
commit
7f10ced994
12
reduce.c
12
reduce.c
|
@ -730,7 +730,9 @@ int main(int argc,char *argv[])
|
||||||
int year;
|
int year;
|
||||||
char *env;
|
char *env;
|
||||||
float sigma,xa,ya;
|
float sigma,xa,ya;
|
||||||
|
FILE *file;
|
||||||
|
char filename[128];
|
||||||
|
|
||||||
env=getenv("ST_COSPAR");
|
env=getenv("ST_COSPAR");
|
||||||
|
|
||||||
// Default observation
|
// Default observation
|
||||||
|
@ -864,6 +866,14 @@ int main(int argc,char *argv[])
|
||||||
// Get cursor
|
// Get cursor
|
||||||
cpgcurs(&x,&y,&c);
|
cpgcurs(&x,&y,&c);
|
||||||
|
|
||||||
|
// Log as bad and quit
|
||||||
|
if (c=='Q') {
|
||||||
|
sprintf(filename,"%s.bad",argv[1]);
|
||||||
|
file=fopen(filename,"w");
|
||||||
|
fclose(file);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
// Quit
|
// Quit
|
||||||
if (c=='q')
|
if (c=='q')
|
||||||
break;
|
break;
|
||||||
|
|
Loading…
Reference in New Issue