/dports/astro/oskar/OSKAR-2.8.0/extern/cfitsio/ |
H A D | wcssub.c | 176 double *xrval, /* O - X reference value */ in ffgics() argument 209 if (ffgkyd(fptr, "CRVAL1", xrval, NULL, &tstat)) in ffgics() 210 *xrval = 0.; in ffgics() 400 temp = *xrval; in ffgics() 401 *xrval = *yrval; in ffgics() 412 double *xrval, /* O - X reference value */ in ffgicsa() argument 460 if (ffgkyd(fptr, keyname, xrval, NULL, &tstat)) in ffgicsa() 461 *xrval = 0.; in ffgicsa() 678 temp = *xrval; in ffgicsa() 679 *xrval = *yrval; in ffgicsa() [all …]
|
/dports/astro/cfitsio/cfitsio-3.49/ |
H A D | wcssub.c | 176 double *xrval, /* O - X reference value */ in ffgics() argument 209 if (ffgkyd(fptr, "CRVAL1", xrval, NULL, &tstat)) in ffgics() 210 *xrval = 0.; in ffgics() 400 temp = *xrval; in ffgics() 401 *xrval = *yrval; in ffgics() 412 double *xrval, /* O - X reference value */ in ffgicsa() argument 460 if (ffgkyd(fptr, keyname, xrval, NULL, &tstat)) in ffgicsa() 461 *xrval = 0.; in ffgicsa() 678 temp = *xrval; in ffgicsa() 679 *xrval = *yrval; in ffgicsa() [all …]
|
H A D | testf77.f | 59 double precision xrval,yrval,xrpix,yrpix,xinc,yinc,rot variable 2236 xrval = 45.83D+00 2245 call ftpkyd(iunit, 'CRVAL1', xrval, 10, 'comment', status) 2258 xrval = 0.D+00 2266 call ftgics(iunit, xrval, yrval, xrpix, 2274 call ftwldp(xpix,ypix,xrval,yrval,xrpix,yrpix,xinc,yinc, 2277 write(*,'(1x,A,2f8.3)')' CRVAL1, CRVAL2 =', xrval,yrval 2286 call ftxypx(xpos,ypos,xrval,yrval,xrpix,yrpix,xinc,yinc,
|
H A D | testprog.c | 49 double xrval,yrval,xrpix,yrpix,xinc,yinc,rot,xpos,ypos,xpix,ypix; in main() local 2293 xrval = 45.83; in main() 2302 ffpkyd(fptr, "CRVAL1", xrval, 10, "comment", &status); in main() 2313 xrval = 0.; in main() 2321 ffgics(fptr, &xrval, &yrval, &xrpix, in main() 2328 ffwldp(xpix,ypix,xrval,yrval,xrpix,yrpix,xinc,yinc,rot,ctype, in main() 2331 printf(" CRVAL1, CRVAL2 = %16.12f, %16.12f\n", xrval,yrval); in main() 2338 ffxypx(xpos,ypos,xrval,yrval,xrpix,yrpix,xinc,yinc,rot,ctype, in main()
|
/dports/science/healpix/Healpix_3.50/src/healpy/cfitsio/ |
H A D | wcssub.c | 176 double *xrval, /* O - X reference value */ in ffgics() argument 209 if (ffgkyd(fptr, "CRVAL1", xrval, NULL, &tstat)) in ffgics() 210 *xrval = 0.; in ffgics() 400 temp = *xrval; in ffgics() 401 *xrval = *yrval; in ffgics() 412 double *xrval, /* O - X reference value */ in ffgicsa() argument 460 if (ffgkyd(fptr, keyname, xrval, NULL, &tstat)) in ffgicsa() 461 *xrval = 0.; in ffgicsa() 678 temp = *xrval; in ffgicsa() 679 *xrval = *yrval; in ffgicsa() [all …]
|
H A D | testf77.f | 59 double precision xrval,yrval,xrpix,yrpix,xinc,yinc,rot 2236 xrval = 45.83D+00 2245 call ftpkyd(iunit, 'CRVAL1', xrval, 10, 'comment', status) 2258 xrval = 0.D+00 2266 call ftgics(iunit, xrval, yrval, xrpix, 2274 call ftwldp(xpix,ypix,xrval,yrval,xrpix,yrpix,xinc,yinc, 2277 write(*,'(1x,A,2f8.3)')' CRVAL1, CRVAL2 =', xrval,yrval 2286 call ftxypx(xpos,ypos,xrval,yrval,xrpix,yrpix,xinc,yinc,
|
H A D | testprog.c | 49 double xrval,yrval,xrpix,yrpix,xinc,yinc,rot,xpos,ypos,xpix,ypix; in main() local 2293 xrval = 45.83; in main() 2302 ffpkyd(fptr, "CRVAL1", xrval, 10, "comment", &status); in main() 2313 xrval = 0.; in main() 2321 ffgics(fptr, &xrval, &yrval, &xrpix, in main() 2328 ffwldp(xpix,ypix,xrval,yrval,xrpix,yrpix,xinc,yinc,rot,ctype, in main() 2331 printf(" CRVAL1, CRVAL2 = %16.12f, %16.12f\n", xrval,yrval); in main() 2338 ffxypx(xpos,ypos,xrval,yrval,xrpix,yrpix,xinc,yinc,rot,ctype, in main()
|
/dports/astro/py-astropy/astropy-5.0/cextern/cfitsio/lib/ |
H A D | wcssub.c | 176 double *xrval, /* O - X reference value */ in ffgics() argument 209 if (ffgkyd(fptr, "CRVAL1", xrval, NULL, &tstat)) in ffgics() 210 *xrval = 0.; in ffgics() 400 temp = *xrval; in ffgics() 401 *xrval = *yrval; in ffgics() 412 double *xrval, /* O - X reference value */ in ffgicsa() argument 460 if (ffgkyd(fptr, keyname, xrval, NULL, &tstat)) in ffgicsa() 461 *xrval = 0.; in ffgicsa() 678 temp = *xrval; in ffgicsa() 679 *xrval = *yrval; in ffgicsa() [all …]
|
/dports/science/bagel/bagel-1.2.2/src/integral/comprys/ |
H A D | _complex_eriroot_9.cc | 20334 double xrval[10]; in complex_eriroot9() local 20392 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot9() 20412 sumxr += xrval[k] * fac3; in complex_eriroot9() 20470 double xrval[8]; in complex_eriroot9() local 20512 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot9() 20532 sumxr += xrval[k] * fac3; in complex_eriroot9()
|
H A D | _complex_eriroot_13.cc | 35284 double xrval[10]; in complex_eriroot13() local 35342 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot13() 35362 sumxr += xrval[k] * fac3; in complex_eriroot13() 35420 double xrval[8]; in complex_eriroot13() local 35462 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot13() 35482 sumxr += xrval[k] * fac3; in complex_eriroot13()
|
H A D | _complex_eriroot_3.cc | 4628 double xrval[10]; in complex_eriroot3() local 4686 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot3() 4706 sumxr += xrval[k] * fac3; in complex_eriroot3() 4764 double xrval[8]; in complex_eriroot3() local 4806 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot3() 4826 sumxr += xrval[k] * fac3; in complex_eriroot3()
|
H A D | _complex_eriroot_7.cc | 14230 double xrval[10]; in complex_eriroot7() local 14288 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot7() 14308 sumxr += xrval[k] * fac3; in complex_eriroot7() 14366 double xrval[8]; in complex_eriroot7() local 14408 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot7() 14428 sumxr += xrval[k] * fac3; in complex_eriroot7()
|
H A D | _complex_eriroot_2.cc | 2832 double xrval[10]; in complex_eriroot2() local 2890 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot2() 2910 sumxr += xrval[k] * fac3; in complex_eriroot2() 2968 double xrval[8]; in complex_eriroot2() local 3010 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot2() 3030 sumxr += xrval[k] * fac3; in complex_eriroot2()
|
H A D | _complex_eriroot_4.cc | 6696 double xrval[10]; in complex_eriroot4() local 6754 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot4() 6774 sumxr += xrval[k] * fac3; in complex_eriroot4() 6832 double xrval[8]; in complex_eriroot4() local 6874 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot4() 6894 sumxr += xrval[k] * fac3; in complex_eriroot4()
|
H A D | _complex_eriroot_5.cc | 9042 double xrval[10]; in complex_eriroot5() local 9100 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot5() 9120 sumxr += xrval[k] * fac3; in complex_eriroot5() 9178 double xrval[8]; in complex_eriroot5() local 9220 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot5() 9240 sumxr += xrval[k] * fac3; in complex_eriroot5()
|
H A D | _complex_eriroot_11.cc | 27854 double xrval[10]; in complex_eriroot11() local 27912 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot11() 27932 sumxr += xrval[k] * fac3; in complex_eriroot11() 27990 double xrval[8]; in complex_eriroot11() local 28032 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot11() 28052 sumxr += xrval[k] * fac3; in complex_eriroot11()
|
H A D | _complex_eriroot_6.cc | 11658 double xrval[10]; in complex_eriroot6() local 11716 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot6() 11736 sumxr += xrval[k] * fac3; in complex_eriroot6() 11794 double xrval[8]; in complex_eriroot6() local 11836 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot6() 11856 sumxr += xrval[k] * fac3; in complex_eriroot6()
|
H A D | _complex_eriroot_8.cc | 17350 double xrval[10]; in complex_eriroot8() local 17408 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot8() 17428 sumxr += xrval[k] * fac3; in complex_eriroot8() 17486 double xrval[8]; in complex_eriroot8() local 17528 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot8() 17548 sumxr += xrval[k] * fac3; in complex_eriroot8()
|
H A D | _complex_eriroot_1.cc | 1268 double xrval[10]; in complex_eriroot1() local 1326 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot1() 1346 sumxr += xrval[k] * fac3; in complex_eriroot1() 1404 double xrval[8]; in complex_eriroot1() local 1446 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot1() 1466 sumxr += xrval[k] * fac3; in complex_eriroot1()
|
H A D | _complex_eriroot_12.cc | 31476 double xrval[10]; in complex_eriroot12() local 31534 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot12() 31554 sumxr += xrval[k] * fac3; in complex_eriroot12() 31612 double xrval[8]; in complex_eriroot12() local 31654 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot12() 31674 sumxr += xrval[k] * fac3; in complex_eriroot12()
|
H A D | _complex_eriroot_10.cc | 23954 double xrval[10]; in complex_eriroot10() local 24012 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot10() 24032 sumxr += xrval[k] * fac3; in complex_eriroot10() 24090 double xrval[8]; in complex_eriroot10() local 24132 xrval[k-1] = tr*dr - fr + xr[boxof+0]*0.5; in complex_eriroot10() 24152 sumxr += xrval[k] * fac3; in complex_eriroot10()
|
/dports/astro/p5-Astro-FITS-CFITSIO/Astro-FITS-CFITSIO-1.15/testprog/ |
H A D | testprog.pl | 54 my ($xrval,$yrval,$xrpix,$yrpix,$xinc,$yinc,$rot,$ctype,$xpix,$ypix,$xpos,$ypos); 1640 $xrval=45.83; 1647 ffpkyd($fptr,'CRVAL1',$xrval,10,'comment',$status); 1657 $xrval = 0; 1665 ffgics($fptr,$xrval,$yrval,$xrpix,$yrpix,$xinc,$yinc,$rot,$ctype,$status); 1671 ffwldp($xpix,$ypix,$xrval,$yrval,$xrpix,$yrpix,$xinc,$yinc,$rot,$ctype,$xpos,$ypos,$status); 1673 printf " CRVAL1, CRVAL2 = %16.12f, %16.12f\n", $xrval,$yrval; 1680 ffxypx($xpos,$ypos,$xrval,$yrval,$xrpix,$yrpix,$xinc,$yinc,$rot,$ctype,$xpix,$ypix,$status);
|
H A D | testprog_OO.pl | 54 my ($xrval,$yrval,$xrpix,$yrpix,$xinc,$yinc,$rot,$ctype,$xpix,$ypix,$xpos,$ypos); 1650 $xrval=45.83; 1657 $fptr->write_key_dbl('CRVAL1',$xrval,10,'comment',$status); 1667 $xrval = 0; 1675 $fptr->read_img_coord($xrval,$yrval,$xrpix,$yrpix,$xinc,$yinc,$rot,$ctype,$status); 1681 fits_pix_to_world($xpix,$ypix,$xrval,$yrval,$xrpix,$yrpix,$xinc,$yinc,$rot,$ctype,$xpos,$ypos,$stat… 1683 printf " CRVAL1, CRVAL2 = %16.12f, %16.12f\n", $xrval,$yrval; 1690 fits_world_to_pix($xpos,$ypos,$xrval,$yrval,$xrpix,$yrpix,$xinc,$yinc,$rot,$ctype,$xpix,$ypix,$stat…
|
H A D | testprog_longnames.pl | 54 my ($xrval,$yrval,$xrpix,$yrpix,$xinc,$yinc,$rot,$ctype,$xpix,$ypix,$xpos,$ypos); 1650 $xrval=45.83; 1657 fits_write_key_dbl($fptr,'CRVAL1',$xrval,10,'comment',$status); 1667 $xrval = 0; 1675 fits_read_img_coord($fptr,$xrval,$yrval,$xrpix,$yrpix,$xinc,$yinc,$rot,$ctype,$status); 1681 fits_pix_to_world($xpix,$ypix,$xrval,$yrval,$xrpix,$yrpix,$xinc,$yinc,$rot,$ctype,$xpos,$ypos,$stat… 1683 printf " CRVAL1, CRVAL2 = %16.12f, %16.12f\n", $xrval,$yrval; 1690 fits_world_to_pix($xpos,$ypos,$xrval,$yrval,$xrpix,$yrpix,$xinc,$yinc,$rot,$ctype,$xpix,$ypix,$stat…
|
H A D | testprog_pdl.pl | 70 my ($xrval,$yrval,$xrpix,$yrpix,$xinc,$yinc,$rot,$ctype,$xpix,$ypix,$xpos,$ypos); 1679 $xrval=45.83; 1686 $fptr->write_key_dbl('CRVAL1',$xrval,10,'comment',$status); 1696 $xrval = 0; 1704 $fptr->read_img_coord($xrval,$yrval,$xrpix,$yrpix,$xinc,$yinc,$rot,$ctype,$status); 1710 fits_pix_to_world($xpix,$ypix,$xrval,$yrval,$xrpix,$yrpix,$xinc,$yinc,$rot,$ctype,$xpos,$ypos,$stat… 1712 printf " CRVAL1, CRVAL2 = %16.12f, %16.12f\n", $xrval,$yrval; 1719 fits_world_to_pix($xpos,$ypos,$xrval,$yrval,$xrpix,$yrpix,$xinc,$yinc,$rot,$ctype,$xpix,$ypix,$stat…
|