Module: Celes

Defined in:
lib/celes.rb,
lib/celes/version.rb,
ext/celes/celes_core.c

Constant Summary collapse

VERSION = 
"0.0.1"
DPI = 
DBL2NUM(DPI)
D2PI = 
DBL2NUM(D2PI)
DD2R = 
DBL2NUM(DD2R)
DR2AS = 
DBL2NUM(DR2AS)
DAS2R = 
DBL2NUM(DAS2R)
DS2R = 
DBL2NUM(DS2R)
TURNAS = 
DBL2NUM(TURNAS)
DMAS2R = 
DBL2NUM(DMAS2R)
DTY = 
DBL2NUM(DTY)
DAYSEC = 
DBL2NUM(DAYSEC)
DJY = 
DBL2NUM(DJY)
DJC = 
DBL2NUM(DJC)
DJM = 
DBL2NUM(DJM)
DJ00 = 
DBL2NUM(DJ00)
DJM0 = 
DBL2NUM(DJM0)
DJM00 = 
DBL2NUM(DJM00)
DJM77 = 
DBL2NUM(DJM77)
TTMTAI = 
DBL2NUM(TTMTAI)
DAU = 
DBL2NUM(DAU)
DC = 
DBL2NUM(DC)
ELG = 
DBL2NUM(ELG)
ELB = 
DBL2NUM(ELB)
TDB0 = 
DBL2NUM(TDB0)
WGS84 = 
INT2NUM(WGS84)
GRS80 = 
INT2NUM(GRS80)
WGS72 = 
INT2NUM(WGS72)

Class Method Summary collapse

Class Method Details

.a2af(vndp, vangle) ⇒ Object 



783
784
785
786
787
788
789
790
791
792
793
794
 
# File 'ext/celes/celes_core.c', line 783

static VALUE
celes_s_a2af(VALUE self, VALUE vndp, VALUE vangle){
	char sign;
	int idmsf[4];

	iauA2af(NUM2INT(vndp), NUM2DBL(vangle), &sign, idmsf);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, rb_str_new(&sign, 1),
			rb_ary_new3(4, INT2NUM(idmsf[0]), INT2NUM(idmsf[1]),
				INT2NUM(idmsf[2]), INT2NUM(idmsf[3])));
}

.a2tf(vndp, vangle) ⇒ Object 



770
771
772
773
774
775
776
777
778
779
780
781
 
# File 'ext/celes/celes_core.c', line 770

static VALUE
celes_s_a2tf(VALUE self, VALUE vndp, VALUE vangle){
	char sign;
	int ihmsf[4];

	iauA2tf(NUM2INT(vndp), NUM2DBL(vangle), &sign, ihmsf);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, rb_str_new(&sign, 1),
			rb_ary_new3(4, INT2NUM(ihmsf[0]), INT2NUM(ihmsf[1]),
				INT2NUM(ihmsf[2]), INT2NUM(ihmsf[3])));
}

.af2a(vs, vdeg, vamin, vasec) ⇒ Object 



796
797
798
799
800
801
802
803
804
805
806
807
808
 
# File 'ext/celes/celes_core.c', line 796

static VALUE
celes_s_af2a(VALUE self, VALUE vs, VALUE vdeg, VALUE vamin, VALUE vasec){
	int ret;
	double rad;

	Check_Type(vs, T_STRING);

	ret = iauAf2a(RSTRING_PTR(vs)[0], NUM2DBL(vdeg),
			NUM2DBL(vamin), NUM2DBL(vasec), &rad);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	return DBL2NUM(rad);
}

.anp(va) ⇒ Object 



756
757
758
759
760
761
 
# File 'ext/celes/celes_core.c', line 756

static VALUE
celes_s_anp(VALUE self, VALUE va){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauAnp(NUM2DBL(va)));
}

.anpm(va) ⇒ Object 



763
764
765
766
767
768
 
# File 'ext/celes/celes_core.c', line 763

static VALUE
celes_s_anpm(VALUE self, VALUE va){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauAnpm(NUM2DBL(va)));
}

.bi00 ⇒ Object 



1320
1321
1322
1323
1324
1325
1326
1327
1328
 
# File 'ext/celes/celes_core.c', line 1320

static VALUE
celes_s_bi00(VALUE self){
	double dpsibi, depsbi, dra;

	iauBi00(&dpsibi, &depsbi, &dra);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(3, DBL2NUM(dpsibi), DBL2NUM(depsbi), DBL2NUM(dra));
}

.bp00(vdate1, vdate2) ⇒ Object 



1330
1331
1332
1333
1334
1335
1336
1337
1338
 
# File 'ext/celes/celes_core.c', line 1330

static VALUE
celes_s_bp00(VALUE self, VALUE vdate1, VALUE vdate2){
	double rb[3][3], rp[3][3], rbp[3][3];

	iauBp00(NUM2DBL(vdate1), NUM2DBL(vdate2), rb, rp, rbp);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(3, vmat_new33(rb), vmat_new33(rp), vmat_new33(rbp));
}

.bp06(vdate1, vdate2) ⇒ Object 



1340
1341
1342
1343
1344
1345
1346
1347
1348
 
# File 'ext/celes/celes_core.c', line 1340

static VALUE
celes_s_bp06(VALUE self, VALUE vdate1, VALUE vdate2){
	double rb[3][3], rp[3][3], rbp[3][3];

	iauBp06(NUM2DBL(vdate1), NUM2DBL(vdate2), rb, rp, rbp);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(3, vmat_new33(rb), vmat_new33(rp), vmat_new33(rbp));
}

.bpn2xy(vrbpn) ⇒ Object 



1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
 
# File 'ext/celes/celes_core.c', line 1350

static VALUE
celes_s_bpn2xy(VALUE self, VALUE vrbpn){
	double rbpn[3][3], x, y;

	cmat_cp33(vrbpn, rbpn);
	iauBpn2xy(rbpn, &x, &y);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(x), DBL2NUM(y));
}

.c2i00a(vdate1, vdate2) ⇒ Object 



1361
1362
1363
1364
1365
1366
1367
1368
1369
 
# File 'ext/celes/celes_core.c', line 1361

static VALUE
celes_s_c2i00a(VALUE self, VALUE vdate1, VALUE vdate2){
	double rc2i[3][3];

	iauC2i00a(NUM2DBL(vdate1), NUM2DBL(vdate2), rc2i);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rc2i);
}

.c2i00b(vdate1, vdate2) ⇒ Object 



1371
1372
1373
1374
1375
1376
1377
1378
1379
 
# File 'ext/celes/celes_core.c', line 1371

static VALUE
celes_s_c2i00b(VALUE self, VALUE vdate1, VALUE vdate2){
	double rc2i[3][3];

	iauC2i00b(NUM2DBL(vdate1), NUM2DBL(vdate2), rc2i);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rc2i);
}

.c2i06a(vdate1, vdate2) ⇒ Object 



1381
1382
1383
1384
1385
1386
1387
1388
1389
 
# File 'ext/celes/celes_core.c', line 1381

static VALUE
celes_s_c2i06a(VALUE self, VALUE vdate1, VALUE vdate2){
	double rc2i[3][3];

	iauC2i06a(NUM2DBL(vdate1), NUM2DBL(vdate2), rc2i);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rc2i);
}

.c2ibpn(vdate1, vdate2, vrbpn) ⇒ Object 



1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
 
# File 'ext/celes/celes_core.c', line 1391

static VALUE
celes_s_c2ibpn(VALUE self, VALUE vdate1, VALUE vdate2, VALUE vrbpn){
	double rbpn[3][3], rc2i[3][3];

	cmat_cp33(vrbpn, rbpn);
	iauC2ibpn(NUM2DBL(vdate1), NUM2DBL(vdate2), rbpn, rc2i);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rc2i);
}

.c2ixy(vdate1, vdate2, vx, vy) ⇒ Object 



1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
 
# File 'ext/celes/celes_core.c', line 1402

static VALUE
celes_s_c2ixy(VALUE self, VALUE vdate1, VALUE vdate2, VALUE vx, VALUE vy){
	double rc2i[3][3];

	iauC2ixy(NUM2DBL(vdate1), NUM2DBL(vdate2),
			NUM2DBL(vx), NUM2DBL(vy), rc2i);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rc2i);
}

.c2ixys(vx, vy, vs) ⇒ Object 



1413
1414
1415
1416
1417
1418
1419
1420
1421
 
# File 'ext/celes/celes_core.c', line 1413

static VALUE
celes_s_c2ixys(VALUE self, VALUE vx, VALUE vy, VALUE vs){
	double rc2i[3][3];

	iauC2ixys(NUM2DBL(vx), NUM2DBL(vy), NUM2DBL(vs), rc2i);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rc2i);
}

.c2s(vp) ⇒ Object 



320
321
322
323
324
325
326
327
328
329
 
# File 'ext/celes/celes_core.c', line 320

static VALUE
celes_s_c2s(VALUE self, VALUE vp){
	double p[3], theta, phi;

	cvec_cp(vp, p);
	iauC2s(p, &theta, &phi);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(theta), DBL2NUM(phi));
}

.c2t00a(vtta, vttb, vuta, vutb, vxp, vyp) ⇒ Object 



1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
 
# File 'ext/celes/celes_core.c', line 1423

static VALUE
celes_s_c2t00a(VALUE self, VALUE vtta, VALUE vttb,
		VALUE vuta, VALUE vutb, VALUE vxp, VALUE vyp){
	double rc2t[3][3];

	iauC2t00a(NUM2DBL(vtta), NUM2DBL(vttb), NUM2DBL(vuta), NUM2DBL(vutb), 
			NUM2DBL(vxp), NUM2DBL(vyp), rc2t);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rc2t);
}

.c2t00b(vtta, vttb, vuta, vutb, vxp, vyp) ⇒ Object 



1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
 
# File 'ext/celes/celes_core.c', line 1435

static VALUE
celes_s_c2t00b(VALUE self, VALUE vtta, VALUE vttb,
		VALUE vuta, VALUE vutb, VALUE vxp, VALUE vyp){
	double rc2t[3][3];

	iauC2t00b(NUM2DBL(vtta), NUM2DBL(vttb), NUM2DBL(vuta), NUM2DBL(vutb), 
			NUM2DBL(vxp), NUM2DBL(vyp), rc2t);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rc2t);
}

.c2t06a(vtta, vttb, vuta, vutb, vxp, vyp) ⇒ Object 



1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
 
# File 'ext/celes/celes_core.c', line 1447

static VALUE
celes_s_c2t06a(VALUE self, VALUE vtta, VALUE vttb,
		VALUE vuta, VALUE vutb, VALUE vxp, VALUE vyp){
	double rc2t[3][3];

	iauC2t06a(NUM2DBL(vtta), NUM2DBL(vttb), NUM2DBL(vuta), NUM2DBL(vutb), 
			NUM2DBL(vxp), NUM2DBL(vyp), rc2t);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rc2t);
}

.c2tcio(vrc2i, vera, vrpom) ⇒ Object 



1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
 
# File 'ext/celes/celes_core.c', line 1459

static VALUE
celes_s_c2tcio(VALUE self, VALUE vrc2i, VALUE vera, VALUE vrpom){
	double rc2i[3][3], rpom[3][3], rc2t[3][3];

	cmat_cp33(vrc2i, rc2i);
	cmat_cp33(vrpom, rpom);
	iauC2tcio(rc2i, NUM2DBL(vera), rpom, rc2t);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rc2t);
}

.c2teqx(vrbpn, vgst, vrpom) ⇒ Object 



1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
 
# File 'ext/celes/celes_core.c', line 1471

static VALUE
celes_s_c2teqx(VALUE self, VALUE vrbpn, VALUE vgst, VALUE vrpom){
	double rbpn[3][3], rpom[3][3], rc2t[3][3];

	cmat_cp33(vrbpn, rbpn);
	cmat_cp33(vrpom, rpom);
	iauC2teqx(rbpn, NUM2DBL(vgst), rpom, rc2t);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rc2t);
}

.c2tpe(vtta, vttb, vuta, vutb, vdpsi, vdeps, vxp, vyp) ⇒ Object 



1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
 
# File 'ext/celes/celes_core.c', line 1483

static VALUE
celes_s_c2tpe(VALUE self, VALUE vtta, VALUE vttb, VALUE vuta, VALUE vutb,
		VALUE vdpsi, VALUE vdeps, VALUE vxp, VALUE vyp){
	double rc2t[3][3];

	iauC2tpe(NUM2DBL(vtta), NUM2DBL(vttb), NUM2DBL(vuta), NUM2DBL(vutb),
			NUM2DBL(vdpsi), NUM2DBL(vdeps), NUM2DBL(vxp), NUM2DBL(vyp),
			rc2t);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rc2t);
}

.c2txy(vtta, vttb, vuta, vutb, vx, vy, vxp, vyp) ⇒ Object 



1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
 
# File 'ext/celes/celes_core.c', line 1496

static VALUE
celes_s_c2txy(VALUE self, VALUE vtta, VALUE vttb, VALUE vuta, VALUE vutb,
		VALUE vx, VALUE vy, VALUE vxp, VALUE vyp){
	double rc2t[3][3];

	iauC2txy(NUM2DBL(vtta), NUM2DBL(vttb), NUM2DBL(vuta), NUM2DBL(vutb),
			NUM2DBL(vx), NUM2DBL(vy), NUM2DBL(vxp), NUM2DBL(vyp), rc2t);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rc2t);
}

.cal2jd(vy, vm, vd) ⇒ Object 



851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
 
# File 'ext/celes/celes_core.c', line 851

static VALUE
celes_s_cal2jd(VALUE self, VALUE vy, VALUE vm, VALUE vd){
	int ret;
	double djm0, djm;

	ret = iauCal2jd(NUM2INT(vy), NUM2INT(vm), NUM2INT(vd), &djm0, &djm);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	if(ret == -1)
		rb_raise(rb_eArgError, "bad year");
	else if(ret == -2)
		rb_raise(rb_eArgError, "bad month");

	return rb_ary_new3(2, DBL2NUM(djm0), DBL2NUM(djm));
}

.cp(vp) ⇒ Object 



222
223
224
225
226
227
228
229
230
231
 
# File 'ext/celes/celes_core.c', line 222

static VALUE
celes_s_cp(VALUE self, VALUE vp){
	double p[3], c[3];

	cvec_cp(vp, p);
	iauCp(p, c);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vvec_new(c);
}

.cpv(vpv) ⇒ Object 



572
573
574
575
576
577
578
579
580
581
 
# File 'ext/celes/celes_core.c', line 572

static VALUE
celes_s_cpv(VALUE self, VALUE vpv){
	double pv[2][3], c[2][3];

	cmat_cp23(vpv, pv);
	iauCpv(pv, c);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new23(c);
}

.cr(vr) ⇒ Object 



233
234
235
236
237
238
239
240
241
242
 
# File 'ext/celes/celes_core.c', line 233

static VALUE
celes_s_cr(VALUE self, VALUE vr){
	double r[3][3], c[3][3];

	cmat_cp33(vr, r);
	iauCr(r, c);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(c);
}

.d2dtf(vscale, vndp, vd1, vd2) ⇒ Object 



931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
 
# File 'ext/celes/celes_core.c', line 931

static VALUE
celes_s_d2dtf(VALUE self, VALUE vscale, VALUE vndp, VALUE vd1, VALUE vd2){
	int ret;
	int iy, im, id, ihmsf[4];

	if(NIL_P(vscale)) vscale = rb_str_new2("");
	ret = iauD2dtf(RSTRING_PTR(vscale), NUM2INT(vndp),
			NUM2DBL(vd1), NUM2DBL(vd2), &iy, &im, &id, ihmsf);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	if(ret == -1)
		rb_raise(rb_eArgError, "unacceptable date");

	return rb_ary_new3(4, INT2FIX(iy), INT2FIX(im), INT2FIX(id),
			rb_ary_new3(4, INT2FIX(ihmsf[0]), INT2FIX(ihmsf[1]),
			INT2FIX(ihmsf[2]), INT2NUM(ihmsf[3])));
}

.d2tf(vndp, vdays) ⇒ Object 



810
811
812
813
814
815
816
817
818
819
820
821
 
# File 'ext/celes/celes_core.c', line 810

static VALUE
celes_s_d2tf(VALUE self, VALUE vndp, VALUE vdays){
	char sign;
	int ihmsf[4];

	iauD2tf(NUM2INT(vndp), NUM2DBL(vdays), &sign, ihmsf);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, rb_str_new(&sign, 1),
			rb_ary_new3(4, INT2NUM(ihmsf[0]), INT2NUM(ihmsf[1]),
				INT2NUM(ihmsf[2]), INT2NUM(ihmsf[3])));
}

.dat(vy, vm, vd, vfd) ⇒ Object 



949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
 
# File 'ext/celes/celes_core.c', line 949

static VALUE
celes_s_dat(VALUE self, VALUE vy, VALUE vm, VALUE vd, VALUE vfd){
	int ret;
	double deltat;

	ret = iauDat(NUM2INT(vy), NUM2INT(vm),
			NUM2INT(vd), NUM2DBL(vfd), &deltat);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	if(ret == -1)
		rb_raise(rb_eArgError, "bad year");
	else if(ret == -2)
		rb_raise(rb_eArgError, "bad month");
	else if(ret == -3)
		rb_raise(rb_eArgError, "bad day");
	else if(ret == -4)
		rb_raise(rb_eArgError, "bad fraction");

	return DBL2NUM(deltat);
}

.dtdb(vdate1, vdate2, vut, velong, vu, vv) ⇒ Object 



970
971
972
973
974
975
976
977
 
# File 'ext/celes/celes_core.c', line 970

static VALUE
celes_s_dtdb(VALUE self, VALUE vdate1, VALUE vdate2,
		VALUE vut, VALUE velong, VALUE vu, VALUE vv){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauDtdb(NUM2DBL(vdate1), NUM2DBL(vdate2),
			NUM2DBL(vut), NUM2DBL(velong), NUM2DBL(vu), NUM2DBL(vv)));
}

.dtf2d(vscale, vy, vm, vd, vhr, vmn, vsec) ⇒ Object 



979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
 
# File 'ext/celes/celes_core.c', line 979

static VALUE
celes_s_dtf2d(VALUE self, VALUE vscale, VALUE vy, VALUE vm, VALUE vd,
		VALUE vhr, VALUE vmn, VALUE vsec){
	int ret;
	double d1, d2;

	if(NIL_P(vscale)) vscale = rb_str_new2("");
	ret = iauDtf2d(RSTRING_PTR(vscale), NUM2INT(vy), NUM2INT(vm),
			NUM2INT(vd), NUM2INT(vhr), NUM2INT(vmn), NUM2DBL(vsec),
			&d1, &d2);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	if(ret == -1)
		rb_raise(rb_eArgError, "bad year");
	else if(ret == -2)
		rb_raise(rb_eArgError, "bad month");
	else if(ret == -3)
		rb_raise(rb_eArgError, "bad day");

	return rb_ary_new3(2, DBL2NUM(d1), DBL2NUM(d2));
}

.ee00(vdate1, vdate2, vepsa, vdpsi) ⇒ Object 



1179
1180
1181
1182
1183
1184
1185
1186
 
# File 'ext/celes/celes_core.c', line 1179

static VALUE
celes_s_ee00(VALUE self, VALUE vdate1, VALUE vdate2,
		VALUE vepsa, VALUE vdpsi){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauEe00(NUM2DBL(vdate1), NUM2DBL(vdate2),
			NUM2DBL(vepsa), NUM2DBL(vdpsi)));
}

.ee00a(vdate1, vdate2) ⇒ Object 



1188
1189
1190
1191
1192
1193
 
# File 'ext/celes/celes_core.c', line 1188

static VALUE
celes_s_ee00a(VALUE self, VALUE vdate1, VALUE vdate2){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauEe00a(NUM2DBL(vdate1), NUM2DBL(vdate2)));
}

.ee00b(vdate1, vdate2) ⇒ Object 



1195
1196
1197
1198
1199
1200
 
# File 'ext/celes/celes_core.c', line 1195

static VALUE
celes_s_ee00b(VALUE self, VALUE vdate1, VALUE vdate2){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauEe00b(NUM2DBL(vdate1), NUM2DBL(vdate2)));
}

.ee06a(vdate1, vdate2) ⇒ Object 



1202
1203
1204
1205
1206
1207
 
# File 'ext/celes/celes_core.c', line 1202

static VALUE
celes_s_ee06a(VALUE self, VALUE vdate1, VALUE vdate2){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauEe06a(NUM2DBL(vdate1), NUM2DBL(vdate2)));
}

.eect00(vdate1, vdate2) ⇒ Object 



1209
1210
1211
1212
1213
1214
 
# File 'ext/celes/celes_core.c', line 1209

static VALUE
celes_s_eect00(VALUE self, VALUE vdate1, VALUE vdate2){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauEect00(NUM2DBL(vdate1), NUM2DBL(vdate2)));
}

.eform(vn) ⇒ Object 



2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
 
# File 'ext/celes/celes_core.c', line 2156

static VALUE
celes_s_eform(VALUE self, VALUE vn){
	int ret;
	double a, f;

	ret = iauEform(NUM2INT(vn), &a, &f);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	if(ret == -1)
		rb_raise(rb_eArgError, "illegal identifier");

	return rb_ary_new3(2, DBL2NUM(a), DBL2NUM(f));
}

.eo06a(vdate1, vdate2) ⇒ Object 



1508
1509
1510
1511
1512
1513
 
# File 'ext/celes/celes_core.c', line 1508

static VALUE
celes_s_eo06a(VALUE self, VALUE vdate1, VALUE vdate2){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauEo06a(NUM2DBL(vdate1), NUM2DBL(vdate2)));
}

.eors(vrnpb, vs) ⇒ Object 



1515
1516
1517
1518
1519
1520
1521
1522
1523
 
# File 'ext/celes/celes_core.c', line 1515

static VALUE
celes_s_eors(VALUE self, VALUE vrnpb, VALUE vs){
	double rnpb[3][3];

	cmat_cp33(vrnpb, rnpb);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauEors(rnpb, NUM2DBL(vs)));
}

.epb(vdj1, vdj2) ⇒ Object 



867
868
869
870
871
872
 
# File 'ext/celes/celes_core.c', line 867

static VALUE
celes_s_epb(VALUE self, VALUE vdj1, VALUE vdj2){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauEpb(NUM2DBL(vdj1), NUM2DBL(vdj2)));
}

.epb2jd(vepb) ⇒ Object 



874
875
876
877
878
879
880
881
882
 
# File 'ext/celes/celes_core.c', line 874

static VALUE
celes_s_epb2jd(VALUE self, VALUE vepb){
	double djm0, djm;

	iauEpb2jd(NUM2DBL(vepb), &djm0, &djm);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(djm0), DBL2NUM(djm));
}

.epj(vdj1, vdj2) ⇒ Object 



884
885
886
887
888
889
 
# File 'ext/celes/celes_core.c', line 884

static VALUE
celes_s_epj(VALUE self, VALUE vdj1, VALUE vdj2){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauEpj(NUM2DBL(vdj1), NUM2DBL(vdj2)));
}

.epj2jd(vepj) ⇒ Object 



891
892
893
894
895
896
897
898
899
 
# File 'ext/celes/celes_core.c', line 891

static VALUE
celes_s_epj2jd(VALUE self, VALUE vepj){
	double djm0, djm;

	iauEpj2jd(NUM2DBL(vepj), &djm0, &djm);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(djm0), DBL2NUM(djm));
}

.epv00(vdate1, vdate2) ⇒ Object 



1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
 
# File 'ext/celes/celes_core.c', line 1296

static VALUE
celes_s_epv00(VALUE self, VALUE vdate1, VALUE vdate2){
	int ret;
	double pvh[2][3], pvb[2][3];

	ret = iauEpv00(NUM2DBL(vdate1), NUM2DBL(vdate2), pvh, pvb);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	return rb_ary_new3(2, vmat_new23(pvh), vmat_new23(pvb));
}

.eqeq94(vdate1, vdate2) ⇒ Object 



1216
1217
1218
1219
1220
1221
 
# File 'ext/celes/celes_core.c', line 1216

static VALUE
celes_s_eqeq94(VALUE self, VALUE vdate1, VALUE vdate2){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauEqeq94(NUM2DBL(vdate1), NUM2DBL(vdate2)));
}

.era00(vdj1, vdj2) ⇒ Object 



1223
1224
1225
1226
1227
1228
 
# File 'ext/celes/celes_core.c', line 1223

static VALUE
celes_s_era00(VALUE self, VALUE vdj1, VALUE vdj2){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauEra00(NUM2DBL(vdj1), NUM2DBL(vdj2)));
}

.fad03(vt) ⇒ Object 



1946
1947
1948
1949
1950
1951
 
# File 'ext/celes/celes_core.c', line 1946

static VALUE
celes_s_fad03(VALUE self, VALUE vt){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauFad03(NUM2DBL(vt)));
}

.fae03(vt) ⇒ Object 



1953
1954
1955
1956
1957
1958
 
# File 'ext/celes/celes_core.c', line 1953

static VALUE
celes_s_fae03(VALUE self, VALUE vt){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauFae03(NUM2DBL(vt)));
}

.faf03(vt) ⇒ Object 



1960
1961
1962
1963
1964
1965
 
# File 'ext/celes/celes_core.c', line 1960

static VALUE
celes_s_faf03(VALUE self, VALUE vt){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauFaf03(NUM2DBL(vt)));
}

.faju03(vt) ⇒ Object 



1967
1968
1969
1970
1971
1972
 
# File 'ext/celes/celes_core.c', line 1967

static VALUE
celes_s_faju03(VALUE self, VALUE vt){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauFaju03(NUM2DBL(vt)));
}

.fal03(vt) ⇒ Object 



1974
1975
1976
1977
1978
1979
 
# File 'ext/celes/celes_core.c', line 1974

static VALUE
celes_s_fal03(VALUE self, VALUE vt){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauFal03(NUM2DBL(vt)));
}

.falp03(vt) ⇒ Object 



1981
1982
1983
1984
1985
1986
 
# File 'ext/celes/celes_core.c', line 1981

static VALUE
celes_s_falp03(VALUE self, VALUE vt){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauFalp03(NUM2DBL(vt)));
}

.fama03(vt) ⇒ Object 



1988
1989
1990
1991
1992
1993
 
# File 'ext/celes/celes_core.c', line 1988

static VALUE
celes_s_fama03(VALUE self, VALUE vt){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauFama03(NUM2DBL(vt)));
}

.fame03(vt) ⇒ Object 



1995
1996
1997
1998
1999
2000
 
# File 'ext/celes/celes_core.c', line 1995

static VALUE
celes_s_fame03(VALUE self, VALUE vt){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauFame03(NUM2DBL(vt)));
}

.fane03(vt) ⇒ Object 



2002
2003
2004
2005
2006
2007
 
# File 'ext/celes/celes_core.c', line 2002

static VALUE
celes_s_fane03(VALUE self, VALUE vt){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauFane03(NUM2DBL(vt)));
}

.faom03(vt) ⇒ Object 



2009
2010
2011
2012
2013
2014
 
# File 'ext/celes/celes_core.c', line 2009

static VALUE
celes_s_faom03(VALUE self, VALUE vt){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauFaom03(NUM2DBL(vt)));
}

.fapa03(vt) ⇒ Object 



2016
2017
2018
2019
2020
2021
 
# File 'ext/celes/celes_core.c', line 2016

static VALUE
celes_s_fapa03(VALUE self, VALUE vt){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauFapa03(NUM2DBL(vt)));
}

.fasa03(vt) ⇒ Object 



2023
2024
2025
2026
2027
2028
 
# File 'ext/celes/celes_core.c', line 2023

static VALUE
celes_s_fasa03(VALUE self, VALUE vt){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauFasa03(NUM2DBL(vt)));
}

.faur03(vt) ⇒ Object 



2030
2031
2032
2033
2034
2035
 
# File 'ext/celes/celes_core.c', line 2030

static VALUE
celes_s_faur03(VALUE self, VALUE vt){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauFaur03(NUM2DBL(vt)));
}

.fave03(vt) ⇒ Object 



2037
2038
2039
2040
2041
2042
 
# File 'ext/celes/celes_core.c', line 2037

static VALUE
celes_s_fave03(VALUE self, VALUE vt){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauFave03(NUM2DBL(vt)));
}

.fk52h(vr5, vd5, vdr5, vdd5, vpx5, vrv5) ⇒ Object 



2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
 
# File 'ext/celes/celes_core.c', line 2073

static VALUE
celes_s_fk52h(VALUE self, VALUE vr5, VALUE vd5,
		VALUE vdr5, VALUE vdd5, VALUE vpx5, VALUE vrv5){
	double rh, dh, drh, ddh, pxh, rvh;

	iauFk52h(NUM2DBL(vr5), NUM2DBL(vd5), NUM2DBL(vdr5),
			NUM2DBL(vdd5), NUM2DBL(vpx5), NUM2DBL(vrv5),
			&rh, &dh, &drh, &ddh, &pxh, &rvh);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(6, DBL2NUM(rh), DBL2NUM(dh),
			DBL2NUM(drh), DBL2NUM(ddh), DBL2NUM(pxh), DBL2NUM(rvh));
}

.fk5hip ⇒ Object 



2087
2088
2089
2090
2091
2092
2093
2094
2095
 
# File 'ext/celes/celes_core.c', line 2087

static VALUE
celes_s_fk5hip(VALUE self){
	double r5h[3][3], s5h[3];

	iauFk5hip(r5h, s5h);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, vmat_new33(r5h), vvec_new(s5h));
}

.fk5hz(vr5, vd5, vdate1, vdate2) ⇒ Object 



2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
 
# File 'ext/celes/celes_core.c', line 2097

static VALUE
celes_s_fk5hz(VALUE self, VALUE vr5, VALUE vd5,
		VALUE vdate1, VALUE vdate2){
	double rh, dh;

	iauFk5hz(NUM2DBL(vr5), NUM2DBL(vd5),
			NUM2DBL(vdate1), NUM2DBL(vdate2), &rh, &dh);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(rh), DBL2NUM(dh));
}

.fw2m(vgamb, vphib, vpsi, veps) ⇒ Object 



1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
 
# File 'ext/celes/celes_core.c', line 1525

static VALUE
celes_s_fw2m(VALUE self, VALUE vgamb, VALUE vphib, VALUE vpsi, VALUE veps){
	double r[3][3];

	iauFw2m(NUM2DBL(vgamb), NUM2DBL(vphib),
			NUM2DBL(vpsi), NUM2DBL(veps), r);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(r);
}

.fw2xy(vgamb, vphib, vpsi, veps) ⇒ Object 



1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
 
# File 'ext/celes/celes_core.c', line 1536

static VALUE
celes_s_fw2xy(VALUE self, VALUE vgamb,
		VALUE vphib, VALUE vpsi, VALUE veps){
	double x, y;

	iauFw2xy(NUM2DBL(vgamb), NUM2DBL(vphib),
			NUM2DBL(vpsi), NUM2DBL(veps), &x, &y);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(x), DBL2NUM(y));
}

.gc2gd(vn, vxyz) ⇒ Object 



2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
 
# File 'ext/celes/celes_core.c', line 2170

static VALUE
celes_s_gc2gd(VALUE self, VALUE vn, VALUE vxyz){
	int ret;
	double xyz[3], elong, phi, height;

	cvec_cp(vxyz, xyz);
	ret = iauGc2gd(NUM2INT(vn), xyz, &elong, &phi, &height);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	if(ret == -1)
		rb_raise(rb_eArgError, "illegal identifier");
	else if(ret == -2)
		rb_raise(rb_eArgError, "internal error");

	return rb_ary_new3(3, DBL2NUM(elong), DBL2NUM(phi), DBL2NUM(height));
}

.gc2gde(va, vf, vxyz) ⇒ Object 



2187
2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
 
# File 'ext/celes/celes_core.c', line 2187

static VALUE
celes_s_gc2gde(VALUE self, VALUE va, VALUE vf, VALUE vxyz){
	int ret;
	double xyz[3], elong, phi, height;

	cvec_cp(vxyz, xyz);
	ret = iauGc2gde(NUM2DBL(va), NUM2DBL(vf), xyz, &elong, &phi, &height);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	if(ret == -1)
		rb_raise(rb_eArgError, "illegal f");
	else if(ret == -2)
		rb_raise(rb_eArgError, "illegal a");

	return rb_ary_new3(3, DBL2NUM(elong), DBL2NUM(phi), DBL2NUM(height));
}

.gd2gc(vn, velong, vphi, vheight) ⇒ Object 



2204
2205
2206
2207
2208
2209
2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
 
# File 'ext/celes/celes_core.c', line 2204

static VALUE
celes_s_gd2gc(VALUE self, VALUE vn,
		VALUE velong, VALUE vphi, VALUE vheight){
	int ret;
	double xyz[3];

	ret = iauGd2gc(NUM2INT(vn), NUM2DBL(velong),
			NUM2DBL(vphi), NUM2DBL(vheight), xyz);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	if(ret == -1)
		rb_raise(rb_eArgError, "illegal identifier");
	else if(ret == -2)
		rb_raise(rb_eArgError, "illegal case");

	return vvec_new(xyz);
}

.gd2gce(va, vf, velong, vphi, vheight) ⇒ Object 



2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
 
# File 'ext/celes/celes_core.c', line 2222

static VALUE
celes_s_gd2gce(VALUE self, VALUE va, VALUE vf,
		VALUE velong, VALUE vphi, VALUE vheight){
	int ret;
	double xyz[3];

	ret = iauGd2gce(NUM2DBL(va), NUM2DBL(vf),
			NUM2DBL(velong), NUM2DBL(vphi), NUM2DBL(vheight), xyz);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	if(ret == -1)
		rb_raise(rb_eArgError, "illegal case");

	return vvec_new(xyz);
}

.gmst00(vuta, vutb, vtta, vttb) ⇒ Object 



1230
1231
1232
1233
1234
1235
1236
 
# File 'ext/celes/celes_core.c', line 1230

static VALUE
celes_s_gmst00(VALUE self, VALUE vuta, VALUE vutb, VALUE vtta, VALUE vttb){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauGmst00(NUM2DBL(vuta), NUM2DBL(vutb),
			NUM2DBL(vtta), NUM2DBL(vttb)));
}

.gmst06(vuta, vutb, vtta, vttb) ⇒ Object 



1238
1239
1240
1241
1242
1243
1244
 
# File 'ext/celes/celes_core.c', line 1238

static VALUE
celes_s_gmst06(VALUE self, VALUE vuta, VALUE vutb, VALUE vtta, VALUE vttb){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauGmst06(NUM2DBL(vuta), NUM2DBL(vutb),
			NUM2DBL(vtta), NUM2DBL(vttb)));
}

.gmst82(vdj1, vdj2) ⇒ Object 



1246
1247
1248
1249
1250
1251
 
# File 'ext/celes/celes_core.c', line 1246

static VALUE
celes_s_gmst82(VALUE self, VALUE vdj1, VALUE vdj2){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauGmst82(NUM2DBL(vdj1), NUM2DBL(vdj2)));
}

.gst00a(vuta, vutb, vtta, vttb) ⇒ Object 



1253
1254
1255
1256
1257
1258
1259
 
# File 'ext/celes/celes_core.c', line 1253

static VALUE
celes_s_gst00a(VALUE self, VALUE vuta, VALUE vutb, VALUE vtta, VALUE vttb){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauGst00a(NUM2DBL(vuta), NUM2DBL(vutb),
			NUM2DBL(vtta), NUM2DBL(vttb)));
}

.gst00b(vuta, vutb) ⇒ Object 



1261
1262
1263
1264
1265
1266
 
# File 'ext/celes/celes_core.c', line 1261

static VALUE
celes_s_gst00b(VALUE self, VALUE vuta, VALUE vutb){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauGst00b(NUM2DBL(vuta), NUM2DBL(vutb)));
}

.gst06(vuta, vutb, vtta, vttb, vrnpb) ⇒ Object 



1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
 
# File 'ext/celes/celes_core.c', line 1268

static VALUE
celes_s_gst06(VALUE self, VALUE vuta, VALUE vutb,
		VALUE vtta, VALUE vttb, VALUE vrnpb){
	double rnpb[3][3];

	rb_ivar_set(self, id_status, INT2FIX(0));

	cmat_cp33(vrnpb, rnpb);

	return DBL2NUM(iauGst06(NUM2DBL(vuta), NUM2DBL(vutb),
			NUM2DBL(vtta), NUM2DBL(vttb), rnpb));
}

.gst06a(vuta, vutb, vtta, vttb) ⇒ Object 



1281
1282
1283
1284
1285
1286
1287
 
# File 'ext/celes/celes_core.c', line 1281

static VALUE
celes_s_gst06a(VALUE self, VALUE vuta, VALUE vutb, VALUE vtta, VALUE vttb){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauGst06a(NUM2DBL(vuta), NUM2DBL(vutb),
			NUM2DBL(vtta), NUM2DBL(vttb)));
}

.gst94(vuta, vutb) ⇒ Object 



1289
1290
1291
1292
1293
1294
 
# File 'ext/celes/celes_core.c', line 1289

static VALUE
celes_s_gst94(VALUE self, VALUE vuta, VALUE vutb){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauGst94(NUM2DBL(vuta), NUM2DBL(vutb)));
}

.h2fk5(vrh, vdh, vdrh, vddh, vpxh, vrvh) ⇒ Object 



2109
2110
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
 
# File 'ext/celes/celes_core.c', line 2109

static VALUE
celes_s_h2fk5(VALUE self, VALUE vrh, VALUE vdh,
		VALUE vdrh, VALUE vddh, VALUE vpxh, VALUE vrvh){
	double r5, d5, dr5, dd5, px5, rv5;

	iauH2fk5(NUM2DBL(vrh), NUM2DBL(vdh), NUM2DBL(vdrh),
			NUM2DBL(vddh), NUM2DBL(vpxh), NUM2DBL(vrvh),
			&r5, &d5, &dr5, &dd5, &px5, &rv5);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(6, DBL2NUM(r5), DBL2NUM(d5),
			DBL2NUM(dr5), DBL2NUM(dd5), DBL2NUM(px5), DBL2NUM(rv5));
}

.hfk5z(vrh, vdh, vdate1, vdate2) ⇒ Object 



2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
 
# File 'ext/celes/celes_core.c', line 2123

static VALUE
celes_s_hfk5z(VALUE self, VALUE vrh, VALUE vdh,
		VALUE vdate1, VALUE vdate2){
	double r5, d5, dr5, dd5;

	iauHfk5z(NUM2DBL(vrh), NUM2DBL(vdh), NUM2DBL(vdate1), NUM2DBL(vdate2),
			&r5, &d5, &dr5, &dd5);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(4, DBL2NUM(r5), DBL2NUM(d5),
			DBL2NUM(dr5), DBL2NUM(dd5));
}

.ir ⇒ Object 



212
213
214
215
216
217
218
219
220
 
# File 'ext/celes/celes_core.c', line 212

static VALUE
celes_s_ir(VALUE self){
	double r[3][3];

	iauIr(r);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(r);
}

.ir!(vr) ⇒ Object 



201
202
203
204
205
206
207
208
209
210
 
# File 'ext/celes/celes_core.c', line 201

static VALUE
celes_s_ir_b(VALUE self, VALUE vr){
	double r[3][3];

	cmat_cp33(vr, r);
	iauIr(r);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_cp33(r, vr);
}

.jd2cal(vdj1, vdj2) ⇒ Object 



902
903
904
905
906
907
908
909
910
911
912
913
914
915
 
# File 'ext/celes/celes_core.c', line 902

static VALUE
celes_s_jd2cal(VALUE self, VALUE vdj1, VALUE vdj2){
	int ret, iy, im, id;
	double fd;

	ret = iauJd2cal(NUM2DBL(vdj1), NUM2DBL(vdj2), &iy, &im, &id, &fd);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	if(ret == -1)
		rb_raise(rb_eArgError, "unacceptable date");

	return rb_ary_new3(4, INT2FIX(iy), INT2FIX(im),
			INT2FIX(id), DBL2NUM(fd));
}

.jdcalf(vndp, vdj1, vdj2) ⇒ Object 



917
918
919
920
921
922
923
924
925
926
927
928
929
 
# File 'ext/celes/celes_core.c', line 917

static VALUE
celes_s_jdcalf(VALUE self, VALUE vndp, VALUE vdj1, VALUE vdj2){
	int ret, iymdf[4];

	ret = iauJdcalf(NUM2INT(vndp), NUM2DBL(vdj1), NUM2DBL(vdj2), iymdf);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	if(ret == -1)
		rb_raise(rb_eArgError, "date out of range");

	return rb_ary_new3(4, INT2FIX(iymdf[0]), INT2FIX(iymdf[1]),
			INT2FIX(iymdf[2]), INT2NUM(iymdf[3]));
}

.num00a(vdate1, vdate2) ⇒ Object 



1548
1549
1550
1551
1552
1553
1554
1555
1556
 
# File 'ext/celes/celes_core.c', line 1548

static VALUE
celes_s_num00a(VALUE self, VALUE vdate1, VALUE vdate2){
	double rmatn[3][3];

	iauNum00a(NUM2DBL(vdate1), NUM2DBL(vdate2), rmatn);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rmatn);
}

.num00b(vdate1, vdate2) ⇒ Object 



1558
1559
1560
1561
1562
1563
1564
1565
1566
 
# File 'ext/celes/celes_core.c', line 1558

static VALUE
celes_s_num00b(VALUE self, VALUE vdate1, VALUE vdate2){
	double rmatn[3][3];

	iauNum00b(NUM2DBL(vdate1), NUM2DBL(vdate2), rmatn);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rmatn);
}

.num06a(vdate1, vdate2) ⇒ Object 



1568
1569
1570
1571
1572
1573
1574
1575
1576
 
# File 'ext/celes/celes_core.c', line 1568

static VALUE
celes_s_num06a(VALUE self, VALUE vdate1, VALUE vdate2){
	double rmatn[3][3];

	iauNum06a(NUM2DBL(vdate1), NUM2DBL(vdate2), rmatn);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rmatn);
}

.numat(vepsa, vdpsi, vdeps) ⇒ Object 



1578
1579
1580
1581
1582
1583
1584
1585
1586
 
# File 'ext/celes/celes_core.c', line 1578

static VALUE
celes_s_numat(VALUE self, VALUE vepsa, VALUE vdpsi, VALUE vdeps){
	double rmatn[3][3];

	iauNumat(NUM2DBL(vepsa), NUM2DBL(vdpsi), NUM2DBL(vdeps), rmatn);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rmatn);
}

.nut00a(vdate1, vdate2) ⇒ Object 



1588
1589
1590
1591
1592
1593
1594
1595
1596
 
# File 'ext/celes/celes_core.c', line 1588

static VALUE
celes_s_nut00a(VALUE self, VALUE vdate1, VALUE vdate2){
	double dpsi, deps;

	iauNut00a(NUM2DBL(vdate1), NUM2DBL(vdate2), &dpsi, &deps);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(dpsi), DBL2NUM(deps));
}

.nut00b(vdate1, vdate2) ⇒ Object 



1598
1599
1600
1601
1602
1603
1604
1605
1606
 
# File 'ext/celes/celes_core.c', line 1598

static VALUE
celes_s_nut00b(VALUE self, VALUE vdate1, VALUE vdate2){
	double dpsi, deps;

	iauNut00b(NUM2DBL(vdate1), NUM2DBL(vdate2), &dpsi, &deps);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(dpsi), DBL2NUM(deps));
}

.nut06a(vdate1, vdate2) ⇒ Object 



1608
1609
1610
1611
1612
1613
1614
1615
1616
 
# File 'ext/celes/celes_core.c', line 1608

static VALUE
celes_s_nut06a(VALUE self, VALUE vdate1, VALUE vdate2){
	double dpsi, deps;

	iauNut06a(NUM2DBL(vdate1), NUM2DBL(vdate2), &dpsi, &deps);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(dpsi), DBL2NUM(deps));
}

.nut80(vdate1, vdate2) ⇒ Object 



1618
1619
1620
1621
1622
1623
1624
1625
1626
 
# File 'ext/celes/celes_core.c', line 1618

static VALUE
celes_s_nut80(VALUE self, VALUE vdate1, VALUE vdate2){
	double dpsi, deps;

	iauNut80(NUM2DBL(vdate1), NUM2DBL(vdate2), &dpsi, &deps);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(dpsi), DBL2NUM(deps));
}

.nutm80(vdate1, vdate2) ⇒ Object 



1628
1629
1630
1631
1632
1633
1634
1635
1636
 
# File 'ext/celes/celes_core.c', line 1628

static VALUE
celes_s_nutm80(VALUE self, VALUE vdate1, VALUE vdate2){
	double rmatn[3][3];

	iauNutm80(NUM2DBL(vdate1), NUM2DBL(vdate2), rmatn);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rmatn);
}

.obl06(vdate1, vdate2) ⇒ Object 



1638
1639
1640
1641
1642
1643
 
# File 'ext/celes/celes_core.c', line 1638

static VALUE
celes_s_obl06(VALUE self, VALUE vdate1, VALUE vdate2){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauObl06(NUM2DBL(vdate1), NUM2DBL(vdate2)));
}

.obl80(vdate1, vdate2) ⇒ Object 



1645
1646
1647
1648
1649
1650
 
# File 'ext/celes/celes_core.c', line 1645

static VALUE
celes_s_obl80(VALUE self, VALUE vdate1, VALUE vdate2){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauObl80(NUM2DBL(vdate1), NUM2DBL(vdate2)));
}

.p06e(vdate1, vdate2) ⇒ Object 



1813
1814
1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
 
# File 'ext/celes/celes_core.c', line 1813

static VALUE
celes_s_p06e(VALUE self, VALUE vdate1, VALUE vdate2){
	double eps0, psia, oma, bpa, bqa, pia, bpia,
			epsa, chia, za, zetaa, thetaa, pa, gam, phi, psi;
	
	iauP06e(NUM2DBL(vdate1), NUM2DBL(vdate2), &eps0, &psia,
			&oma, &bpa, &bqa, &pia, &bpia, &epsa, &chia, &za,
			&zetaa, &thetaa, &pa, &gam, &phi, &psi);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(16, DBL2NUM(eps0), DBL2NUM(psia),
			DBL2NUM(oma), DBL2NUM(bpa), DBL2NUM(bqa), DBL2NUM(pia),
			DBL2NUM(bpia), DBL2NUM(epsa), DBL2NUM(chia), DBL2NUM(za),
			DBL2NUM(zetaa), DBL2NUM(thetaa), DBL2NUM(pa), DBL2NUM(gam),
			DBL2NUM(phi), DBL2NUM(psi));
}

.p2pv(vp) ⇒ Object 



583
584
585
586
587
588
589
590
591
592
 
# File 'ext/celes/celes_core.c', line 583

static VALUE
celes_s_p2pv(VALUE self, VALUE vp){
	double p[3], pv[2][3];

	cvec_cp(vp, p);
	iauP2pv(p, pv);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new23(pv);
}

.p2s(vp) ⇒ Object 



341
342
343
344
345
346
347
348
349
350
 
# File 'ext/celes/celes_core.c', line 341

static VALUE
celes_s_p2s(VALUE self, VALUE vp){
	double p[3], theta, phi, r;

	cvec_cp(vp, p);
	iauP2s(p, &theta, &phi, &r);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(3, DBL2NUM(theta), DBL2NUM(phi), DBL2NUM(r));
}

.pap(va, vb) ⇒ Object 



510
511
512
513
514
515
516
517
518
519
 
# File 'ext/celes/celes_core.c', line 510

static VALUE
celes_s_pap(VALUE self, VALUE va, VALUE vb){
	double a[3], b[3];

	cvec_cp(va, a);
	cvec_cp(vb, b);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauPap(a, b));
}

.pas(val, vap, vbl, vbp) ⇒ Object 



521
522
523
524
525
526
527
 
# File 'ext/celes/celes_core.c', line 521

static VALUE
celes_s_pas(VALUE self, VALUE val, VALUE vap, VALUE vbl, VALUE vbp){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauPas(NUM2DBL(val), NUM2DBL(vap),
			NUM2DBL(vbl), NUM2DBL(vbp)));
}

.pb06(vdate1, vdate2) ⇒ Object 



1652
1653
1654
1655
1656
1657
1658
1659
1660
 
# File 'ext/celes/celes_core.c', line 1652

static VALUE
celes_s_pb06(VALUE self, VALUE vdate1, VALUE vdate2){
	double bzeta, bz, btheta;

	iauPb06(NUM2DBL(vdate1), NUM2DBL(vdate2), &bzeta, &bz, &btheta);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(3, DBL2NUM(bzeta), DBL2NUM(bz), DBL2NUM(btheta));
}

.pdp(va, vb) ⇒ Object 



388
389
390
391
392
393
394
395
396
397
 
# File 'ext/celes/celes_core.c', line 388

static VALUE
celes_s_pdp(VALUE self, VALUE va, VALUE vb){
	double a[3], b[3];

	cvec_cp(va, a);
	cvec_cp(vb, b);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauPdp(a, b));
}

.pfw06(vdate1, vdate2) ⇒ Object 



1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
 
# File 'ext/celes/celes_core.c', line 1662

static VALUE
celes_s_pfw06(VALUE self, VALUE vdate1, VALUE vdate2){
	double gamb, phib, psib, epsa;

	iauPfw06(NUM2DBL(vdate1), NUM2DBL(vdate2), &gamb, &phib, &psib, &epsa);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(4, DBL2NUM(gamb),
			DBL2NUM(phib), DBL2NUM(psib), DBL2NUM(epsa));
}

.plan94(vdate1, vdate2, vnp) ⇒ Object 



1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
 
# File 'ext/celes/celes_core.c', line 1307

static VALUE
celes_s_plan94(VALUE self, VALUE vdate1, VALUE vdate2, VALUE vnp){
	int ret;
	double pv[2][3];

	ret = iauPlan94(NUM2DBL(vdate1), NUM2DBL(vdate2), NUM2INT(vnp), pv);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	if(ret == -1)
		rb_raise(rb_eArgError, "illegal NP (outside 1-8)");

	return vmat_new23(pv);
}

.pm(vp) ⇒ Object 



411
412
413
414
415
416
417
418
419
 
# File 'ext/celes/celes_core.c', line 411

static VALUE
celes_s_pm(VALUE self, VALUE vp){
	double p[3];

	cvec_cp(vp, p);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauPm(p));
}

.pmat00(vdate1, vdate2) ⇒ Object 



1673
1674
1675
1676
1677
1678
1679
1680
1681
 
# File 'ext/celes/celes_core.c', line 1673

static VALUE
celes_s_pmat00(VALUE self, VALUE vdate1, VALUE vdate2){
	double rbp[3][3];

	iauPmat00(NUM2DBL(vdate1), NUM2DBL(vdate2), rbp);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rbp);
}

.pmat06(vdate1, vdate2) ⇒ Object 



1683
1684
1685
1686
1687
1688
1689
1690
1691
 
# File 'ext/celes/celes_core.c', line 1683

static VALUE
celes_s_pmat06(VALUE self, VALUE vdate1, VALUE vdate2){
	double rbp[3][3];

	iauPmat06(NUM2DBL(vdate1), NUM2DBL(vdate2), rbp);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rbp);
}

.pmat76(vdate1, vdate2) ⇒ Object 



1693
1694
1695
1696
1697
1698
1699
1700
1701
 
# File 'ext/celes/celes_core.c', line 1693

static VALUE
celes_s_pmat76(VALUE self, VALUE vdate1, VALUE vdate2){
	double rmatp[3][3];

	iauPmat76(NUM2DBL(vdate1), NUM2DBL(vdate2), rmatp);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rmatp);
}

.pmp(va, vb) ⇒ Object 



364
365
366
367
368
369
370
371
372
373
374
 
# File 'ext/celes/celes_core.c', line 364

static VALUE
celes_s_pmp(VALUE self, VALUE va, VALUE vb){
	double a[3], b[3], amb[3];

	cvec_cp(va, a);
	cvec_cp(vb, b);
	iauPmp(a, b, amb);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vvec_new(amb);
}

.pn(vp) ⇒ Object 



421
422
423
424
425
426
427
428
429
430
 
# File 'ext/celes/celes_core.c', line 421

static VALUE
celes_s_pn(VALUE self, VALUE vp){
	double p[3], r, u[3];

	cvec_cp(vp, p);
	iauPn(p, &r, u);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(r), vvec_new(u));
}

.pn00(vdate1, vdate2, vdpsi, vdeps) ⇒ Object 



1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
 
# File 'ext/celes/celes_core.c', line 1703

static VALUE
celes_s_pn00(VALUE self, VALUE vdate1, VALUE vdate2,
		VALUE vdpsi, VALUE vdeps){
	double epsa, rb[3][3], rp[3][3], rbp[3][3], rn[3][3], rbpn[3][3];

	iauPn00(NUM2DBL(vdate1), NUM2DBL(vdate2),
			NUM2DBL(vdpsi), NUM2DBL(vdeps), &epsa,
			rb, rp, rbp, rn, rbpn);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(6, DBL2NUM(epsa), vmat_new33(rb),
			vmat_new33(rp), vmat_new33(rbp), vmat_new33(rn), vmat_new33(rbpn));
}

.pn00a(vdate1, vdate2) ⇒ Object 



1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
 
# File 'ext/celes/celes_core.c', line 1717

static VALUE
celes_s_pn00a(VALUE self, VALUE vdate1, VALUE vdate2){
	double dpsi, deps, epsa, rb[3][3],
			rp[3][3], rbp[3][3], rn[3][3], rbpn[3][3];

	iauPn00a(NUM2DBL(vdate1), NUM2DBL(vdate2), &dpsi, &deps, &epsa,
			rb, rp, rbp, rn, rbpn);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(8, DBL2NUM(dpsi), DBL2NUM(deps), DBL2NUM(epsa),
			vmat_new33(rb), vmat_new33(rp), vmat_new33(rbp),
			vmat_new33(rn), vmat_new33(rbpn));
}

.pn00b(vdate1, vdate2) ⇒ Object 



1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
 
# File 'ext/celes/celes_core.c', line 1731

static VALUE
celes_s_pn00b(VALUE self, VALUE vdate1, VALUE vdate2){
	double dpsi, deps, epsa, rb[3][3],
			rp[3][3], rbp[3][3], rn[3][3], rbpn[3][3];

	iauPn00b(NUM2DBL(vdate1), NUM2DBL(vdate2), &dpsi, &deps, &epsa,
			rb, rp, rbp, rn, rbpn);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(8, DBL2NUM(dpsi), DBL2NUM(deps), DBL2NUM(epsa),
			vmat_new33(rb), vmat_new33(rp), vmat_new33(rbp),
			vmat_new33(rn), vmat_new33(rbpn));
}

.pn06(vdate1, vdate2, vdpsi, vdeps) ⇒ Object 



1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
 
# File 'ext/celes/celes_core.c', line 1745

static VALUE
celes_s_pn06(VALUE self, VALUE vdate1, VALUE vdate2,
		VALUE vdpsi, VALUE vdeps){
	double epsa, rb[3][3], rp[3][3], rbp[3][3], rn[3][3], rbpn[3][3];

	iauPn06(NUM2DBL(vdate1), NUM2DBL(vdate2),
			NUM2DBL(vdpsi), NUM2DBL(vdeps), &epsa,
			rb, rp, rbp, rn, rbpn);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(6, DBL2NUM(epsa), vmat_new33(rb),
			vmat_new33(rp), vmat_new33(rbp), vmat_new33(rn), vmat_new33(rbpn));
}

.pn06a(vdate1, vdate2) ⇒ Object 



1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
 
# File 'ext/celes/celes_core.c', line 1759

static VALUE
celes_s_pn06a(VALUE self, VALUE vdate1, VALUE vdate2){
	double dpsi, deps, epsa, rb[3][3],
			rp[3][3], rbp[3][3], rn[3][3], rbpn[3][3];

	iauPn06a(NUM2DBL(vdate1), NUM2DBL(vdate2), &dpsi, &deps, &epsa,
			rb, rp, rbp, rn, rbpn);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(8, DBL2NUM(dpsi), DBL2NUM(deps), DBL2NUM(epsa),
			vmat_new33(rb), vmat_new33(rp), vmat_new33(rbp),
			vmat_new33(rn), vmat_new33(rbpn));
}

.pnm00a(vdate1, vdate2) ⇒ Object 



1773
1774
1775
1776
1777
1778
1779
1780
1781
 
# File 'ext/celes/celes_core.c', line 1773

static VALUE
celes_s_pnm00a(VALUE self, VALUE vdate1, VALUE vdate2){
	double rbpn[3][3];

	iauPnm00a(NUM2DBL(vdate1), NUM2DBL(vdate2), rbpn);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rbpn);
}

.pnm00b(vdate1, vdate2) ⇒ Object 



1783
1784
1785
1786
1787
1788
1789
1790
1791
 
# File 'ext/celes/celes_core.c', line 1783

static VALUE
celes_s_pnm00b(VALUE self, VALUE vdate1, VALUE vdate2){
	double rbpn[3][3];

	iauPnm00b(NUM2DBL(vdate1), NUM2DBL(vdate2), rbpn);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rbpn);
}

.pnm06a(vdate1, vdate2) ⇒ Object 



1793
1794
1795
1796
1797
1798
1799
1800
1801
 
# File 'ext/celes/celes_core.c', line 1793

static VALUE
celes_s_pnm06a(VALUE self, VALUE vdate1, VALUE vdate2){
	double rnpb[3][3];

	iauPnm06a(NUM2DBL(vdate1), NUM2DBL(vdate2), rnpb);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rnpb);
}

.pnm80(vdate1, vdate2) ⇒ Object 



1803
1804
1805
1806
1807
1808
1809
1810
1811
 
# File 'ext/celes/celes_core.c', line 1803

static VALUE
celes_s_pnm80(VALUE self, VALUE vdate1, VALUE vdate2){
	double rmatpn[3][3];

	iauPnm80(NUM2DBL(vdate1), NUM2DBL(vdate2), rmatpn);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rmatpn);
}

.pom00(vxp, vyp, vsp) ⇒ Object 



1830
1831
1832
1833
1834
1835
1836
1837
1838
 
# File 'ext/celes/celes_core.c', line 1830

static VALUE
celes_s_pom00(VALUE self, VALUE vxp, VALUE vyp, VALUE vsp){
	double rpom[3][3];

	iauPom00(NUM2DBL(vxp), NUM2DBL(vyp), NUM2DBL(vsp), rpom);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rpom);
}

.ppp(va, vb) ⇒ Object 



352
353
354
355
356
357
358
359
360
361
362
 
# File 'ext/celes/celes_core.c', line 352

static VALUE
celes_s_ppp(VALUE self, VALUE va, VALUE vb){
	double a[3], b[3], apb[3];

	cvec_cp(va, a);
	cvec_cp(vb, b);
	iauPpp(a, b, apb);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vvec_new(apb);
}

.ppsp(va, vs, vb) ⇒ Object 



376
377
378
379
380
381
382
383
384
385
386
 
# File 'ext/celes/celes_core.c', line 376

static VALUE
celes_s_ppsp(VALUE self, VALUE va, VALUE vs, VALUE vb){
	double a[3], b[3], apsb[3];

	cvec_cp(va, a);
	cvec_cp(vb, b);
	iauPpsp(a, NUM2DBL(vs), b, apsb);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vvec_new(apsb);
}

.pr00(vdate1, vdate2) ⇒ Object 



1840
1841
1842
1843
1844
1845
1846
1847
1848
 
# File 'ext/celes/celes_core.c', line 1840

static VALUE
celes_s_pr00(VALUE self, VALUE vdate1, VALUE vdate2){
	double dpsipr, depspr;

	iauPr00(NUM2DBL(vdate1), NUM2DBL(vdate2), &dpsipr, &depspr);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(dpsipr), DBL2NUM(depspr));
}

.prec76(vep01, vep02, vep11, vep12) ⇒ Object 



1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
 
# File 'ext/celes/celes_core.c', line 1850

static VALUE
celes_s_prec76(VALUE self, VALUE vep01, VALUE vep02,
		VALUE vep11, VALUE vep12){
	double zeta, z, theta;

	iauPrec76(NUM2DBL(vep01), NUM2DBL(vep02),
			NUM2DBL(vep11), NUM2DBL(vep12), &zeta, &z, &theta);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(3, DBL2NUM(zeta), DBL2NUM(z), DBL2NUM(theta));
}

.pv2p(vpv) ⇒ Object 



594
595
596
597
598
599
600
601
602
603
 
# File 'ext/celes/celes_core.c', line 594

static VALUE
celes_s_pv2p(VALUE self, VALUE vpv){
	double pv[2][3], p[3];

	cmat_cp23(vpv, pv);
	iauPv2p(pv, p);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vvec_new(p);
}

.pv2s(vpv) ⇒ Object 



617
618
619
620
621
622
623
624
625
626
627
 
# File 'ext/celes/celes_core.c', line 617

static VALUE
celes_s_pv2s(VALUE self, VALUE vpv){
	double pv[2][3], theta, phi, r, td, pd, rd;

	cmat_cp23(vpv, pv);
	iauPv2s(pv, &theta, &phi, &r, &td, &pd, &rd);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(6, DBL2NUM(theta), DBL2NUM(phi),
			DBL2NUM(r), DBL2NUM(td), DBL2NUM(pd), DBL2NUM(rd));
}

.pvdpv(va, vb) ⇒ Object 



653
654
655
656
657
658
659
660
661
662
663
 
# File 'ext/celes/celes_core.c', line 653

static VALUE
celes_s_pvdpv(VALUE self, VALUE va, VALUE vb){
	double a[2][3], b[2][3], adb[2];

	cmat_cp23(va, a);
	cmat_cp23(vb, b);
	iauPvdpv(a, b, adb);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(adb[0]), DBL2NUM(adb[1]));
}

.pvm(vpv) ⇒ Object 



677
678
679
680
681
682
683
684
685
686
 
# File 'ext/celes/celes_core.c', line 677

static VALUE
celes_s_pvm(VALUE self, VALUE vpv){
	double pv[2][3], r, s;

	cmat_cp23(vpv, pv);
	iauPvm(pv, &r, &s);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(r), DBL2NUM(s));
}

.pvmpv(va, vb) ⇒ Object 



641
642
643
644
645
646
647
648
649
650
651
 
# File 'ext/celes/celes_core.c', line 641

static VALUE
celes_s_pvmpv(VALUE self, VALUE va, VALUE vb){
	double a[2][3], b[2][3], amb[2][3];

	cmat_cp23(va, a);
	cmat_cp23(vb, b);
	iauPvmpv(a, b, amb);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new23(amb);
}

.pvppv(va, vb) ⇒ Object 



629
630
631
632
633
634
635
636
637
638
639
 
# File 'ext/celes/celes_core.c', line 629

static VALUE
celes_s_pvppv(VALUE self, VALUE va, VALUE vb){
	double a[2][3], b[2][3], apb[2][3];

	cmat_cp23(va, a);
	cmat_cp23(vb, b);
	iauPvppv(a, b, apb);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new23(apb);
}

.pvstar(vpv) ⇒ Object 



2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
 
# File 'ext/celes/celes_core.c', line 2043

static VALUE
celes_s_pvstar(VALUE self, VALUE vpv){
	int ret;
	double pv[2][3], ra, dec, pmr, pmd, px, rv;

	cmat_cp23(vpv, pv);
	ret = iauPvstar(pv, &ra, &dec, &pmr, &pmd, &px, &rv);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	if(ret == -1)
		rb_raise(rb_eArgError, "superluminal speed");
	else if(ret == -2)
		rb_raise(rb_eArgError, "null position vector");
	
	return rb_ary_new3(6, DBL2NUM(ra), DBL2NUM(dec),
			DBL2NUM(pmr), DBL2NUM(pmd), DBL2NUM(px), DBL2NUM(rv));
}

.pvu(vdt, vpv) ⇒ Object 



710
711
712
713
714
715
716
717
718
719
 
# File 'ext/celes/celes_core.c', line 710

static VALUE
celes_s_pvu(VALUE self, VALUE vdt, VALUE vpv){
	double pv[2][3], upv[2][3];

	cmat_cp23(vpv, pv);
	iauPvu(NUM2DBL(vdt), pv, upv);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new23(upv);
}

.pvup(vdt, vpv) ⇒ Object 



721
722
723
724
725
726
727
728
729
730
 
# File 'ext/celes/celes_core.c', line 721

static VALUE
celes_s_pvup(VALUE self, VALUE vdt, VALUE vpv){
	double pv[2][3], p[3];

	cmat_cp23(vpv, pv);
	iauPvup(NUM2DBL(vdt), pv, p);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vvec_new(p);
}

.pvxpv(va, vb) ⇒ Object 



665
666
667
668
669
670
671
672
673
674
675
 
# File 'ext/celes/celes_core.c', line 665

static VALUE
celes_s_pvxpv(VALUE self, VALUE va, VALUE vb){
	double a[2][3], b[2][3], axb[2][3];

	cmat_cp23(va, a);
	cmat_cp23(vb, b);
	iauPvxpv(a, b, axb);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new23(axb);
}

.pxp(va, vb) ⇒ Object 



399
400
401
402
403
404
405
406
407
408
409
 
# File 'ext/celes/celes_core.c', line 399

static VALUE
celes_s_pxp(VALUE self, VALUE va, VALUE vb){
	double a[3], b[3], axb[3];

	cvec_cp(va, a);
	cvec_cp(vb, b);
	iauPxp(a, b, axb);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vvec_new(axb);
}

.rm2v(vr) ⇒ Object 



540
541
542
543
544
545
546
547
548
549
 
# File 'ext/celes/celes_core.c', line 540

static VALUE
celes_s_rm2v(VALUE self, VALUE vr){
	double r[3][3], w[3];

	cmat_cp33(vr, r);
	iauRm2v(r, w);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vvec_new(w);
}

.rv2m(vw) ⇒ Object 



529
530
531
532
533
534
535
536
537
538
 
# File 'ext/celes/celes_core.c', line 529

static VALUE
celes_s_rv2m(VALUE self, VALUE vw){
	double w[3], r[3][3];

	cvec_cp(vw, w);
	iauRv2m(w, r);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(r);
}

.rx(vphi, vr) ⇒ Object 



255
256
257
258
259
260
261
262
263
264
 
# File 'ext/celes/celes_core.c', line 255

static VALUE
celes_s_rx(VALUE self, VALUE vphi, VALUE vr){
	double r[3][3];
	
	cmat_cp33(vr, r);
	iauRx(NUM2DBL(vphi), r);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(r);
}

.rx!(vphi, vr) ⇒ Object 



244
245
246
247
248
249
250
251
252
253
 
# File 'ext/celes/celes_core.c', line 244

static VALUE
celes_s_rx_b(VALUE self, VALUE vphi, VALUE vr){
	double r[3][3];
	
	cmat_cp33(vr, r);
	iauRx(NUM2DBL(vphi), r);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_cp33(r, vr);
}

.rxp(vr, vp) ⇒ Object 



467
468
469
470
471
472
473
474
475
476
477
 
# File 'ext/celes/celes_core.c', line 467

static VALUE
celes_s_rxp(VALUE self, VALUE vr, VALUE vp){
	double r[3][3], p[3], rp[3];

	cmat_cp33(vr, r);
	cvec_cp(vp, p);
	iauRxp(r, p, rp);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vvec_new(rp);
}

.rxpv(vr, vpv) ⇒ Object 



732
733
734
735
736
737
738
739
740
741
742
 
# File 'ext/celes/celes_core.c', line 732

static VALUE
celes_s_rxpv(VALUE self, VALUE vr, VALUE vpv){
	double r[3][3], pv[2][3], rpv[2][3];

	cmat_cp33(vr, r);
	cmat_cp23(vpv, pv);
	iauRxpv(r, pv, rpv);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new23(rpv);
}

.rxr(va, vb) ⇒ Object 



444
445
446
447
448
449
450
451
452
453
454
 
# File 'ext/celes/celes_core.c', line 444

static VALUE
celes_s_rxr(VALUE self, VALUE va, VALUE vb){
	double a[3][3], b[3][3], atb[3][3];

	cmat_cp33(va, a);
	cmat_cp33(vb, b);
	iauRxr(a, b, atb);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(atb);
}

.ry(vphi, vr) ⇒ Object 



277
278
279
280
281
282
283
284
285
286
 
# File 'ext/celes/celes_core.c', line 277

static VALUE
celes_s_ry(VALUE self, VALUE vphi, VALUE vr){
	double r[3][3];
	
	cmat_cp33(vr, r);
	iauRy(NUM2DBL(vphi), r);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(r);
}

.ry!(vphi, vr) ⇒ Object 



266
267
268
269
270
271
272
273
274
275
 
# File 'ext/celes/celes_core.c', line 266

static VALUE
celes_s_ry_b(VALUE self, VALUE vphi, VALUE vr){
	double r[3][3];

	cmat_cp33(vr, r);
	iauRy(NUM2DBL(vphi), r);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_cp33(r, vr);
}

.rz(vphi, vr) ⇒ Object 



299
300
301
302
303
304
305
306
307
308
 
# File 'ext/celes/celes_core.c', line 299

static VALUE
celes_s_rz(VALUE self, VALUE vphi, VALUE vr){
	double r[3][3];
	
	cmat_cp33(vr, r);
	iauRz(NUM2DBL(vphi), r);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(r);
}

.rz!(vphi, vr) ⇒ Object 



288
289
290
291
292
293
294
295
296
297
 
# File 'ext/celes/celes_core.c', line 288

static VALUE
celes_s_rz_b(VALUE self, VALUE vphi, VALUE vr){
	double r[3][3];

	cmat_cp33(vr, r);
	iauRz(NUM2DBL(vphi), r);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_cp33(r, vr);
}

.s00(vdate1, vdate2, vx, vy) ⇒ Object 



1862
1863
1864
1865
1866
1867
1868
 
# File 'ext/celes/celes_core.c', line 1862

static VALUE
celes_s_s00(VALUE self, VALUE vdate1, VALUE vdate2, VALUE vx, VALUE vy){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauS00(NUM2DBL(vdate1), NUM2DBL(vdate2),
			NUM2DBL(vx), NUM2DBL(vy)));
}

.s00a(vdate1, vdate2) ⇒ Object 



1870
1871
1872
1873
1874
1875
 
# File 'ext/celes/celes_core.c', line 1870

static VALUE
celes_s_s00a(VALUE self, VALUE vdate1, VALUE vdate2){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauS00a(NUM2DBL(vdate1), NUM2DBL(vdate2)));
}

.s00b(vdate1, vdate2) ⇒ Object 



1877
1878
1879
1880
1881
1882
 
# File 'ext/celes/celes_core.c', line 1877

static VALUE
celes_s_s00b(VALUE self, VALUE vdate1, VALUE vdate2){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauS00b(NUM2DBL(vdate1), NUM2DBL(vdate2)));
}

.s06(vdate1, vdate2, vx, vy) ⇒ Object 



1884
1885
1886
1887
1888
1889
1890
 
# File 'ext/celes/celes_core.c', line 1884

static VALUE
celes_s_s06(VALUE self, VALUE vdate1, VALUE vdate2, VALUE vx, VALUE vy){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauS06(NUM2DBL(vdate1), NUM2DBL(vdate2),
			NUM2DBL(vx), NUM2DBL(vy)));
}

.s06a(vdate1, vdate2) ⇒ Object 



1892
1893
1894
1895
1896
1897
 
# File 'ext/celes/celes_core.c', line 1892

static VALUE
celes_s_s06a(VALUE self, VALUE vdate1, VALUE vdate2){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauS06a(NUM2DBL(vdate1), NUM2DBL(vdate2)));
}

.s2c(vtheta, vphi) ⇒ Object 



310
311
312
313
314
315
316
317
318
 
# File 'ext/celes/celes_core.c', line 310

static VALUE
celes_s_s2c(VALUE self, VALUE vtheta, VALUE vphi){
	double c[3];

	iauS2c(NUM2DBL(vtheta), NUM2DBL(vphi), c);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vvec_new(c);
}

.s2p(vtheta, vphi, vr) ⇒ Object 



331
332
333
334
335
336
337
338
339
 
# File 'ext/celes/celes_core.c', line 331

static VALUE
celes_s_s2p(VALUE self, VALUE vtheta, VALUE vphi, VALUE vr){
	double p[3];

	iauS2p(NUM2DBL(vtheta), NUM2DBL(vphi), NUM2DBL(vr), p);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vvec_new(p);
}

.s2pv(vtheta, vphi, vr, vtd, vpd, vrd) ⇒ Object 



605
606
607
608
609
610
611
612
613
614
615
 
# File 'ext/celes/celes_core.c', line 605

static VALUE
celes_s_s2pv(VALUE self, VALUE vtheta, VALUE vphi, VALUE vr,
		VALUE vtd, VALUE vpd, VALUE vrd){
	double pv[2][3];

	iauS2pv(NUM2DBL(vtheta), NUM2DBL(vphi), NUM2DBL(vr),
			NUM2DBL(vtd), NUM2DBL(vpd), NUM2DBL(vrd), pv);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new23(pv);
}

.s2xpv(vs1, vs2, vpv) ⇒ Object 



699
700
701
702
703
704
705
706
707
708
 
# File 'ext/celes/celes_core.c', line 699

static VALUE
celes_s_s2xpv(VALUE self, VALUE vs1, VALUE vs2, VALUE vpv){
	double pv[2][3], spv[2][3];

	cmat_cp23(vpv, pv);
	iauS2xpv(NUM2DBL(vs1), NUM2DBL(vs2), pv, spv);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new23(spv);
}

.sepp(va, vb) ⇒ Object 



491
492
493
494
495
496
497
498
499
500
 
# File 'ext/celes/celes_core.c', line 491

static VALUE
celes_s_sepp(VALUE self, VALUE va, VALUE vb){
	double a[3], b[3];

	cvec_cp(va, a);
	cvec_cp(vb, b);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauSepp(a, b));
}

.seps(val, vap, vbl, vbp) ⇒ Object 



502
503
504
505
506
507
508
 
# File 'ext/celes/celes_core.c', line 502

static VALUE
celes_s_seps(VALUE self, VALUE val, VALUE vap, VALUE vbl, VALUE vbp){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauSeps(NUM2DBL(val), NUM2DBL(vap),
			NUM2DBL(vbl), NUM2DBL(vbp)));
}

.sp00(vdate1, vdate2) ⇒ Object 



1899
1900
1901
1902
1903
1904
 
# File 'ext/celes/celes_core.c', line 1899

static VALUE
celes_s_sp00(VALUE self, VALUE vdate1, VALUE vdate2){
	rb_ivar_set(self, id_status, INT2FIX(0));

	return DBL2NUM(iauSp00(NUM2DBL(vdate1), NUM2DBL(vdate2)));
}

.starpm(vra1, vdec1, vpmr1, vpmd1, vpx1, vrv1, vep1a, vep1b, vep2a, vep2b) ⇒ Object 



2136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
 
# File 'ext/celes/celes_core.c', line 2136

static VALUE
celes_s_starpm(VALUE self, VALUE vra1, VALUE vdec1,
		VALUE vpmr1, VALUE vpmd1, VALUE vpx1, VALUE vrv1,
		VALUE vep1a, VALUE vep1b, VALUE vep2a, VALUE vep2b){
	int ret;
	double ra2, dec2, pmr2, pmd2, px2, rv2;

	ret = iauStarpm(NUM2DBL(vra1), NUM2DBL(vdec1),
			NUM2DBL(vpmr1), NUM2DBL(vpmd1), NUM2DBL(vpx1), NUM2DBL(vrv1),
			NUM2DBL(vep1a), NUM2DBL(vep1b), NUM2DBL(vep2a), NUM2DBL(vep2b),
			&ra2, &dec2, &pmr2, &pmd2, &px2, &rv2);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	if(ret == -1)
		rb_raise(rb_eArgError, "system error");
	
	return rb_ary_new3(6,
			DBL2NUM(ra2), DBL2NUM(dec2), DBL2NUM(pmr2),
			DBL2NUM(pmd2), DBL2NUM(px2), DBL2NUM(rv2));
}

.starpv(vra, vdec, vpmr, vpmd, vpx, vrv) ⇒ Object 



2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
 
# File 'ext/celes/celes_core.c', line 2061

static VALUE
celes_s_starpv(VALUE self, VALUE vra, VALUE vdec,
		VALUE vpmr, VALUE vpmd, VALUE vpx, VALUE vrv){
	int ret;
	double pv[2][3];

	ret = iauStarpv(NUM2DBL(vra), NUM2DBL(vdec), NUM2DBL(vpmr),
			NUM2DBL(vpmd), NUM2DBL(vpx), NUM2DBL(vrv), pv);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	return vmat_new23(pv);
}

.status ⇒ Object 



12
13
14
15
 
# File 'ext/celes/celes_core.c', line 12

static VALUE
celes_s_status(VALUE self){
	return rb_ivar_get(self, id_status);
}

.sxp(vs, vp) ⇒ Object 



432
433
434
435
436
437
438
439
440
441
 
# File 'ext/celes/celes_core.c', line 432

static VALUE
celes_s_sxp(VALUE self, VALUE vs, VALUE vp){
	double p[3], sp[3];

	cvec_cp(vp, p);
	iauSxp(NUM2DBL(vs), p, sp);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vvec_new(sp);
}

.sxpv(vs, vpv) ⇒ Object 



688
689
690
691
692
693
694
695
696
697
 
# File 'ext/celes/celes_core.c', line 688

static VALUE
celes_s_sxpv(VALUE self, VALUE vs, VALUE vpv){
	double pv[2][3], spv[2][3];

	cmat_cp23(vpv, pv);
	iauSxpv(NUM2DBL(vs), pv, spv);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new23(spv);
}

.taitt(vtai1, vtai2) ⇒ Object 



1001
1002
1003
1004
1005
1006
1007
1008
1009
 
# File 'ext/celes/celes_core.c', line 1001

static VALUE
celes_s_taitt(VALUE self, VALUE vtai1, VALUE vtai2){
	double tt1, tt2;

	iauTaitt(NUM2DBL(vtai1), NUM2DBL(vtai2), &tt1, &tt2);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(tt1), DBL2NUM(tt2));
}

.taiut1(vtai1, vtai2, vdta) ⇒ Object 



1011
1012
1013
1014
1015
1016
1017
1018
1019
 
# File 'ext/celes/celes_core.c', line 1011

static VALUE
celes_s_taiut1(VALUE self, VALUE vtai1, VALUE vtai2, VALUE vdta){
	double ut11, ut12;

	iauTaiut1(NUM2DBL(vtai1), NUM2DBL(vtai2), NUM2DBL(vdta), &ut11, &ut12);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(ut11), DBL2NUM(ut12));
}

.taiutc(vtai1, vtai2) ⇒ Object 



1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
 
# File 'ext/celes/celes_core.c', line 1021

static VALUE
celes_s_taiutc(VALUE self, VALUE vtai1, VALUE vtai2){
	int ret;
	double utc1, utc2;

	ret = iauTaiutc(NUM2DBL(vtai1), NUM2DBL(vtai2), &utc1, &utc2);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	if(ret == -1)
		rb_raise(rb_eArgError, "unacceptable date");

	return rb_ary_new3(2, DBL2NUM(utc1), DBL2NUM(utc2));
}

.tcbtdb(vtcb1, vtcb2) ⇒ Object 



1035
1036
1037
1038
1039
1040
1041
1042
1043
 
# File 'ext/celes/celes_core.c', line 1035

static VALUE
celes_s_tcbtdb(VALUE self, VALUE vtcb1, VALUE vtcb2){
	double tdb1, tdb2;

	iauTcbtdb(NUM2DBL(vtcb1), NUM2DBL(vtcb2), &tdb1, &tdb2);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(tdb1), DBL2NUM(tdb2));
}

.tcgtt(vtcg1, vtcg2) ⇒ Object 



1045
1046
1047
1048
1049
1050
1051
1052
1053
 
# File 'ext/celes/celes_core.c', line 1045

static VALUE
celes_s_tcgtt(VALUE self, VALUE vtcg1, VALUE vtcg2){
	double tt1, tt2;

	iauTcgtt(NUM2DBL(vtcg1), NUM2DBL(vtcg2), &tt1, &tt2);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(tt1), DBL2NUM(tt2));
}

.tdbtcb(vtdb1, vtdb2) ⇒ Object 



1055
1056
1057
1058
1059
1060
1061
1062
1063
 
# File 'ext/celes/celes_core.c', line 1055

static VALUE
celes_s_tdbtcb(VALUE self, VALUE vtdb1, VALUE vtdb2){
	double tcb1, tcb2;

	iauTdbtcb(NUM2DBL(vtdb1), NUM2DBL(vtdb2), &tcb1, &tcb2);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(tcb1), DBL2NUM(tcb2));
}

.tdbtt(vtdb1, vtdb2, vdtr) ⇒ Object 



1065
1066
1067
1068
1069
1070
1071
1072
1073
 
# File 'ext/celes/celes_core.c', line 1065

static VALUE
celes_s_tdbtt(VALUE self, VALUE vtdb1, VALUE vtdb2, VALUE vdtr){
	double tt1, tt2;

	iauTdbtt(NUM2DBL(vtdb1), NUM2DBL(vtdb2), NUM2DBL(vdtr), &tt1, &tt2);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(tt1), DBL2NUM(tt2));
}

.tf2a(vs, vhour, vmin, vsec) ⇒ Object 



823
824
825
826
827
828
829
830
831
832
833
834
835
 
# File 'ext/celes/celes_core.c', line 823

static VALUE
celes_s_tf2a(VALUE self, VALUE vs, VALUE vhour, VALUE vmin, VALUE vsec){
	int ret;
	double rad;

	Check_Type(vs, T_STRING);

	ret = iauTf2a(RSTRING_PTR(vs)[0], NUM2DBL(vhour),
			NUM2DBL(vmin), NUM2DBL(vsec), &rad);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	return DBL2NUM(rad);
}

.tf2d(vs, vhour, vmin, vsec) ⇒ Object 



837
838
839
840
841
842
843
844
845
846
847
848
849
 
# File 'ext/celes/celes_core.c', line 837

static VALUE
celes_s_tf2d(VALUE self, VALUE vs, VALUE vhour, VALUE vmin, VALUE vsec){
	int ret;
	double days;

	Check_Type(vs, T_STRING);

	ret = iauTf2d(RSTRING_PTR(vs)[0], NUM2DBL(vhour),
			NUM2DBL(vmin), NUM2DBL(vsec), &days);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	return DBL2NUM(days);
}

.tr(vr) ⇒ Object 



456
457
458
459
460
461
462
463
464
465
 
# File 'ext/celes/celes_core.c', line 456

static VALUE
celes_s_tr(VALUE self, VALUE vr){
	double r[3][3], rt[3][3];

	cmat_cp33(vr, r);
	iauTr(r, rt);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(rt);
}

.trxp(vr, vp) ⇒ Object 



479
480
481
482
483
484
485
486
487
488
489
 
# File 'ext/celes/celes_core.c', line 479

static VALUE
celes_s_trxp(VALUE self, VALUE vr, VALUE vp){
	double r[3][3], p[3], trp[3];

	cmat_cp33(vr, r);
	cvec_cp(vp, p);
	iauTrxp(r, p, trp);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vvec_new(trp);
}

.trxpv(vr, vpv) ⇒ Object 



744
745
746
747
748
749
750
751
752
753
754
 
# File 'ext/celes/celes_core.c', line 744

static VALUE
celes_s_trxpv(VALUE self, VALUE vr, VALUE vpv){
	double r[3][3], pv[2][3], trpv[2][3];

	cmat_cp33(vr, r);
	cmat_cp23(vpv, pv);
	iauTrxpv(r, pv, trpv);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new23(trpv);
}

.tttai(vtt1, vtt2) ⇒ Object 



1075
1076
1077
1078
1079
1080
1081
1082
1083
 
# File 'ext/celes/celes_core.c', line 1075

static VALUE
celes_s_tttai(VALUE self, VALUE vtt1, VALUE vtt2){
	double tai1, tai2;

	iauTttai(NUM2DBL(vtt1), NUM2DBL(vtt2), &tai1, &tai2);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(tai1), DBL2NUM(tai2));
}

.tttcg(vtt1, vtt2) ⇒ Object 



1085
1086
1087
1088
1089
1090
1091
1092
1093
 
# File 'ext/celes/celes_core.c', line 1085

static VALUE
celes_s_tttcg(VALUE self, VALUE vtt1, VALUE vtt2){
	double tcg1, tcg2;

	iauTttcg(NUM2DBL(vtt1), NUM2DBL(vtt2), &tcg1, &tcg2);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(tcg1), DBL2NUM(tcg2));
}

.tttdb(vtt1, vtt2, vdtr) ⇒ Object 



1095
1096
1097
1098
1099
1100
1101
1102
1103
 
# File 'ext/celes/celes_core.c', line 1095

static VALUE
celes_s_tttdb(VALUE self, VALUE vtt1, VALUE vtt2, VALUE vdtr){
	double tdb1, tdb2;

	iauTttdb(NUM2DBL(vtt1), NUM2DBL(vtt2), NUM2DBL(vdtr), &tdb1, &tdb2);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(tdb1), DBL2NUM(tdb2));
}

.ttut1(vtt1, vtt2, vdt) ⇒ Object 



1105
1106
1107
1108
1109
1110
1111
1112
1113
 
# File 'ext/celes/celes_core.c', line 1105

static VALUE
celes_s_ttut1(VALUE self, VALUE vtt1, VALUE vtt2, VALUE vdt){
	double ut11, ut12;

	iauTtut1(NUM2DBL(vtt1), NUM2DBL(vtt2), NUM2DBL(vdt), &ut11, &ut12);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(ut11), DBL2NUM(ut12));
}

.ut1tai(vut11, vut12, vdta) ⇒ Object 



1115
1116
1117
1118
1119
1120
1121
1122
1123
 
# File 'ext/celes/celes_core.c', line 1115

static VALUE
celes_s_ut1tai(VALUE self, VALUE vut11, VALUE vut12, VALUE vdta){
	double tai1, tai2;

	iauUt1tai(NUM2DBL(vut11), NUM2DBL(vut12), NUM2DBL(vdta), &tai1, &tai2);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(tai1), DBL2NUM(tai2));
}

.ut1tt(vut11, vut12, vdt) ⇒ Object 



1125
1126
1127
1128
1129
1130
1131
1132
1133
 
# File 'ext/celes/celes_core.c', line 1125

static VALUE
celes_s_ut1tt(VALUE self, VALUE vut11, VALUE vut12, VALUE vdt){
	double tt1, tt2;

	iauUt1tt(NUM2DBL(vut11), NUM2DBL(vut12), NUM2DBL(vdt), &tt1, &tt2);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(tt1), DBL2NUM(tt2));
}

.ut1utc(vut11, vut12, vdut1) ⇒ Object 



1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
 
# File 'ext/celes/celes_core.c', line 1135

static VALUE
celes_s_ut1utc(VALUE self, VALUE vut11, VALUE vut12, VALUE vdut1){
	int ret;
	double utc1, utc2;

	ret = iauUt1utc(NUM2DBL(vut11), NUM2DBL(vut12),
			NUM2DBL(vdut1), &utc1, &utc2);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	if(ret == -1)
		rb_raise(rb_eArgError, "unacceptable date");

	return rb_ary_new3(2, DBL2NUM(utc1), DBL2NUM(utc2));
}

.utctai(vutc1, vutc2) ⇒ Object 



1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
 
# File 'ext/celes/celes_core.c', line 1150

static VALUE
celes_s_utctai(VALUE self, VALUE vutc1, VALUE vutc2){
	int ret;
	double tai1, tai2;

	ret = iauUtctai(NUM2DBL(vutc1), NUM2DBL(vutc2), &tai1, &tai2);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	if(ret == -1)
		rb_raise(rb_eArgError, "unacceptable date");

	return rb_ary_new3(2, DBL2NUM(tai1), DBL2NUM(tai2));
}

.utcut1(vutc1, vutc2, vdut1) ⇒ Object 



1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
 
# File 'ext/celes/celes_core.c', line 1164

static VALUE
celes_s_utcut1(VALUE self, VALUE vutc1, VALUE vutc2, VALUE vdut1){
	int ret;
	double ut11, ut12;

	ret = iauUtcut1(NUM2DBL(vutc1), NUM2DBL(vutc2),
			NUM2DBL(vdut1), &ut11, &ut12);
	rb_ivar_set(self, id_status, INT2FIX(ret));

	if(ret == -1)
		rb_raise(rb_eArgError, "unacceptable date");

	return rb_ary_new3(2, DBL2NUM(ut11), DBL2NUM(ut12));
}

.xy06(vdate1, vdate2) ⇒ Object 



1906
1907
1908
1909
1910
1911
1912
1913
1914
 
# File 'ext/celes/celes_core.c', line 1906

static VALUE
celes_s_xy06(VALUE self, VALUE vdate1, VALUE vdate2){
	double x, y;

	iauXy06(NUM2DBL(vdate1), NUM2DBL(vdate2), &x, &y);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(2, DBL2NUM(x), DBL2NUM(y));
}

.xys00a(vdate1, vdate2) ⇒ Object 



1916
1917
1918
1919
1920
1921
1922
1923
1924
 
# File 'ext/celes/celes_core.c', line 1916

static VALUE
celes_s_xys00a(VALUE self, VALUE vdate1, VALUE vdate2){
	double x, y, s;

	iauXys00a(NUM2DBL(vdate1), NUM2DBL(vdate2), &x, &y, &s);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(3, DBL2NUM(x), DBL2NUM(y), DBL2NUM(s));
}

.xys00b(vdate1, vdate2) ⇒ Object 



1926
1927
1928
1929
1930
1931
1932
1933
1934
 
# File 'ext/celes/celes_core.c', line 1926

static VALUE
celes_s_xys00b(VALUE self, VALUE vdate1, VALUE vdate2){
	double x, y, s;

	iauXys00b(NUM2DBL(vdate1), NUM2DBL(vdate2), &x, &y, &s);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(3, DBL2NUM(x), DBL2NUM(y), DBL2NUM(s));
}

.xys06a(vdate1, vdate2) ⇒ Object 



1936
1937
1938
1939
1940
1941
1942
1943
1944
 
# File 'ext/celes/celes_core.c', line 1936

static VALUE
celes_s_xys06a(VALUE self, VALUE vdate1, VALUE vdate2){
	double x, y, s;

	iauXys06a(NUM2DBL(vdate1), NUM2DBL(vdate2), &x, &y, &s);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return rb_ary_new3(3, DBL2NUM(x), DBL2NUM(y), DBL2NUM(s));
}

.zp ⇒ Object 



170
171
172
173
174
175
176
177
178
 
# File 'ext/celes/celes_core.c', line 170

static VALUE
celes_s_zp(VALUE self){
	double p[3];

	iauZp(p);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vvec_new(p);
}

.zp!(vp) ⇒ Object 



159
160
161
162
163
164
165
166
167
168
 
# File 'ext/celes/celes_core.c', line 159

static VALUE
celes_s_zp_b(VALUE self, VALUE vp){
	double p[3];

	cvec_cp(vp, p);
	iauZp(p);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vvec_cp(p, vp);
}

.zpv ⇒ Object 



562
563
564
565
566
567
568
569
570
 
# File 'ext/celes/celes_core.c', line 562

static VALUE
celes_s_zpv(VALUE self){
	double pv[2][3];

	iauZpv(pv);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new23(pv);
}

.zpv!(vpv) ⇒ Object 



551
552
553
554
555
556
557
558
559
560
 
# File 'ext/celes/celes_core.c', line 551

static VALUE
celes_s_zpv_b(VALUE self, VALUE vpv){
	double pv[2][3];

	cmat_cp23(vpv, pv);
	iauZpv(pv);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_cp23(pv, vpv);
}

.zr ⇒ Object 



191
192
193
194
195
196
197
198
199
 
# File 'ext/celes/celes_core.c', line 191

static VALUE
celes_s_zr(VALUE self){
	double r[3][3];

	iauZr(r);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_new33(r);
}

.zr!(vr) ⇒ Object 



180
181
182
183
184
185
186
187
188
189
 
# File 'ext/celes/celes_core.c', line 180

static VALUE
celes_s_zr_b(VALUE self, VALUE vr){
	double r[3][3];

	cmat_cp33(vr, r);
	iauZr(r);
	rb_ivar_set(self, id_status, INT2FIX(0));

	return vmat_cp33(r, vr);
}