/dports/astro/p5-Astro-FITS-CFITSIO/Astro-FITS-CFITSIO-1.15/examples/ |
H A D | image_read.pl | 31 my ($naxis1,$naxis2) = @$naxes; 36 print "Reading ${naxis2}x${naxis1} image..."; 38 $fptr->read_pixnull(Astro::FITS::CFITSIO::TLONG(), [1,1], $naxis1*$naxis2, $array, $nullarray, $any… 49 pgenv(0,$naxis2-1,0,$naxis1-1,0,0); 50 pgimag($array,$naxis1,$naxis2,1,$naxis1,1,$naxis2,0,400,[0,1,0,0,0,1]);
|
H A D | image_read_pdl.pl | 33 my ($naxis1,$naxis2) = @$naxes; 66 print STDERR "Reading ${naxis2}x${naxis1} image..."; 69 my $pdl = $pdl_funcs{$bitpix}{'pdl'}->(zeroes($naxis1,$naxis2)); 70 my $nullarray = byte(zeroes($naxis1,$naxis2));
|
/dports/science/healpix/Healpix_3.50/src/healpy/cfitsio/ |
H A D | editcol.c | 218 LONGLONG naxis1, naxis2; in ffirow() local 250 naxis2 = (fptr->Fptr)->numrows; in ffirow() 252 if (firstrow > naxis2) in ffirow() 305 LONGLONG naxis1, naxis2; in ffdrow() local 339 naxis2 = (fptr->Fptr)->numrows; in ffdrow() 341 if (firstrow > naxis2) in ffdrow() 407 LONGLONG naxis2; in ffdrrg() local 582 while(nextrow <= naxis2) in ffdrws() 711 while(nextrow <= naxis2) in ffdrwsll() 2099 if (naxis2 == 0) in ffcins() [all …]
|
H A D | fitsio.h | 1244 LONGLONG naxis1, LONGLONG naxis2, short *array, 1250 LONGLONG naxis1, LONGLONG naxis2, long *array, 1259 LONGLONG naxis1, LONGLONG naxis2, int *array, 1262 LONGLONG naxis1, LONGLONG naxis2, float *array, 1265 LONGLONG naxis1, LONGLONG naxis2, double *array, 1563 LONGLONG naxis2, short *array, int *status); 1567 LONGLONG naxis2, long *array, int *status); 1571 LONGLONG naxis2, int *array, int *status); 1573 LONGLONG naxis2, float *array, int *status); 1575 LONGLONG naxis2, double *array, int *status); [all …]
|
H A D | putcolj.c | 108 ffp3dj(fptr, group, ncols, naxis2, naxis1, naxis2, 1, array, status); in ffp2dj() 153 if (ncols == naxis1 && nrows == naxis2) /* arrays have same size? */ in ffp3dj() 156 ffpclj(fptr, 2, tablerow, 1L, naxis1 * naxis2 * naxis3, array, status); in ffp3dj() 160 if (ncols < naxis1 || nrows < naxis2) in ffp3dj() 172 for (ii = 0; ii < naxis2; ii++) in ffp3dj() 180 narray += (nrows - naxis2) * ncols; in ffp3dj() 1099 ffp3djj(fptr, group, ncols, naxis2, naxis1, naxis2, 1, array, status); in ffp2djj() 1139 if (ncols == naxis1 && nrows == naxis2) /* arrays have same size? */ in ffp3djj() 1146 if (ncols < naxis1 || nrows < naxis2) in ffp3djj() 1158 for (ii = 0; ii < naxis2; ii++) in ffp3djj() [all …]
|
H A D | edithdu.c | 549 LONGLONG naxis2, /* I - number of rows in the table */ in ffitab() argument 584 ffcrtb(fptr, ASCII_TBL, naxis2, tfields, ttype, tform, tunit, in ffitab() 591 else if (naxis2 < 0) in ffitab() 633 datasize = (LONGLONG)rowlen * naxis2; /* size of table in bytes */ in ffitab() 672 ffphtb(fptr, rowlen, naxis2, tfields, ttype, tbcol, tform, tunit, in ffitab() 685 LONGLONG naxis2, /* I - number of rows in the table */ in ffibin() argument 721 ffcrtb(fptr, BINARY_TBL, naxis2, tfields, ttype, tform, tunit, in ffibin() 726 if (naxis2 < 0) in ffibin() 763 datasize = ((LONGLONG)naxis1 * naxis2) + pcount; /* size of table in bytes */ in ffibin() 799 ffphbn(fptr, naxis2, tfields, ttype, tform, tunit, extnm, pcount, in ffibin()
|
/dports/astro/oskar/OSKAR-2.8.0/extern/cfitsio/ |
H A D | editcol.c | 218 LONGLONG naxis1, naxis2; in ffirow() local 250 naxis2 = (fptr->Fptr)->numrows; in ffirow() 252 if (firstrow > naxis2) in ffirow() 305 LONGLONG naxis1, naxis2; in ffdrow() local 339 naxis2 = (fptr->Fptr)->numrows; in ffdrow() 341 if (firstrow > naxis2) in ffdrow() 407 LONGLONG naxis2; in ffdrrg() local 582 while(nextrow <= naxis2) in ffdrws() 711 while(nextrow <= naxis2) in ffdrwsll() 2460 if (naxis2 == 0) in ffcins() [all …]
|
H A D | fitsio.h | 1280 LONGLONG naxis1, LONGLONG naxis2, short *array, 1286 LONGLONG naxis1, LONGLONG naxis2, long *array, 1298 LONGLONG naxis1, LONGLONG naxis2, int *array, 1301 LONGLONG naxis1, LONGLONG naxis2, float *array, 1304 LONGLONG naxis1, LONGLONG naxis2, double *array, 1622 LONGLONG naxis2, short *array, int *status); 1626 LONGLONG naxis2, long *array, int *status); 1630 LONGLONG naxis2, int *array, int *status); 1632 LONGLONG naxis2, float *array, int *status); 1634 LONGLONG naxis2, double *array, int *status); [all …]
|
H A D | putcolj.c | 108 ffp3dj(fptr, group, ncols, naxis2, naxis1, naxis2, 1, array, status); in ffp2dj() 153 if (ncols == naxis1 && nrows == naxis2) /* arrays have same size? */ in ffp3dj() 156 ffpclj(fptr, 2, tablerow, 1L, naxis1 * naxis2 * naxis3, array, status); in ffp3dj() 160 if (ncols < naxis1 || nrows < naxis2) in ffp3dj() 172 for (ii = 0; ii < naxis2; ii++) in ffp3dj() 180 narray += (nrows - naxis2) * ncols; in ffp3dj() 1114 ffp3djj(fptr, group, ncols, naxis2, naxis1, naxis2, 1, array, status); in ffp2djj() 1154 if (ncols == naxis1 && nrows == naxis2) /* arrays have same size? */ in ffp3djj() 1161 if (ncols < naxis1 || nrows < naxis2) in ffp3djj() 1173 for (ii = 0; ii < naxis2; ii++) in ffp3djj() [all …]
|
H A D | putcoluj.c | 107 ffp3duj(fptr, group, ncols, naxis2, naxis1, naxis2, 1, array, status); in ffp2duj() 152 if (ncols == naxis1 && nrows == naxis2) /* arrays have same size? */ in ffp3duj() 155 ffpcluj(fptr, 2, tablerow, 1L, naxis1 * naxis2 * naxis3, array, status); in ffp3duj() 159 if (ncols < naxis1 || nrows < naxis2) in ffp3duj() 171 for (ii = 0; ii < naxis2; ii++) in ffp3duj() 179 narray += (nrows - naxis2) * ncols; in ffp3duj() 1088 ffp3dujj(fptr, group, ncols, naxis2, naxis1, naxis2, 1, array, status); in ffp2dujj() 1129 if (ncols == naxis1 && nrows == naxis2) /* arrays have same size? */ in ffp3dujj() 1136 if (ncols < naxis1 || nrows < naxis2) in ffp3dujj() 1148 for (ii = 0; ii < naxis2; ii++) in ffp3dujj() [all …]
|
H A D | edithdu.c | 549 LONGLONG naxis2, /* I - number of rows in the table */ in ffitab() argument 584 ffcrtb(fptr, ASCII_TBL, naxis2, tfields, ttype, tform, tunit, in ffitab() 591 else if (naxis2 < 0) in ffitab() 633 datasize = (LONGLONG)rowlen * naxis2; /* size of table in bytes */ in ffitab() 672 ffphtb(fptr, rowlen, naxis2, tfields, ttype, tbcol, tform, tunit, in ffitab() 685 LONGLONG naxis2, /* I - number of rows in the table */ in ffibin() argument 721 ffcrtb(fptr, BINARY_TBL, naxis2, tfields, ttype, tform, tunit, in ffibin() 726 if (naxis2 < 0) in ffibin() 763 datasize = ((LONGLONG)naxis1 * naxis2) + pcount; /* size of table in bytes */ in ffibin() 799 ffphbn(fptr, naxis2, tfields, ttype, tform, tunit, extnm, pcount, in ffibin()
|
H A D | putcolb.c | 98 LONGLONG naxis2, /* I - FITS image NAXIS2 value */ in ffp2db() argument 109 ffp3db(fptr, group, ncols, naxis2, naxis1, naxis2, 1, array, status); in ffp2db() 119 LONGLONG naxis2, /* I - FITS image NAXIS2 value */ in ffp3db() argument 154 if (ncols == naxis1 && nrows == naxis2) /* arrays have same size? */ in ffp3db() 157 ffpclb(fptr, 2, tablerow, 1L, naxis1 * naxis2 * naxis3, array, status); in ffp3db() 161 if (ncols < naxis1 || nrows < naxis2) in ffp3db() 173 for (ii = 0; ii < naxis2; ii++) in ffp3db() 181 narray += (nrows - naxis2) * ncols; in ffp3db()
|
H A D | putcolsb.c | 96 LONGLONG naxis2, /* I - FITS image NAXIS2 value */ in ffp2dsb() argument 107 ffp3dsb(fptr, group, ncols, naxis2, naxis1, naxis2, 1, array, status); in ffp2dsb() 117 LONGLONG naxis2, /* I - FITS image NAXIS2 value */ in ffp3dsb() argument 152 if (ncols == naxis1 && nrows == naxis2) /* arrays have same size? */ in ffp3dsb() 155 ffpclsb(fptr, 2, tablerow, 1L, naxis1 * naxis2 * naxis3, array, status); in ffp3dsb() 159 if (ncols < naxis1 || nrows < naxis2) in ffp3dsb() 171 for (ii = 0; ii < naxis2; ii++) in ffp3dsb() 179 narray += (nrows - naxis2) * ncols; in ffp3dsb()
|
H A D | putcoluk.c | 96 LONGLONG naxis2, /* I - FITS image NAXIS2 value */ in ffp2duk() argument 107 ffp3duk(fptr, group, ncols, naxis2, naxis1, naxis2, 1, array, status); in ffp2duk() 117 LONGLONG naxis2, /* I - FITS image NAXIS2 value */ in ffp3duk() argument 152 if (ncols == naxis1 && nrows == naxis2) /* arrays have same size? */ in ffp3duk() 155 ffpcluk(fptr, 2, tablerow, 1L, naxis1 * naxis2 * naxis3, array, status); in ffp3duk() 159 if (ncols < naxis1 || nrows < naxis2) in ffp3duk() 171 for (ii = 0; ii < naxis2; ii++) in ffp3duk() 179 narray += (nrows - naxis2) * ncols; in ffp3duk()
|
H A D | putcoli.c | 97 LONGLONG naxis2, /* I - FITS image NAXIS2 value */ in ffp2di() argument 108 ffp3di(fptr, group, ncols, naxis2, naxis1, naxis2, 1, array, status); in ffp2di() 118 LONGLONG naxis2, /* I - FITS image NAXIS2 value */ in ffp3di() argument 153 if (ncols == naxis1 && nrows == naxis2) /* arrays have same size? */ in ffp3di() 156 ffpcli(fptr, 2, tablerow, 1L, naxis1 * naxis2 * naxis3, array, status); in ffp3di() 160 if (ncols < naxis1 || nrows < naxis2) in ffp3di() 172 for (ii = 0; ii < naxis2; ii++) in ffp3di() 180 narray += (nrows - naxis2) * ncols; in ffp3di()
|
/dports/astro/cfitsio/cfitsio-3.49/ |
H A D | editcol.c | 218 LONGLONG naxis1, naxis2; in ffirow() local 250 naxis2 = (fptr->Fptr)->numrows; in ffirow() 252 if (firstrow > naxis2) in ffirow() 305 LONGLONG naxis1, naxis2; in ffdrow() local 339 naxis2 = (fptr->Fptr)->numrows; in ffdrow() 341 if (firstrow > naxis2) in ffdrow() 407 LONGLONG naxis2; in ffdrrg() local 582 while(nextrow <= naxis2) in ffdrws() 711 while(nextrow <= naxis2) in ffdrwsll() 2510 if (naxis2 == 0) in ffcins() [all …]
|
H A D | fitsio.h | 1281 LONGLONG naxis1, LONGLONG naxis2, short *array, 1287 LONGLONG naxis1, LONGLONG naxis2, long *array, 1299 LONGLONG naxis1, LONGLONG naxis2, int *array, 1302 LONGLONG naxis1, LONGLONG naxis2, float *array, 1305 LONGLONG naxis1, LONGLONG naxis2, double *array, 1623 LONGLONG naxis2, short *array, int *status); 1627 LONGLONG naxis2, long *array, int *status); 1631 LONGLONG naxis2, int *array, int *status); 1633 LONGLONG naxis2, float *array, int *status); 1635 LONGLONG naxis2, double *array, int *status); [all …]
|
H A D | putcolj.c | 108 ffp3dj(fptr, group, ncols, naxis2, naxis1, naxis2, 1, array, status); in ffp2dj() 153 if (ncols == naxis1 && nrows == naxis2) /* arrays have same size? */ in ffp3dj() 156 ffpclj(fptr, 2, tablerow, 1L, naxis1 * naxis2 * naxis3, array, status); in ffp3dj() 160 if (ncols < naxis1 || nrows < naxis2) in ffp3dj() 172 for (ii = 0; ii < naxis2; ii++) in ffp3dj() 180 narray += (nrows - naxis2) * ncols; in ffp3dj() 1114 ffp3djj(fptr, group, ncols, naxis2, naxis1, naxis2, 1, array, status); in ffp2djj() 1154 if (ncols == naxis1 && nrows == naxis2) /* arrays have same size? */ in ffp3djj() 1161 if (ncols < naxis1 || nrows < naxis2) in ffp3djj() 1173 for (ii = 0; ii < naxis2; ii++) in ffp3djj() [all …]
|
H A D | putcoluj.c | 107 ffp3duj(fptr, group, ncols, naxis2, naxis1, naxis2, 1, array, status); in ffp2duj() 152 if (ncols == naxis1 && nrows == naxis2) /* arrays have same size? */ in ffp3duj() 155 ffpcluj(fptr, 2, tablerow, 1L, naxis1 * naxis2 * naxis3, array, status); in ffp3duj() 159 if (ncols < naxis1 || nrows < naxis2) in ffp3duj() 171 for (ii = 0; ii < naxis2; ii++) in ffp3duj() 179 narray += (nrows - naxis2) * ncols; in ffp3duj() 1088 ffp3dujj(fptr, group, ncols, naxis2, naxis1, naxis2, 1, array, status); in ffp2dujj() 1129 if (ncols == naxis1 && nrows == naxis2) /* arrays have same size? */ in ffp3dujj() 1136 if (ncols < naxis1 || nrows < naxis2) in ffp3dujj() 1148 for (ii = 0; ii < naxis2; ii++) in ffp3dujj() [all …]
|
H A D | edithdu.c | 590 LONGLONG naxis2, /* I - number of rows in the table */ in ffitab() argument 625 ffcrtb(fptr, ASCII_TBL, naxis2, tfields, ttype, tform, tunit, in ffitab() 632 else if (naxis2 < 0) in ffitab() 674 datasize = (LONGLONG)rowlen * naxis2; /* size of table in bytes */ in ffitab() 713 ffphtb(fptr, rowlen, naxis2, tfields, ttype, tbcol, tform, tunit, in ffitab() 726 LONGLONG naxis2, /* I - number of rows in the table */ in ffibin() argument 762 ffcrtb(fptr, BINARY_TBL, naxis2, tfields, ttype, tform, tunit, in ffibin() 767 if (naxis2 < 0) in ffibin() 804 datasize = ((LONGLONG)naxis1 * naxis2) + pcount; /* size of table in bytes */ in ffibin() 840 ffphbn(fptr, naxis2, tfields, ttype, tform, tunit, extnm, pcount, in ffibin()
|
/dports/astro/py-astropy/astropy-5.0/cextern/cfitsio/lib/ |
H A D | editcol.c | 218 LONGLONG naxis1, naxis2; in ffirow() local 250 naxis2 = (fptr->Fptr)->numrows; in ffirow() 252 if (firstrow > naxis2) in ffirow() 305 LONGLONG naxis1, naxis2; in ffdrow() local 339 naxis2 = (fptr->Fptr)->numrows; in ffdrow() 341 if (firstrow > naxis2) in ffdrow() 407 LONGLONG naxis2; in ffdrrg() local 582 while(nextrow <= naxis2) in ffdrws() 711 while(nextrow <= naxis2) in ffdrwsll() 2510 if (naxis2 == 0) in ffcins() [all …]
|
H A D | fitsio.h | 1282 LONGLONG naxis1, LONGLONG naxis2, short *array, 1288 LONGLONG naxis1, LONGLONG naxis2, long *array, 1300 LONGLONG naxis1, LONGLONG naxis2, int *array, 1303 LONGLONG naxis1, LONGLONG naxis2, float *array, 1306 LONGLONG naxis1, LONGLONG naxis2, double *array, 1624 LONGLONG naxis2, short *array, int *status); 1628 LONGLONG naxis2, long *array, int *status); 1632 LONGLONG naxis2, int *array, int *status); 1634 LONGLONG naxis2, float *array, int *status); 1636 LONGLONG naxis2, double *array, int *status); [all …]
|
H A D | putcoluj.c | 107 ffp3duj(fptr, group, ncols, naxis2, naxis1, naxis2, 1, array, status); in ffp2duj() 152 if (ncols == naxis1 && nrows == naxis2) /* arrays have same size? */ in ffp3duj() 155 ffpcluj(fptr, 2, tablerow, 1L, naxis1 * naxis2 * naxis3, array, status); in ffp3duj() 159 if (ncols < naxis1 || nrows < naxis2) in ffp3duj() 171 for (ii = 0; ii < naxis2; ii++) in ffp3duj() 179 narray += (nrows - naxis2) * ncols; in ffp3duj() 1088 ffp3dujj(fptr, group, ncols, naxis2, naxis1, naxis2, 1, array, status); in ffp2dujj() 1129 if (ncols == naxis1 && nrows == naxis2) /* arrays have same size? */ in ffp3dujj() 1136 if (ncols < naxis1 || nrows < naxis2) in ffp3dujj() 1148 for (ii = 0; ii < naxis2; ii++) in ffp3dujj() [all …]
|
H A D | putcolj.c | 108 ffp3dj(fptr, group, ncols, naxis2, naxis1, naxis2, 1, array, status); in ffp2dj() 153 if (ncols == naxis1 && nrows == naxis2) /* arrays have same size? */ in ffp3dj() 156 ffpclj(fptr, 2, tablerow, 1L, naxis1 * naxis2 * naxis3, array, status); in ffp3dj() 160 if (ncols < naxis1 || nrows < naxis2) in ffp3dj() 172 for (ii = 0; ii < naxis2; ii++) in ffp3dj() 180 narray += (nrows - naxis2) * ncols; in ffp3dj() 1114 ffp3djj(fptr, group, ncols, naxis2, naxis1, naxis2, 1, array, status); in ffp2djj() 1154 if (ncols == naxis1 && nrows == naxis2) /* arrays have same size? */ in ffp3djj() 1161 if (ncols < naxis1 || nrows < naxis2) in ffp3djj() 1173 for (ii = 0; ii < naxis2; ii++) in ffp3djj() [all …]
|
H A D | edithdu.c | 590 LONGLONG naxis2, /* I - number of rows in the table */ in ffitab() argument 625 ffcrtb(fptr, ASCII_TBL, naxis2, tfields, ttype, tform, tunit, in ffitab() 632 else if (naxis2 < 0) in ffitab() 674 datasize = (LONGLONG)rowlen * naxis2; /* size of table in bytes */ in ffitab() 713 ffphtb(fptr, rowlen, naxis2, tfields, ttype, tbcol, tform, tunit, in ffitab() 726 LONGLONG naxis2, /* I - number of rows in the table */ in ffibin() argument 762 ffcrtb(fptr, BINARY_TBL, naxis2, tfields, ttype, tform, tunit, in ffibin() 767 if (naxis2 < 0) in ffibin() 804 datasize = ((LONGLONG)naxis1 * naxis2) + pcount; /* size of table in bytes */ in ffibin() 840 ffphbn(fptr, naxis2, tfields, ttype, tform, tunit, extnm, pcount, in ffibin()
|