eddy/eddys_snippets
1
0
Fork 0
mirror of https://github.com/eddyem/eddys_snippets.git synced 2026-03-20 00:30:59 +03:00
Code Issues Packages Projects Releases Wiki Activity

add USBrelay

Browse Source
This commit is contained in:
eddyem
2020-10-13 00:01:41 +03:00
parent 62a19346cf
commit 2656ac3d43
13 changed files with 536 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
calcAP/slalib_sofa_nova.c
View File

@@ -118,7 +118,7 @@ void radtodeg(double r){
double getta(char *str){
int a,b,s = 1; double c;
if(3 != sscanf(str, "%d:%d:%lf", &a,&b,&c)) return -1;
if(a < 0){ s = -1; a = -a;}
if(a < 0 || *str == '-'){ s = -1; a = -a;}
c /= 3600.;
c += a + b/60.;
c *= s;
@@ -217,6 +217,8 @@ int main (int argc, char **argv){
dut1 = 0.13026 ; // DUT1
/* ICRS to observed. */
double aob, zob, hob, dob, rob;
printf("iauAtco13(%g, %g, %g, %g, %g, %g, %g, %g, %g, %g, %g, %g, %g, %g, %g, %g, %g, %g)\n",
rc, dc, pr, pd, px, rv, utc1, utc2, dut1, elong, phi, hm, xp, yp, phpa, tc, rh, wl);
if ( iauAtco13 ( rc, dc, pr,
pd, px, rv, utc1, utc2, dut1, elong, phi,
hm, xp, yp, phpa, tc, rh, wl, &aob, &zob,