From dbe844ea0e7b0256d0c993e77be2abd9b546537d Mon Sep 17 00:00:00 2001 From: Jeff Moe Date: Sat, 6 Aug 2022 18:23:35 -0600 Subject: [PATCH] Make Puritanical --- {sextractor => source-extractor}/default.conv | 0 {sextractor => source-extractor}/default.nnw | 2 +- .../default.param | 0 .../default.srcx | 8 ++-- .../nondefault.srcx | 8 ++-- src/Makefile | 16 ++++---- src/angular.c | 40 +++++++++---------- src/calibrate.c | 10 ++--- src/confirm.c | 6 +-- src/{dec2sex.c => dec2s.c} | 2 +- src/detect.c | 6 +-- src/fakeiod.c | 8 ++-- src/measure.c | 6 +-- src/planscan.c | 8 ++-- src/plotfits.c | 8 ++-- src/reduce.c | 8 ++-- src/{sex2dec.c => s2dec.c} | 4 +- src/skymap.c | 36 ++++++++--------- src/slewto.c | 12 +++--- 19 files changed, 94 insertions(+), 94 deletions(-) rename {sextractor => source-extractor}/default.conv (100%) rename {sextractor => source-extractor}/default.nnw (96%) rename {sextractor => source-extractor}/default.param (100%) rename sextractor/default.sex => source-extractor/default.srcx (88%) rename sextractor/nondefault.sex => source-extractor/nondefault.srcx (88%) rename src/{dec2sex.c => dec2s.c} (92%) rename src/{sex2dec.c => s2dec.c} (81%) diff --git a/sextractor/default.conv b/source-extractor/default.conv similarity index 100% rename from sextractor/default.conv rename to source-extractor/default.conv diff --git a/sextractor/default.nnw b/source-extractor/default.nnw similarity index 96% rename from sextractor/default.nnw rename to source-extractor/default.nnw index 4b521bd..12bb927 100644 --- a/sextractor/default.nnw +++ b/source-extractor/default.nnw @@ -1,5 +1,5 @@ NNW -# Neural Network Weights for the SExtractor star/galaxy classifier (V1.3) +# Neural Network Weights for the Source Extractor star/galaxy classifier (V1.3) # inputs: 9 for profile parameters + 1 for seeing. # outputs: ``Stellarity index'' (0.0 to 1.0) # Seeing FWHM range: from 0.025 to 5.5'' (images must have 1.5 < FWHM < 5 pixels) diff --git a/sextractor/default.param b/source-extractor/default.param similarity index 100% rename from sextractor/default.param rename to source-extractor/default.param diff --git a/sextractor/default.sex b/source-extractor/default.srcx similarity index 88% rename from sextractor/default.sex rename to source-extractor/default.srcx index 80ebe94..e6e9532 100644 --- a/sextractor/default.sex +++ b/source-extractor/default.srcx @@ -1,4 +1,4 @@ -# Default configuration file for SExtractor V1.2b14 - > 2.0 +# Default configuration file for Source Extractor V1.2b14 - > 2.0 # EB 23/07/98 # (*) indicates parameters which can be omitted from this config file. @@ -8,7 +8,7 @@ CATALOG_NAME test.cat # name of the output catalog CATALOG_TYPE ASCII_HEAD # "NONE","ASCII_HEAD","ASCII","FITS_1.0" # or "FITS_LDAC" -PARAMETERS_NAME $ST_DATADIR/sextractor/default.param # name of the file containing catalog contents +PARAMETERS_NAME $ST_DATADIR/source-extractor/default.param # name of the file containing catalog contents #------------------------------- Extraction ---------------------------------- @@ -19,7 +19,7 @@ DETECT_THRESH 3 # or , in mag.arcsec-2 ANALYSIS_THRESH 3 # or , in mag.arcsec-2 FILTER Y # apply filter for detection ("Y" or "N")? -FILTER_NAME $ST_DATADIR/sextractor/default.conv # name of the file containing the filter +FILTER_NAME $ST_DATADIR/source-extractor/default.conv # name of the file containing the filter DEBLEND_NTHRESH 32 # Number of deblending sub-thresholds DEBLEND_MINCONT 0.005 # Minimum contrast parameter for deblending @@ -45,7 +45,7 @@ PIXEL_SCALE 1.0 # size of pixel in arcsec (0=use FITS WCS info). #------------------------- Star/Galaxy Separation ---------------------------- SEEING_FWHM 1.2 # stellar FWHM in arcsec -STARNNW_NAME $ST_DATADIR/sextractor/default.nnw # Neural-Network_Weight table filename +STARNNW_NAME $ST_DATADIR/source-extractor/default.nnw # Neural-Network_Weight table filename #------------------------------ Background ----------------------------------- diff --git a/sextractor/nondefault.sex b/source-extractor/nondefault.srcx similarity index 88% rename from sextractor/nondefault.sex rename to source-extractor/nondefault.srcx index 563b65d..34c7838 100644 --- a/sextractor/nondefault.sex +++ b/source-extractor/nondefault.srcx @@ -1,4 +1,4 @@ -# Default configuration file for SExtractor V1.2b14 - > 2.0 +# Default configuration file for Source Extractor V1.2b14 - > 2.0 # EB 23/07/98 # (*) indicates parameters which can be omitted from this config file. @@ -8,7 +8,7 @@ CATALOG_NAME test.cat # name of the output catalog CATALOG_TYPE ASCII_HEAD # "NONE","ASCII_HEAD","ASCII","FITS_1.0" # or "FITS_LDAC" -PARAMETERS_NAME $ST_DATADIR/sextractor/default.param # name of the file containing catalog contents +PARAMETERS_NAME $ST_DATADIR/source-extractor/default.param # name of the file containing catalog contents #------------------------------- Extraction ---------------------------------- @@ -19,7 +19,7 @@ DETECT_THRESH 10 # or , in mag.arcsec-2 ANALYSIS_THRESH 10 # or , in mag.arcsec-2 FILTER Y # apply filter for detection ("Y" or "N")? -FILTER_NAME $ST_DATADIR/sextractor/default.conv # name of the file containing the filter +FILTER_NAME $ST_DATADIR/source-extractor/default.conv # name of the file containing the filter DEBLEND_NTHRESH 32 # Number of deblending sub-thresholds DEBLEND_MINCONT 0.005 # Minimum contrast parameter for deblending @@ -45,7 +45,7 @@ PIXEL_SCALE 1.0 # size of pixel in arcsec (0=use FITS WCS info). #------------------------- Star/Galaxy Separation ---------------------------- SEEING_FWHM 1.2 # stellar FWHM in arcsec -STARNNW_NAME $ST_DATADIR/sextractor/default.nnw # Neural-Network_Weight table filename +STARNNW_NAME $ST_DATADIR/source-extractor/default.nnw # Neural-Network_Weight table filename #------------------------------ Background ----------------------------------- diff --git a/src/Makefile b/src/Makefile index 4fd33e3..82947c9 100644 --- a/src/Makefile +++ b/src/Makefile @@ -9,10 +9,10 @@ CC = gcc F77 = gfortran all: - make addwcs angular calibrate dec2sex faketle fitsheader fitskey imgstat jpg2fits jpgstack measure pgm2fits plotfits pstrack rde2iod reduce residuals runsched satfit satid satmap satorbit sex2dec skymap tle2ole tleinfo uk2iod stviewer wcsfit deproject slewto waitfor pass detect launchtle propagate fakeiod csv2tle normal posmatch posvel xyz2tle mvtle confirm allnight + make addwcs angular calibrate dec2s faketle fitsheader fitskey imgstat jpg2fits jpgstack measure pgm2fits plotfits pstrack rde2iod reduce residuals runsched satfit satid satmap satorbit s2dec skymap tle2ole tleinfo uk2iod stviewer wcsfit deproject slewto waitfor pass detect launchtle propagate fakeiod csv2tle normal posmatch posvel xyz2tle mvtle confirm allnight # XXX Not proper mkdir ../bin - mv addwcs angular calibrate dec2sex faketle fitsheader fitskey imgstat jpg2fits jpgstack measure pgm2fits plotfits pstrack rde2iod reduce residuals runsched satfit satid satmap satorbit sex2dec skymap tle2ole tleinfo uk2iod stviewer wcsfit deproject slewto waitfor pass detect launchtle propagate fakeiod csv2tle normal posmatch posvel xyz2tle mvtle confirm allnight ../bin/ + mv addwcs angular calibrate dec2s faketle fitsheader fitskey imgstat jpg2fits jpgstack measure pgm2fits plotfits pstrack rde2iod reduce residuals runsched satfit satid satmap satorbit s2dec skymap tle2ole tleinfo uk2iod stviewer wcsfit deproject slewto waitfor pass detect launchtle propagate fakeiod csv2tle normal posmatch posvel xyz2tle mvtle confirm allnight ../bin/ cp tleupdate ../bin/ lite: @@ -90,11 +90,11 @@ jpgstack: jpgstack.o angular: angular.o forward.o reverse.o $(CC) -o angular angular.c forward.o reverse.o -lm -lwcs -dec2sex: dec2sex.o - $(CC) -o dec2sex dec2sex.c -lm +dec2s: dec2s.o + $(CC) -o dec2s dec2s.c -lm -sex2dec: sex2dec.o - $(CC) -o sex2dec sex2dec.c -lm +s2dec: s2dec.o + $(CC) -o s2dec s2dec.c -lm calibrate: calibrate.o forward.o $(F77) -o calibrate calibrate.o forward.o $(LFLAGS) -lqfits @@ -174,5 +174,5 @@ pgm2fits: pgm2fits.o clean: rm -f *.o rm -f *~ - rm -f addwcs angular calibrate dec2sex faketle fitsheader fitskey imgstat jpg2fits jpgstack measure pgm2fits plotfits pstrack rde2iod reduce residuals runsched satfit satid satmap satorbit sex2dec skymap tle2ole tleinfo uk2iod stviewer wcsfit deproject slewto waitfor pass detect launchtle propagate fakeiod csv2tle normal posmatch posvel xyz2tle mvtle confirm allnight - rm -f ../addwcs ../angular ../calibrate ../dec2sex ../faketle ../fitsheader ../fitskey ../imgstat ../jpg2fits ../jpgstack ../measure ../pgm2fits ../plotfits ../pstrack ../rde2iod ../reduce ../residuals ../runsched ../satfit ../satid ../satmap ../satorbit ../sex2dec ../skymap ../tle2ole ../tleinfo ../uk2iod ../stviewer ../wcsfit ../deproject ../slewto ../waitfor ../pass ../detect ../launchtle ../propagate ../fakeiod ../csv2tle ../normal ../posmatch ../posvel ../xyz2tle ../mvtle ../confirm ../allnight + rm -f addwcs angular calibrate dec2s faketle fitsheader fitskey imgstat jpg2fits jpgstack measure pgm2fits plotfits pstrack rde2iod reduce residuals runsched satfit satid satmap satorbit s2dec skymap tle2ole tleinfo uk2iod stviewer wcsfit deproject slewto waitfor pass detect launchtle propagate fakeiod csv2tle normal posmatch posvel xyz2tle mvtle confirm allnight + rm -f ../addwcs ../angular ../calibrate ../dec2s ../faketle ../fitsheader ../fitskey ../imgstat ../jpg2fits ../jpgstack ../measure ../pgm2fits ../plotfits ../pstrack ../rde2iod ../reduce ../residuals ../runsched ../satfit ../satid ../satmap ../satorbit ../s2dec ../skymap ../tle2ole ../tleinfo ../uk2iod ../stviewer ../wcsfit ../deproject ../slewto ../waitfor ../pass ../detect ../launchtle ../propagate ../fakeiod ../csv2tle ../normal ../posmatch ../posvel ../xyz2tle ../mvtle ../confirm ../allnight diff --git a/src/angular.c b/src/angular.c index fc9f842..6dc27d2 100644 --- a/src/angular.c +++ b/src/angular.c @@ -6,8 +6,8 @@ #define LIM 80 -void dec2sex(double,char *,int,int); -double sex2dec(char *); +void dec2s(double,char *,int,int); +double s2dec(char *); void reverse(double,double,double,double,double *,double *); void forward(double,double,double,double,double *,double *); @@ -32,11 +32,11 @@ int main(int argc,char *argv[]) if (strcmp(argv[1],"-d")==0) { if (strchr(argv[2],':')!=NULL) - ra1=15.*sex2dec(argv[2]); + ra1=15.*s2dec(argv[2]); else ra1=atof(argv[2]); if (strchr(argv[3],':')!=NULL) - de1=sex2dec(argv[3]); + de1=s2dec(argv[3]); else de1=atof(argv[3]); @@ -45,25 +45,25 @@ int main(int argc,char *argv[]) reverse(ra1,de1,rx,ry,&ra2,&de2); - dec2sex(ra2/15.0,sra,0,7); - dec2sex(de2,sde,0,6); + dec2s(ra2/15.0,sra,0,7); + dec2s(de2,sde,0,6); printf("%s %s\n",sra,sde); } else if (strcmp(argv[1],"-x")==0) { if (strchr(argv[2],':')!=NULL) - ra1=15.*sex2dec(argv[2]); + ra1=15.*s2dec(argv[2]); else ra1=atof(argv[2]); if (strchr(argv[3],':')!=NULL) - de1=sex2dec(argv[3]); + de1=s2dec(argv[3]); else de1=atof(argv[3]); if (strchr(argv[4],':')!=NULL) - ra2=15.*sex2dec(argv[4]); + ra2=15.*s2dec(argv[4]); else ra2=atof(argv[4]); if (strchr(argv[5],':')!=NULL) - de2=sex2dec(argv[5]); + de2=s2dec(argv[5]); else de2=atof(argv[5]); @@ -72,19 +72,19 @@ int main(int argc,char *argv[]) printf("%8.3f\n",rx); } else if (strcmp(argv[1],"-y")==0) { if (strchr(argv[2],':')!=NULL) - ra1=15.*sex2dec(argv[2]); + ra1=15.*s2dec(argv[2]); else ra1=atof(argv[2]); if (strchr(argv[3],':')!=NULL) - de1=sex2dec(argv[3]); + de1=s2dec(argv[3]); else de1=atof(argv[3]); if (strchr(argv[4],':')!=NULL) - ra2=15.*sex2dec(argv[4]); + ra2=15.*s2dec(argv[4]); else ra2=atof(argv[4]); if (strchr(argv[5],':')!=NULL) - de2=sex2dec(argv[5]); + de2=s2dec(argv[5]); else de2=atof(argv[5]); @@ -93,19 +93,19 @@ int main(int argc,char *argv[]) printf("%8.3f\n",ry); } else { if (strchr(argv[1],':')!=NULL) - ra1=15.*sex2dec(argv[1]); + ra1=15.*s2dec(argv[1]); else ra1=atof(argv[1]); if (strchr(argv[2],':')!=NULL) - de1=sex2dec(argv[2]); + de1=s2dec(argv[2]); else de1=atof(argv[2]); if (strchr(argv[3],':')!=NULL) - ra2=15.*sex2dec(argv[3]); + ra2=15.*s2dec(argv[3]); else ra2=atof(argv[3]); if (strchr(argv[4],':')!=NULL) - de2=sex2dec(argv[4]); + de2=s2dec(argv[4]); else de2=atof(argv[4]); @@ -118,7 +118,7 @@ int main(int argc,char *argv[]) } // Convert Decimal into Sexagesimal -void dec2sex(double x,char *s,int f,int len) +void dec2s(double x,char *s,int f,int len) { int i; double sec,deg,min; @@ -145,7 +145,7 @@ void dec2sex(double x,char *s,int f,int len) } // Convert Sexagesimal into Decimal -double sex2dec(char *s) +double s2dec(char *s) { double x; float deg,min,sec; diff --git a/src/calibrate.c b/src/calibrate.c index 2045c7d..86b874d 100644 --- a/src/calibrate.c +++ b/src/calibrate.c @@ -43,7 +43,7 @@ void lfit2d(float *x,float *y,float *z,int n,float *a); void fit_transformation(struct catalog cat,struct catalog ast,int nselect); struct catalog reread_astrometric_catalog(char *filename,float mmin); int match_catalogs(struct catalog *cat,struct catalog *ast,float rmax); -double sex2dec(char *s); +double s2dec(char *s); void usage(void) { @@ -97,7 +97,7 @@ int main(int argc,char *argv[]) case 'R': strcpy(sra,optarg); if (strchr(sra,':')!=NULL) - ra=15.0*sex2dec(sra); + ra=15.0*s2dec(sra); else ra=atof(sra); break; @@ -105,7 +105,7 @@ int main(int argc,char *argv[]) case 'D': strcpy(sde,optarg); if (strchr(sde,':')!=NULL) - de=sex2dec(sde); + de=s2dec(sde); else de=atof(sde); break; @@ -240,7 +240,7 @@ int main(int argc,char *argv[]) printf("m Match stars using current calibration\n"); printf("z/+ Zoom in on cursor\n"); printf("x/- Zoom out on cursor\n"); - printf("p Plot sextractor catalog\n"); + printf("p Plot source-extractor catalog\n"); printf("r Reset zoom\n"); } @@ -665,7 +665,7 @@ int match_catalogs(struct catalog *cat,struct catalog *ast,float rmax) } // Convert Sexagesimal into Decimal -double sex2dec(char *s) +double s2dec(char *s) { double x; float deg,min,sec; diff --git a/src/confirm.c b/src/confirm.c index bd3dc22..59de605 100644 --- a/src/confirm.c +++ b/src/confirm.c @@ -198,7 +198,7 @@ double mjd2doy(double mjd,int *yr) } // Convert Decimal into Sexagesimal -void dec2sex(double x,char *s,int type) +void dec2s(double x,char *s,int type) { int i; double sec,deg,min,fmin; @@ -240,8 +240,8 @@ void reduce_point(struct observation *obs,struct fourframe img,float tmid,float ry=img.b[0]+img.b[1]*dx+img.b[2]*dy; reverse(img.ra0,img.de0,rx,ry,&ra,&de); - dec2sex(ra/15.0,sra,0); - dec2sex(de,sde,1); + dec2s(ra/15.0,sra,0); + dec2s(de,sde,1); // Get time k=(int) x + img.naxis1*(int) y; diff --git a/src/dec2sex.c b/src/dec2s.c similarity index 92% rename from src/dec2sex.c rename to src/dec2s.c index 6c2ce43..8a95a91 100644 --- a/src/dec2sex.c +++ b/src/dec2s.c @@ -13,7 +13,7 @@ int main(int argc,char *argv[]) char s[14]; if (argc==1) { - printf("Usage: dec2sex [options] \n\nCompute sexagesimal from decimal input x.\n"); + printf("Usage: dec2s [options] \n\nCompute sexagesimal from decimal input x.\n"); printf("Options: -r gives hours instead of degrees\n"); printf(" -d uses character a as delimiter\n"); printf(" -h uses hms as delimiters\n"); diff --git a/src/detect.c b/src/detect.c index 0a4bef8..e3d2ab4 100644 --- a/src/detect.c +++ b/src/detect.c @@ -199,7 +199,7 @@ double mjd2doy(double mjd,int *yr) } // Convert Decimal into Sexagesimal -void dec2sex(double x,char *s,int type) +void dec2s(double x,char *s,int type) { int i; double sec,deg,min,fmin; @@ -241,8 +241,8 @@ void reduce_point(struct observation *obs,struct fourframe img,float tmid,float ry=img.b[0]+img.b[1]*dx+img.b[2]*dy; reverse(img.ra0,img.de0,rx,ry,&ra,&de); - dec2sex(ra/15.0,sra,0); - dec2sex(de,sde,1); + dec2s(ra/15.0,sra,0); + dec2s(de,sde,1); // Get time k=(int) x + img.naxis1*(int) y; diff --git a/src/fakeiod.c b/src/fakeiod.c index c1fb690..c2bfbf8 100644 --- a/src/fakeiod.c +++ b/src/fakeiod.c @@ -34,7 +34,7 @@ void precess(double mjd0,double ra0,double de0,double mjd,double *ra,double *de) void obspos_xyz(double mjd,double lng,double lat,float alt,xyz_t *pos,xyz_t *vel); void mjd2date(double mjd,char *date); double nfd2mjd(char *date); -void dec2sex(double x,char *s,int type); +void dec2s(double x,char *s,int type); double doy2mjd(int year,double doy); void compute_position(double mjd,xyz_t satpos,struct site s,int satno,char *desig,int precess_flag) @@ -66,8 +66,8 @@ void compute_position(double mjd,xyz_t satpos,struct site s,int satno,char *desi } // Angle format 2: RA/DEC = HHMMmmm+DDMMmm MX (MX in minutes of arc) - dec2sex(ra0/15.0,sra,0); - dec2sex(de0,sde,1); + dec2s(ra0/15.0,sra,0); + dec2s(de0,sde,1); // Get date mjd2date(mjd,nfd); @@ -471,7 +471,7 @@ double nfd2mjd(char *date) } // Convert Decimal into Sexagesimal -void dec2sex(double x,char *s,int type) +void dec2s(double x,char *s,int type) { int i; double sec,deg,min,fmin; diff --git a/src/measure.c b/src/measure.c index 94a8700..dcc2152 100644 --- a/src/measure.c +++ b/src/measure.c @@ -214,7 +214,7 @@ void mjd2date(double mjd,char *date) } // Convert Decimal into Sexagesimal -void dec2sex(double x,char *s,int type) +void dec2s(double x,char *s,int type) { int i; double sec,deg,min,fmin; @@ -445,8 +445,8 @@ void reduce_point(struct observation *obs,struct image img,float tmid,float x,fl ra+=gmst(mjd2)-gmst(mjd1); } - dec2sex(ra/15.0,sra,0); - dec2sex(de,sde,1); + dec2s(ra/15.0,sra,0); + dec2s(de,sde,1); // Get time mjd=img.mjd+(double) tmid/86400.0; diff --git a/src/planscan.c b/src/planscan.c index 070e524..50c08d6 100644 --- a/src/planscan.c +++ b/src/planscan.c @@ -40,7 +40,7 @@ double modulo(double x,double y); void equatorial2horizontal(double mjd,double ra,double de,double *azi,double *alt); void mjd2date(double mjd,char *date); int properties(kep_t K,xyz_t obspos,xyz_t sunpos,float radius,float t,double *ra,double *de,double *r,float *mag); -void dec2sex(double x,char *s,int f,int len); +void dec2s(double x,char *s,int f,int len); float semimajoraxis(orbit_t orb) { @@ -296,8 +296,8 @@ int main(int argc,char *argv[]) equatorial2horizontal(mjd,ra,de,&azi,&alt); azi=modulo(azi+180.0,360.0); mjd2date(mjd,nfd); - dec2sex(ra/15.0,sra,0,2); - dec2sex(de,sde,0,2); + dec2s(ra/15.0,sra,0,2); + dec2s(de,sde,0,2); if (alt>altmin && saltra=ra; obs->de=de; @@ -1384,7 +1384,7 @@ void mjd2date(double mjd,char *date) } // Convert Decimal into Sexagesimal -void dec2sex(double x,char *s,int type) +void dec2s(double x,char *s,int type) { int i; double sec,deg,min,fmin; diff --git a/src/sex2dec.c b/src/s2dec.c similarity index 81% rename from src/sex2dec.c rename to src/s2dec.c index 85420f4..6866392 100644 --- a/src/sex2dec.c +++ b/src/s2dec.c @@ -4,7 +4,7 @@ #include #include -// Usage: sex2dec [options] hh:mm:ss.ss +// Usage: s2dec [options] hh:mm:ss.ss int main(int argc,char *argv[]) { double x; @@ -13,7 +13,7 @@ int main(int argc,char *argv[]) char t[20],c; if (argc==1) { - printf("Usage: sex2dec -r \n -or- \nCompute sexagesimal from decimal input x.\n"); + printf("Usage: s2dec -r \n -or- \nCompute sexagesimal from decimal input x.\n"); printf("Options: -r Converts hours into degrees\n"); return -1; diff --git a/src/skymap.c b/src/skymap.c index 22b34b5..a8efc4c 100644 --- a/src/skymap.c +++ b/src/skymap.c @@ -114,12 +114,12 @@ int plot_skymap (void); void rotate (int, float, float *, float *, float *); int print_tle (char *, int); void mjd2date (double mjd, char *date); -void dec2sex (double x, char *s, int f, int len); +void dec2s (double x, char *s, int f, int len); void precess (double mjd0, double ra0, double de0, double mjd, double *ra, double *de); double nfd2mjd (char *date); void nfd_now (char *s); -double sex2dec (char *s); +double s2dec (char *s); double doy2mjd (int year, double doy); struct observation decode_iod_observation (char *iod_line); void plot_iod (char *filename); @@ -129,7 +129,7 @@ void ecliptical2equatorial (double l, double b, double *ra, double *de); void skymap_plotsun (void); void skymap_plotmoon (void); void mjd2date_iod (double mjd, char *date); -void dec2sex_iod (double x, char *s, int type); +void dec2s_iod (double x, char *s, int type); int giza_open_device_size_float (const char *, const char *, float, float, int); @@ -589,8 +589,8 @@ format_iod (double mjd, double ra, double de, int site) // Precess position to J2000 mjd0 = 51544.5; precess (mjd, ra, de, mjd0, &ra0, &de0); - dec2sex_iod (ra0 / 15.0, sra, 0); - dec2sex_iod (de0, sde, 1); + dec2s_iod (ra0 / 15.0, sra, 0); + dec2s_iod (de0, sde, 1); // Print IOD line printf ("99999 99 999A %04d G %s 17 25 %s%s 37 S\n", site, nfd, sra, sde); @@ -818,13 +818,13 @@ main (int argc, char *argv[]) break; case 'R': - m.ra0 = 15.0 * sex2dec (optarg); + m.ra0 = 15.0 * s2dec (optarg); strcpy (m.orientation, "equatorial"); m.level = 5; break; case 'D': - m.de0 = sex2dec (optarg); + m.de0 = s2dec (optarg); strcpy (m.orientation, "equatorial"); m.level = 5; break; @@ -1178,8 +1178,8 @@ schedule (char *nfd, double ra, double de, char *startstop) char sra[16], sde[16]; // Compute strings - dec2sex (ra / 15.0, sra, 0, 5); - dec2sex (de, sde, 0, 4); + dec2s (ra / 15.0, sra, 0, 5); + dec2s (de, sde, 0, 4); printf ("%s %s %s %s\n", nfd, sra, sde, startstop); @@ -2695,16 +2695,16 @@ identify_satellite (char *filename, int satno, double mjd, float rx, float ry) ("x: %+12.4lf km; vx: %+8.5f km/s\ny: %+12.4lf km; vy: %+8.5f km/s\nz: %+12.4lf km; vz: %+8.5f km/s\nr: %10.2lf km; v: %6.3f km/s\nl: %6.2lf; b: %6.2lf; h: %10.2lf km\n\n", smin.x, smin.vx, smin.y, smin.vy, smin.z, smin.vz, smin.r, smin.v, lng, lat, smin.h); - dec2sex (smin.ra / 15.0, sra, 0, 5); - dec2sex (smin.de, sde, 0, 4); + dec2s (smin.ra / 15.0, sra, 0, 5); + dec2s (smin.de, sde, 0, 4); printf ("R.A.: %s Decl.: %s\n", sra, sde); // Precess position to J2000 mjd0 = 51544.5; precess (mjd, smin.ra, smin.de, mjd0, &ra0, &de0); - dec2sex (ra0 / 15.0, sra, 0, 5); - dec2sex (de0, sde, 0, 4); + dec2s (ra0 / 15.0, sra, 0, 5); + dec2s (de0, sde, 0, 4); printf ("R.A.: %s Decl.: %s (J2000)\n", sra, sde); printf ("Azi.: %.1f Alt.: %.1f\n\n", modulo (smin.azi - 180.0, 360.0), smin.alt); @@ -2965,8 +2965,8 @@ plot_skymap (void) cpgmtxt ("T", 0.6, 1.0, 1.0, text); // Bottom string - dec2sex (m.ra0 / 15.0, sra, 0, 5); - dec2sex (m.de0, sde, 0, 4); + dec2s (m.ra0 / 15.0, sra, 0, 5); + dec2s (m.de0, sde, 0, 4); sprintf (text, "R:%s; D:%s; A: %.1f; E: %.1f; q: %.2f; S: %.1fx%.1f deg; L: %d; O: %s; m < %.1f; C: %s; l: %.0f s", sra, sde, modulo (m.azi0 - 180.0, 360.0), m.alt0, m.q, @@ -3538,7 +3538,7 @@ mjd2date_iod (double mjd, char *date) // Convert Decimal into Sexagesimal void -dec2sex (double x, char *s, int f, int len) +dec2s (double x, char *s, int f, int len) { int i; double sec, deg, min; @@ -3576,7 +3576,7 @@ dec2sex (double x, char *s, int f, int len) // Convert Decimal into Sexagesimal void -dec2sex_iod (double x, char *s, int type) +dec2s_iod (double x, char *s, int type) { int i; double sec, deg, min, fmin; @@ -3660,7 +3660,7 @@ precess (double mjd0, double ra0, double de0, double mjd, double *ra, // Convert Sexagesimal into Decimal double -sex2dec (char *s) +s2dec (char *s) { double x; float deg, min, sec; diff --git a/src/slewto.c b/src/slewto.c index 7058d0e..666899d 100644 --- a/src/slewto.c +++ b/src/slewto.c @@ -238,7 +238,7 @@ double gmst(double mjd) // Convert Sexagesimal into Decimal -double sex2dec(char *s) +double s2dec(char *s) { double x; float deg,min,sec; @@ -347,7 +347,7 @@ double parallactic_angle(double mjd,double ra,double de) } // Convert Decimal into Sexagesimal -void dec2sex(double x,char *s,int f,int len) +void dec2s(double x,char *s,int f,int len) { int i; double sec,deg,min; @@ -413,12 +413,12 @@ int main(int argc,char *argv[]) break; case 'R': - m.ra0=15.0*sex2dec(optarg); + m.ra0=15.0*s2dec(optarg); strcpy(m.orientation,"equatorial"); break; case 'D': - m.de0=sex2dec(optarg); + m.de0=s2dec(optarg); strcpy(m.orientation,"equatorial"); break; @@ -461,8 +461,8 @@ int main(int argc,char *argv[]) m.q=parallactic_angle(m.mjd,m.ra0,m.de0); // Get sexagesimal - dec2sex(m.ra0/15.0,sra,0,5); - dec2sex(m.de0,sde,0,4); + dec2s(m.ra0/15.0,sra,0,5); + dec2s(m.de0,sde,0,4); // Print to screen printf("%s R:%s D: %s H: %7.3f A: %6.3f E: %6.3f q: %5.2f\n",m.nfd,sra,sde,ha,modulo(m.azi0-180.0,360.0),m.alt0,m.q);