Branch Coverage

CFITSIO.xs
Criterion Covered Total %
branch 249 3196 7.7


line true false branch
38 0 0 if (strEQ(name, "ANGLE_TOO_BIG"))
44 0 0 if (strEQ(name, "ANY_HDU"))
50 0 0 if (strEQ(name, "ARRAY_TOO_BIG"))
56 0 0 if (strEQ(name, "ASCII_TBL"))
64 0 0 if (strEQ(name, "BAD_ATABLE_FORMAT"))
70 0 0 if (strEQ(name, "BAD_BITPIX"))
76 0 0 if (strEQ(name, "BAD_BTABLE_FORMAT"))
82 0 0 if (strEQ(name, "BAD_C2D"))
88 0 0 if (strEQ(name, "BAD_C2F"))
94 0 0 if (strEQ(name, "BAD_C2I"))
100 0 0 if (strEQ(name, "BAD_COL_NUM"))
106 0 0 if (strEQ(name, "BAD_DATATYPE"))
112 0 0 if (strEQ(name, "BAD_DATA_FILL"))
118 0 0 if (strEQ(name, "BAD_DATE"))
124 0 0 if (strEQ(name, "BAD_DECIM"))
130 0 0 if (strEQ(name, "BAD_DIMEN"))
136 0 0 if (strEQ(name, "BAD_DOUBLEKEY"))
142 0 0 if (strEQ(name, "BAD_ELEM_NUM"))
148 0 0 if (strEQ(name, "BAD_F2C"))
154 0 0 if (strEQ(name, "BAD_FILEPTR"))
160 0 0 if (strEQ(name, "BAD_FLOATKEY"))
166 0 0 if (strEQ(name, "BAD_GCOUNT"))
172 0 0 if (strEQ(name, "BAD_GROUP_ID"))
178 0 0 if (strEQ(name, "BAD_HDU_NUM"))
184 0 0 if (strEQ(name, "BAD_HEADER_FILL"))
190 0 0 if (strEQ(name, "BAD_I2C"))
196 0 0 if (strEQ(name, "BAD_INTKEY"))
202 0 0 if (strEQ(name, "BAD_KEYCHAR"))
208 0 0 if (strEQ(name, "BAD_LOGICALKEY"))
214 0 0 if (strEQ(name, "BAD_NAXES"))
220 0 0 if (strEQ(name, "BAD_NAXIS"))
226 0 0 if (strEQ(name, "BAD_OPTION"))
232 0 0 if (strEQ(name, "BAD_ORDER"))
238 0 0 if (strEQ(name, "BAD_PCOUNT"))
244 0 0 if (strEQ(name, "BAD_PIX_NUM"))
250 0 0 if (strEQ(name, "BAD_ROW_NUM"))
256 0 0 if (strEQ(name, "BAD_ROW_WIDTH"))
262 0 0 if (strEQ(name, "BAD_SIMPLE"))
268 0 0 if (strEQ(name, "BAD_TBCOL"))
274 0 0 if (strEQ(name, "BAD_TDIM"))
280 0 0 if (strEQ(name, "BAD_TFIELDS"))
286 0 0 if (strEQ(name, "BAD_TFORM"))
292 0 0 if (strEQ(name, "BAD_TFORM_DTYPE"))
298 0 0 if (strEQ(name, "BAD_URL_PREFIX"))
304 0 0 if (strEQ(name, "BAD_WCS_PROJ"))
310 0 0 if (strEQ(name, "BAD_WCS_VAL"))
316 0 0 if (strEQ(name, "BINARY_TBL"))
322 0 0 if (strEQ(name, "BYTE_IMG"))
330 0 1 if (strEQ(name, "CASEINSEN"))
336 0 1 if (strEQ(name, "CASESEN"))
342 0 1 if (strEQ(name, "CFITSIO_MAJOR"))
348 0 1 if (strEQ(name, "CFITSIO_MINOR"))
354 1 0 if (strEQ(name, "COL_NOT_FOUND"))
360 0 0 if (strEQ(name, "COL_NOT_UNIQUE"))
366 0 0 if (strEQ(name, "COL_TOO_WIDE"))
374 0 0 if (strEQ(name, "DOUBLENULLVALUE"))
380 0 0 if (strEQ(name, "DOUBLE_IMG"))
386 0 0 if (strEQ(name, "DRIVER_INIT_FAILED"))
394 0 0 if (strEQ(name, "END_JUNK"))
400 0 0 if (strEQ(name, "END_OF_FILE"))
408 0 0 if (strEQ(name, "FALSE"))
414 0 0 if (strEQ(name, "FILE_NOT_CLOSED"))
420 0 0 if (strEQ(name, "FILE_NOT_CREATED"))
426 0 0 if (strEQ(name, "FILE_NOT_OPENED"))
432 0 0 if (strEQ(name, "FLEN_CARD"))
438 0 0 if (strEQ(name, "FLEN_COMMENT"))
444 0 0 if (strEQ(name, "FLEN_ERRMSG"))
450 0 0 if (strEQ(name, "FLEN_FILENAME"))
456 0 0 if (strEQ(name, "FLEN_KEYWORD"))
462 0 0 if (strEQ(name, "FLEN_STATUS"))
468 0 0 if (strEQ(name, "FLEN_VALUE"))
474 0 0 if (strEQ(name, "FLOATNULLVALUE"))
480 0 0 if (strEQ(name, "FLOAT_IMG"))
488 0 0 if (strEQ(name, "GROUP_NOT_FOUND"))
494 0 0 if (strEQ(name, "GT_ID_ALL"))
500 0 0 if (strEQ(name, "GT_ID_ALL_URI"))
506 0 0 if (strEQ(name, "GT_ID_POS"))
512 0 0 if (strEQ(name, "GT_ID_POS_URI"))
518 0 0 if (strEQ(name, "GT_ID_REF"))
524 0 0 if (strEQ(name, "GT_ID_REF_URI"))
530 0 0 if (strEQ(name, "GZIP_1"))
538 0 0 if (strEQ(name, "HDU_ALREADY_MEMBER"))
544 0 0 if (strEQ(name, "HDU_ALREADY_TRACKED"))
550 0 0 if (strEQ(name, "HEADER_NOT_EMPTY"))
558 0 0 if (strEQ(name, "IDENTICAL_POINTERS"))
564 0 0 if (strEQ(name, "IMAGE_HDU"))
570 0 0 if (strEQ(name, "InputCol"))
576 0 0 if (strEQ(name, "InputOutputCol"))
586 0 0 if (strEQ(name, "KEY_NO_EXIST"))
592 0 0 if (strEQ(name, "KEY_OUT_BOUNDS"))
600 0 0 if (strEQ(name, "LONG_IMG"))
606 0 0 if (strEQ(name, "LONGLONG_IMG"))
614 0 0 if (strEQ(name, "MAXHDU"))
620 0 0 if (strEQ(name, "MEMBER_NOT_FOUND"))
626 0 0 if (strEQ(name, "MEMORY_ALLOCATION"))
634 0 1 if (strEQ(name, "NEG_AXIS"))
640 0 1 if (strEQ(name, "NEG_BYTES"))
646 0 1 if (strEQ(name, "NEG_FILE_POS"))
652 0 1 if (strEQ(name, "NEG_ROWS"))
658 0 1 if (strEQ(name, "NEG_WIDTH"))
664 0 1 if (strEQ(name, "NOT_ASCII_COL"))
670 0 1 if (strEQ(name, "NOT_ATABLE"))
676 0 1 if (strEQ(name, "NOT_BTABLE"))
682 0 1 if (strEQ(name, "NOT_GROUP_TABLE"))
688 0 1 if (strEQ(name, "NOT_IMAGE"))
694 0 1 if (strEQ(name, "NOT_LOGICAL_COL"))
700 0 1 if (strEQ(name, "NOT_POS_INT"))
706 0 1 if (strEQ(name, "NOT_TABLE"))
712 0 1 if (strEQ(name, "NOT_VARI_LEN"))
718 0 1 if (strEQ(name, "NO_BITPIX"))
724 0 1 if (strEQ(name, "NO_END"))
730 0 1 if (strEQ(name, "NO_GCOUNT"))
736 0 1 if (strEQ(name, "NO_MATCHING_DRIVER"))
742 0 1 if (strEQ(name, "NO_NAXES"))
748 0 1 if (strEQ(name, "NO_NAXIS"))
754 0 1 if (strEQ(name, "NO_NULL"))
760 0 1 if (strEQ(name, "NO_PCOUNT"))
766 0 1 if (strEQ(name, "NO_QUOTE"))
772 0 1 if (strEQ(name, "NO_SIMPLE"))
778 0 1 if (strEQ(name, "NO_TBCOL"))
784 0 1 if (strEQ(name, "NO_TFIELDS"))
790 0 1 if (strEQ(name, "NO_TFORM"))
796 0 1 if (strEQ(name, "NO_WCS_KEY"))
802 0 1 if (strEQ(name, "NO_XTENSION"))
808 0 1 if (strEQ(name, "NULL_INPUT_PTR"))
814 1 0 if (strEQ(name, "NUM_OVERFLOW"))
822 0 0 if (strEQ(name, "OPT_CMT_MBR"))
828 0 0 if (strEQ(name, "OPT_CMT_MBR_DEL"))
834 0 0 if (strEQ(name, "OPT_GCP_ALL"))
840 0 0 if (strEQ(name, "OPT_GCP_GPT"))
846 0 0 if (strEQ(name, "OPT_GCP_MBR"))
852 0 0 if (strEQ(name, "OPT_MCP_ADD"))
858 0 0 if (strEQ(name, "OPT_MCP_MOV"))
864 0 0 if (strEQ(name, "OPT_MCP_NADD"))
870 0 0 if (strEQ(name, "OPT_MCP_REPL"))
876 0 0 if (strEQ(name, "OPT_MRG_COPY"))
882 0 0 if (strEQ(name, "OPT_MRG_MOV"))
888 0 0 if (strEQ(name, "OPT_RM_ALL"))
894 0 0 if (strEQ(name, "OPT_RM_ENTRY"))
900 0 0 if (strEQ(name, "OPT_RM_GPT"))
906 0 0 if (strEQ(name, "OPT_RM_MBR"))
912 0 0 if (strEQ(name, "OVERFLOW_ERR"))
918 0 0 if (strEQ(name, "OutputCol"))
926 0 0 if (strEQ(name, "PARSE_BAD_COL"))
932 0 0 if (strEQ(name, "PARSE_BAD_OUTPUT"))
938 0 0 if (strEQ(name, "PARSE_BAD_TYPE"))
944 0 0 if (strEQ(name, "PARSE_LRG_VECTOR"))
950 0 0 if (strEQ(name, "PARSE_NO_OUTPUT"))
956 0 0 if (strEQ(name, "PARSE_SYNTAX_ERR"))
962 0 0 if (strEQ(name, "PLIO_1"))
972 0 1 if (strEQ(name, "READONLY"))
978 0 1 if (strEQ(name, "READONLY_FILE"))
984 1 0 if (strEQ(name, "READWRITE"))
990 0 0 if (strEQ(name, "READ_ERROR"))
996 0 0 if (strEQ(name, "RICE_1"))
1004 0 0 if (strEQ(name, "SAME_FILE"))
1010 0 0 if (strEQ(name, "SEEK_ERROR"))
1016 0 0 if (strEQ(name, "SHORT_IMG"))
1024 0 9 if (strEQ(name, "TBIT"))
1030 1 8 if (strEQ(name, "TBYTE"))
1036 0 8 if (strEQ(name, "TSBYTE"))
1042 0 8 if (strEQ(name, "TCOMPLEX"))
1048 0 8 if (strEQ(name, "TDBLCOMPLEX"))
1054 1 7 if (strEQ(name, "TDOUBLE"))
1060 1 6 if (strEQ(name, "TFLOAT"))
1066 1 5 if (strEQ(name, "TINT"))
1072 1 4 if (strEQ(name, "TLOGICAL"))
1078 1 3 if (strEQ(name, "TLONG"))
1084 0 3 if (strEQ(name, "TLONGLONG"))
1090 0 3 if (strEQ(name, "TOO_MANY_DRIVERS"))
1096 0 3 if (strEQ(name, "TOO_MANY_FILES"))
1102 0 3 if (strEQ(name, "TOO_MANY_HDUS_TRACKED"))
1108 1 2 if (strEQ(name, "TRUE"))
1114 1 1 if (strEQ(name, "TSHORT"))
1120 1 0 if (strEQ(name, "TSTRING"))
1126 0 0 if (strEQ(name, "TUINT"))
1132 0 0 if (strEQ(name, "TULONG"))
1138 0 0 if (strEQ(name, "TUSHORT"))
1144 0 0 if (strEQ(name, "TYP_STRUC_KEY"))
1150 0 0 if (strEQ(name, "TYP_CMPRS_KEY"))
1156 0 0 if (strEQ(name, "TYP_SCAL_KEY"))
1162 0 0 if (strEQ(name, "TYP_NULL_KEY"))
1168 0 0 if (strEQ(name, "TYP_DIM_KEY"))
1174 0 0 if (strEQ(name, "TYP_RANG_KEY"))
1180 0 0 if (strEQ(name, "TYP_UNIT_KEY"))
1186 0 0 if (strEQ(name, "TYP_DISP_KEY"))
1192 0 0 if (strEQ(name, "TYP_HDUID_KEY"))
1198 0 0 if (strEQ(name, "TYP_CKSUM_KEY"))
1204 0 0 if (strEQ(name, "TYP_WCS_KEY"))
1210 0 0 if (strEQ(name, "TYP_REFSYS_KEY"))
1216 0 0 if (strEQ(name, "TYP_COMM_KEY"))
1222 0 0 if (strEQ(name, "TYP_CONT_KEY"))
1228 0 0 if (strEQ(name, "TYP_USER_KEY"))
1236 0 0 if (strEQ(name, "ULONG_IMG"))
1242 0 0 if (strEQ(name, "UNKNOWN_EXT"))
1248 0 0 if (strEQ(name, "UNKNOWN_REC"))
1254 0 0 if (strEQ(name, "URL_PARSE_ERROR"))
1260 0 0 if (strEQ(name, "USE_MEM_BUFF"))
1266 0 0 if (strEQ(name, "USHORT_IMG"))
1274 0 0 if (strEQ(name, "VALIDSTRUC"))
1280 0 0 if (strEQ(name, "VALUE_UNDEFINED"))
1288 0 0 if (strEQ(name, "WCS_ERROR"))
1294 0 0 if (strEQ(name, "WRITE_ERROR"))
1306 0 0 if (strEQ(name, "ZERO_SCALE"))
1351 4 3 RETVAL = PerlyUnpacking( items > 0 ? SvIV((ST(0))) : -1 );
4 0 RETVAL = PerlyUnpacking( items > 0 ? SvIV((ST(0))) : -1 );
1361 3 4 if( items > 1 )
1362 3 0 fptr->perlyunpacking = SvIV((ST(1)));
1373 0 3 if( items > 1 )
1374 0 0 fptr->is_open = SvIV((ST(1)));
1385 2 2 RETVAL = PERLYUNPACKING(fptr->perlyunpacking);
1397 1 12 if ( fptr->is_open )
1400 0 1 if ( status )
1424 0 0 if (ST(1)==&PL_sv_undef)
1426 0 0 else if (sv_derived_from(ST(1),"fitsfilePtr"))
1427 0 0 mfptr = fitsfileSV(ST(1));
1446 0 0 if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),typecode);
1447 0 0 if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),width);
1448 0 0 if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),decimals);
1464 0 0 if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),typecode);
1465 0 0 if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),repeat);
1466 0 0 if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),width);
1482 0 0 if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),typecode);
1483 0 0 if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),repeat);
1484 0 0 if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),width);
1505 0 0 RETVAL=ffcrow(
1770 0 0 if (ffinit(&(fptr->fptr),name,&status))
1788 0 2 if (RETVAL)
1805 0 0 if (RETVAL)
1899 0 0 if (fftplt(&(fptr->fptr),filename,tpltfile,&status))
1917 0 0 if (RETVAL)
1963 0 0 if (ST(4)!=&PL_sv_undef) { /* caller wants naxes set */
1972 0 0 if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),naxis);
1973 0 0 if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),naxes,naxis,TLONG,fptr->perlyunpacking);
1990 0 0 if (ST(4)!=&PL_sv_undef) { /* caller wants naxes set */
1999 0 0 if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),naxis);
2000 0 0 if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),naxes,naxis,TLONGLONG,fptr->perlyunpacking);
2051 0 0 if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),hdutype);
2223 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
2224 0 0 SvGROW(ST(5),nrows*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(5),nrows*sizeof_datatype(TLOGICAL));
2225 0 0 RETVAL=fffrow(fptr->fptr,expr,firstrow,nrows,&n_good_rows,(logical*)SvPV(ST(5),PL_na),&status);
2232 0 0 if (ST(4) != &PL_sv_undef) sv_setiv(ST(4), n_good_rows); /* value-added */
2311 5 0 ttype = (ST(2) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL;
2312 5 0 tunit = (ST(4) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL;
2313 5 0 tform = (ST(5) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL;
2314 5 0 nulstr= (ST(8) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL;
2315 5 0 tdisp = (ST(9) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL;
2317 5 0 if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),tbcol);
2318 5 0 if (ST(6) != &PL_sv_undef) sv_setnv(ST(6),scale);
2319 5 0 if (ST(7) != &PL_sv_undef) sv_setnv(ST(7),zero);
2346 10 0 ttype = (ST(2) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL;
2347 10 0 tunit = (ST(3) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL;
2348 10 0 dtype = (ST(4) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL;
2349 10 0 tdisp = (ST(9) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL;
2351 10 0 if (ST(5) != &PL_sv_undef) sv_setiv(ST(5),repeat);
2352 10 0 if (ST(6) != &PL_sv_undef) sv_setnv(ST(6),scale);
2353 10 0 if (ST(7) != &PL_sv_undef) sv_setnv(ST(7),zero);
2354 10 0 if (ST(8) != &PL_sv_undef) sv_setiv(ST(8),nulval);
2380 0 0 ttype = (ST(2) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL;
2381 0 0 tunit = (ST(3) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL;
2382 0 0 dtype = (ST(4) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL;
2383 0 0 tdisp = (ST(9) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL;
2385 0 0 if (ST(5) != &PL_sv_undef) sv_setiv(ST(5),repeat);
2386 0 0 if (ST(6) != &PL_sv_undef) sv_setnv(ST(6),scale);
2387 0 0 if (ST(7) != &PL_sv_undef) sv_setnv(ST(7),zero);
2388 0 0 if (ST(8) != &PL_sv_undef) sv_setiv(ST(8),nulval);
2408 0 0 if (ST(1) != &PL_sv_undef) sv_setiv(ST(1), datasum); /* value-added */
2409 0 0 if (ST(2) != &PL_sv_undef) sv_setiv(ST(2), hdusum); /* value-added */
2428 16 0 if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),colnum); /* value-added */
2446 2 0 if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),colnum);
2464 15 0 if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),typecode);
2465 15 0 if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),repeat);
2466 15 0 if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),width);
2484 0 0 if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),typecode);
2485 0 0 if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),repeat);
2486 0 0 if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),width);
2504 0 0 if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),typecode);
2505 0 0 if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),repeat);
2506 0 0 if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),width);
2524 0 0 if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),typecode);
2525 0 0 if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),repeat);
2526 0 0 if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),width);
2565 2 0 if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),keysexist); /* value-added */
2566 2 0 if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),keynum); /* value-added */
2582 2 0 if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),keysexist); /* value-added */
2583 2 0 if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),morekeys); /* value-added */
2597 5 0 if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),hdunum);
2625 0 0 if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),headstart);
2626 0 0 if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),datastart);
2627 0 0 if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),dataend);
2644 0 0 if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),headstart);
2645 0 0 if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),datastart);
2646 0 0 if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),dataend);
2663 0 0 if (ST(1) != &PL_sv_undef) sv_setuv(ST(1),headstart);
2664 0 0 if (ST(2) != &PL_sv_undef) sv_setuv(ST(2),datastart);
2665 0 0 if (ST(3) != &PL_sv_undef) sv_setuv(ST(3),dataend);
2682 0 1 if (ST(2) != &PL_sv_undef)
2761 0 0 if (RETVAL <= 0) {
2783 0 0 if (RETVAL <= 0) {
2898 0 0 if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),timeref);
2918 0 0 if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),rowlen); /* value-added */
2934 0 0 if (ST(2)!=&PL_sv_undef) unpack1D(ST(2),naxes,ndim,TLONG,fptr->perlyunpacking);
2946 0 1 if (ST(0) != &PL_sv_undef) sv_setnv(ST(0),version); /* value-added */
2962 0 0 if (ST(2)!=&PL_sv_undef) unpackScalar(ST(2), header, TSTRING);
2963 0 0 if (ST(3)!=&PL_sv_undef) unpackScalar(ST(3), &nkeys, TINT);
2981 0 0 if (ST(2)!=&PL_sv_undef) unpackScalar(ST(2), header, TSTRING);
2982 0 0 if (ST(3)!=&PL_sv_undef) unpackScalar(ST(3), &nkeys, TINT);
3593 0 1 if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),hdutype);
3622 0 2 if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),hdutype);
3645 0 0 if (!filename) /* undef passed */
3648 0 0 if (ffopen(&(fptr->fptr),filename,iomode,&status))
3664 0 12 if (!filename) /* undef passed */
3668 1 11 if (RETVAL)
3684 0 0 if (!filename) /* undef passed */
3688 0 0 if (RETVAL)
3704 0 0 if (!filename) /* undef passed */
3708 0 0 if (RETVAL)
3724 0 0 if (!filename) /* undef passed */
3728 0 0 if (RETVAL)
3744 0 0 if (!filename) /* undef passed */
3748 0 0 if (RETVAL)
3766 0 0 if (!filename) /* undef passed */
3770 0 0 if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),hdutype);
3771 0 0 if (RETVAL)
3790 0 0 if (RETVAL)
3809 0 0 if (RETVAL)
3933 0 0 if (ST(4)!=&PL_sv_undef || ST(5)!=&PL_sv_undef) {
0 0 if (ST(4)!=&PL_sv_undef || ST(5)!=&PL_sv_undef) {
3944 0 0 if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),numranges);
3945 0 0 if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),rangemin,numranges,TLONG,-1);
3946 0 0 if (ST(5)!=&PL_sv_undef) unpack1D(ST(5),rangemax,numranges,TLONG,-1);
3963 0 0 if (ST(4)!=&PL_sv_undef || ST(5)!=&PL_sv_undef) {
0 0 if (ST(4)!=&PL_sv_undef || ST(5)!=&PL_sv_undef) {
3974 0 0 if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),numranges);
3975 0 0 if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),rangemin,numranges,TLONGLONG,-1);
3976 0 0 if (ST(5)!=&PL_sv_undef) unpack1D(ST(5),rangemax,numranges,TLONGLONG,-1);
4007 0 0 if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),keytype);
4034 0 0 for (ii=0; ii
4052 0 0 if (ST(1) != &PL_sv_undef) sv_setpv(ST(1),outrec);
4053 0 0 if (ST(8) != &PL_sv_undef) sv_setiv(ST(8),pat_num);
4054 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),i);
4055 0 0 if (ST(10) != &PL_sv_undef) sv_setiv(ST(10),j);
4056 0 0 if (ST(11) != &PL_sv_undef) sv_setiv(ST(11),m);
4057 0 0 if (ST(12) != &PL_sv_undef) sv_setiv(ST(12),n);
4082 0 0 for (ii=0; ii
4157 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4158 0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TBYTE));
0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TBYTE));
4159 0 0 RETVAL=ffg2db(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(byte*)SvPV(ST(6),PL_na),&anynul,&status);
4167 0 0 if (ST(7)!=&PL_sv_undef) sv_setiv(ST(7),anynul);
4189 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4190 0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TSBYTE));
0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TSBYTE));
4191 0 0 RETVAL=ffg2dsb(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(signed char*)SvPV(ST(6),PL_na),&anynul,&status);
4199 0 0 if (ST(7)!=&PL_sv_undef) sv_setiv(ST(7),anynul);
4221 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4222 0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TUSHORT));
0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TUSHORT));
4223 0 0 RETVAL=ffg2dui(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(unsigned short*)SvPV(ST(6),PL_na),&anynul,&status);
4231 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
4253 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4254 0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TSHORT));
0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TSHORT));
4255 0 0 RETVAL=ffg2di(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(short*)SvPV(ST(6),PL_na),&anynul,&status);
4263 0 0 if (ST(7)!=&PL_sv_undef) sv_setiv(ST(7),anynul);
4285 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4286 0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TUINT));
0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TUINT));
4287 0 0 RETVAL=ffg2duk(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(unsigned int*)SvPV(ST(6),PL_na),&anynul,&status);
4295 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
4317 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4318 0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TINT));
0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TINT));
4319 0 0 RETVAL=ffg2dk(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(int*)SvPV(ST(6),PL_na),&anynul,&status);
4327 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
4349 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4350 0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TULONG));
0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TULONG));
4351 0 0 RETVAL=ffg2duj(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(unsigned long*)SvPV(ST(6),PL_na),&anynul,&status);
4359 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
4381 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4382 0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TLONG));
0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TLONG));
4383 0 0 RETVAL=ffg2dj(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(long*)SvPV(ST(6),PL_na),&anynul,&status);
4391 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
4413 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4414 0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TLONGLONG));
0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TLONGLONG));
4415 0 0 RETVAL=ffg2djj(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(LONGLONG*)SvPV(ST(6),PL_na),&anynul,&status);
4423 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
4445 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4446 0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TFLOAT));
0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TFLOAT));
4447 0 0 RETVAL=ffg2de(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(float*)SvPV(ST(6),PL_na),&anynul,&status);
4455 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
4477 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4478 0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TDOUBLE));
0 0 SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TDOUBLE));
4479 0 0 RETVAL=ffg2dd(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(double*)SvPV(ST(6),PL_na),&anynul,&status);
4487 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
4511 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4512 0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TBYTE));
0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TBYTE));
4513 0 0 RETVAL=ffg3db(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(byte*)SvPV(ST(8),PL_na),&anynul,&status);
4521 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
4545 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4546 0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TSBYTE));
0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TSBYTE));
4547 0 0 RETVAL=ffg3dsb(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(signed char*)SvPV(ST(8),PL_na),&anynul,&status);
4555 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
4579 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4580 0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TUSHORT));
0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TUSHORT));
4581 0 0 RETVAL=ffg3dui(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(unsigned short*)SvPV(ST(8),PL_na),&anynul,&status);
4589 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
4613 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4614 0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TSHORT));
0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TSHORT));
4615 0 0 RETVAL=ffg3di(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(short*)SvPV(ST(8),PL_na),&anynul,&status);
4623 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
4647 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4648 0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TUINT));
0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TUINT));
4649 0 0 RETVAL=ffg3duk(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(unsigned int*)SvPV(ST(8),PL_na),&anynul,&status);
4657 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
4681 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4682 0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TINT));
0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TINT));
4683 0 0 RETVAL=ffg3dk(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(int*)SvPV(ST(8),PL_na),&anynul,&status);
4691 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
4715 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4716 0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TULONG));
0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TULONG));
4717 0 0 RETVAL=ffg3duj(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(unsigned long*)SvPV(ST(8),PL_na),&anynul,&status);
4725 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
4749 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4750 0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TLONG));
0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TLONG));
4751 0 0 RETVAL=ffg3dj(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(long*)SvPV(ST(8),PL_na),&anynul,&status);
4759 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
4783 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4784 0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TLONGLONG));
0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TLONGLONG));
4785 0 0 RETVAL=ffg3djj(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(LONGLONG*)SvPV(ST(8),PL_na),&anynul,&status);
4793 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
4817 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4818 0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TFLOAT));
0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TFLOAT));
4819 0 0 RETVAL=ffg3de(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(float*)SvPV(ST(8),PL_na),&anynul,&status);
4827 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
4851 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
4852 0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TDOUBLE));
0 0 SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TDOUBLE));
4853 0 0 RETVAL=ffg3dd(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(double*)SvPV(ST(8),PL_na),&anynul,&status);
4861 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
4899 1 0 tbcol = (ST(5)!=&PL_sv_undef) ? get_mortalspace(tfields,TLONG) : NULL;
4900 1 0 extname = (ST(8)!=&PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL;
4901 1 0 if (ST(4)!=&PL_sv_undef) {
4903 5 1 for (i=0; i
4906 1 0 if (ST(6)!=&PL_sv_undef) {
4908 5 1 for (i=0; i
4911 1 0 if (ST(7)!=&PL_sv_undef) {
4913 5 1 for (i=0; i
4918 1 0 if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),rowlen);
4919 1 0 if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),nrows);
4920 1 0 if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),tfields);
4921 1 0 if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),ttype,tfields,TSTRING,fptr->perlyunpacking);
4922 1 0 if (ST(5)!=&PL_sv_undef) unpack1D(ST(5),tbcol,tfields,TLONG,fptr->perlyunpacking);
4923 1 0 if (ST(6)!=&PL_sv_undef) unpack1D(ST(6),tform,tfields,TSTRING,fptr->perlyunpacking);
4924 1 0 if (ST(7)!=&PL_sv_undef) unpack1D(ST(7),tunit,tfields,TSTRING,fptr->perlyunpacking);
4925 1 0 if (ST(8)!=&PL_sv_undef) sv_setpv(ST(8),extname);
4950 0 0 tbcol = (ST(5)!=&PL_sv_undef) ? get_mortalspace(tfields,TLONGLONG) : NULL;
4951 0 0 extname = (ST(8)!=&PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL;
4952 0 0 if (ST(4)!=&PL_sv_undef) {
4954 0 0 for (i=0; i
4957 0 0 if (ST(6)!=&PL_sv_undef) {
4959 0 0 for (i=0; i
4962 0 0 if (ST(7)!=&PL_sv_undef) {
4964 0 0 for (i=0; i
4969 0 0 if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),rowlen);
4970 0 0 if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),nrows);
4971 0 0 if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),tfields);
4972 0 0 if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),ttype,tfields,TSTRING,fptr->perlyunpacking);
4973 0 0 if (ST(5)!=&PL_sv_undef) unpack1D(ST(5),tbcol,tfields,TLONGLONG,fptr->perlyunpacking);
4974 0 0 if (ST(6)!=&PL_sv_undef) unpack1D(ST(6),tform,tfields,TSTRING,fptr->perlyunpacking);
4975 0 0 if (ST(7)!=&PL_sv_undef) unpack1D(ST(7),tunit,tfields,TSTRING,fptr->perlyunpacking);
4976 0 0 if (ST(8)!=&PL_sv_undef) sv_setpv(ST(8),extname);
4999 1 0 extname = (ST(7)!=&PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL;
5000 1 0 if (ST(4) != &PL_sv_undef) {
5002 10 1 for (i=0; i
5005 1 0 if (ST(5) != &PL_sv_undef) {
5007 10 1 for (i=0; i
5010 1 0 if (ST(6) != &PL_sv_undef) {
5012 10 1 for (i=0; i
5016 1 0 if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),nrows);
5017 1 0 if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),tfields);
5018 1 0 if (ST(3)!=&PL_sv_undef) unpack1D(ST(3),ttype,tfields,TSTRING,fptr->perlyunpacking);
5019 1 0 if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),tform,tfields,TSTRING,fptr->perlyunpacking);
5020 1 0 if (ST(5)!=&PL_sv_undef) unpack1D(ST(5),tunit,tfields,TSTRING,fptr->perlyunpacking);
5021 1 0 if (ST(6)!=&PL_sv_undef) sv_setpv(ST(6),extname);
5022 1 0 if (ST(7)!=&PL_sv_undef) sv_setiv(ST(7),pcount);
5045 0 0 extname = (ST(7)!=&PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL;
5046 0 0 if (ST(4) != &PL_sv_undef) {
5048 0 0 for (i=0; i
5051 0 0 if (ST(5) != &PL_sv_undef) {
5053 0 0 for (i=0; i
5056 0 0 if (ST(6) != &PL_sv_undef) {
5058 0 0 for (i=0; i
5062 0 0 if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),nrows);
5063 0 0 if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),tfields);
5064 0 0 if (ST(3)!=&PL_sv_undef) unpack1D(ST(3),ttype,tfields,TSTRING,fptr->perlyunpacking);
5065 0 0 if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),tform,tfields,TSTRING,fptr->perlyunpacking);
5066 0 0 if (ST(5)!=&PL_sv_undef) unpack1D(ST(5),tunit,tfields,TSTRING,fptr->perlyunpacking);
5067 0 0 if (ST(6)!=&PL_sv_undef) sv_setpv(ST(6),extname);
5068 0 0 if (ST(7)!=&PL_sv_undef) sv_setiv(ST(7),pcount);
5111 0 0 if (datatype == TBIT)
5113 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking) && datatype != TSTRING) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking) && datatype != TSTRING) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking) && datatype != TSTRING) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking) && datatype != TSTRING) {
5114 0 0 SvGROW(ST(7),nelements*sizeof_datatype(storage_datatype));
0 0 SvGROW(ST(7),nelements*sizeof_datatype(storage_datatype));
5115 0 0 RETVAL=ffgcv(fptr->fptr,datatype,colnum,firstrow,firstelem,nelements,pack1D(nulval,storage_datatype),(void*)SvPV(ST(7),PL_na),&anynul,&status);
5119 0 0 if (datatype == TSTRING) {
5121 0 0 for (i=0;i
5127 0 0 if (ST(8) != &PL_sv_undef) sv_setiv(ST(8),anynul);
5145 1 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 1 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5146 0 0 SvGROW(ST(5),nbit*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(5),nbit*sizeof_datatype(TLOGICAL));
5147 0 0 RETVAL = ffgcx(fptr->fptr,colnum,frow,fbit,nbit,(logical*)SvPV(ST(5),PL_na),&status);
5172 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5173 0 0 SvGROW(ST(6),nrows*sizeof_datatype(TUSHORT));
0 0 SvGROW(ST(6),nrows*sizeof_datatype(TUSHORT));
5174 0 0 RETVAL = ffgcxui(fptr->fptr,colnum,frow,nrows,fbit,nbits,(unsigned short*)SvPV(ST(6),PL_na),&status);
5199 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5200 0 0 SvGROW(ST(6),nrows*sizeof_datatype(TUINT));
0 0 SvGROW(ST(6),nrows*sizeof_datatype(TUINT));
5201 0 0 RETVAL = ffgcxuk(fptr->fptr,colnum,frow,nrows,fbit,nbits,(unsigned int*)SvPV(ST(6),PL_na),&status);
5232 83 7 for (i=0;i
5236 7 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
5256 1 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 1 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5257 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
5258 0 0 RETVAL=ffgcvl(fptr->fptr,cnum,frow,felem,nelem,nulval,(logical*)SvPV(ST(6),PL_na),&anynul,&status);
5265 1 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
5285 7 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 7 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5286 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TBYTE));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TBYTE));
5287 0 0 RETVAL=ffgcvb(fptr->fptr,cnum,frow,felem,nelem,nulval,(byte*)SvPV(ST(6),PL_na),&anynul,&status);
5294 7 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
5314 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5315 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TSBYTE));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TSBYTE));
5316 0 0 RETVAL=ffgcvsb(fptr->fptr,cnum,frow,felem,nelem,nulval,(signed char*)SvPV(ST(6),PL_na),&anynul,&status);
5323 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
5343 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5344 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TUSHORT));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TUSHORT));
5345 0 0 RETVAL=ffgcvui(fptr->fptr,cnum,frow,felem,nelem,nulval,(unsigned short*)SvPV(ST(6),PL_na),&anynul,&status);
5352 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
5372 6 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 6 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5373 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TSHORT));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TSHORT));
5374 0 0 RETVAL=ffgcvi(fptr->fptr,cnum,frow,felem,nelem,nulval,(short*)SvPV(ST(6),PL_na),&anynul,&status);
5381 6 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
5401 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5402 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TUINT));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TUINT));
5403 0 0 RETVAL=ffgcvuk(fptr->fptr,cnum,frow,felem,nelem,nulval,(unsigned int*)SvPV(ST(6),PL_na),&anynul,&status);
5410 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
5430 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5431 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TINT));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TINT));
5432 0 0 RETVAL=ffgcvk(fptr->fptr,cnum,frow,felem,nelem,nulval,(int*)SvPV(ST(6),PL_na),&anynul,&status);
5439 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
5459 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5460 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TULONG));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TULONG));
5461 0 0 RETVAL=ffgcvuj(fptr->fptr,cnum,frow,felem,nelem,nulval,(unsigned long*)SvPV(ST(6),PL_na),&anynul,&status);
5468 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
5488 5 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 5 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5489 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLONG));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLONG));
5490 0 0 RETVAL=ffgcvj(fptr->fptr,cnum,frow,felem,nelem,nulval,(long*)SvPV(ST(6),PL_na),&anynul,&status);
5497 5 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
5517 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5518 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLONGLONG));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLONGLONG));
5519 0 0 RETVAL=ffgcvjj(fptr->fptr,cnum,frow,felem,nelem,nulval,(LONGLONG*)SvPV(ST(6),PL_na),&anynul,&status);
5526 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
5546 6 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 6 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5547 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TFLOAT));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TFLOAT));
5548 0 0 RETVAL=ffgcve(fptr->fptr,cnum,frow,felem,nelem,nulval,(float*)SvPV(ST(6),PL_na),&anynul,&status);
5555 6 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
5575 6 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 6 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5576 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TDOUBLE));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TDOUBLE));
5577 0 0 RETVAL=ffgcvd(fptr->fptr,cnum,frow,felem,nelem,nulval,(double*)SvPV(ST(6),PL_na),&anynul,&status);
5584 6 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
5604 1 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 1 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5605 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TCOMPLEX));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TCOMPLEX));
5606 0 0 RETVAL=ffgcvc(fptr->fptr,cnum,frow,felem,nelem,nulval,(float*)SvPV(ST(6),PL_na),&anynul,&status);
5613 1 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
5633 1 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 1 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5634 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TDBLCOMPLEX));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TDBLCOMPLEX));
5635 0 0 RETVAL=ffgcvm(fptr->fptr,cnum,frow,felem,nelem,nulval,(double*)SvPV(ST(6),PL_na),&anynul,&status);
5642 1 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
5666 0 0 if (datatype == TBIT)
5668 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking) && datatype != TSTRING) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking) && datatype != TSTRING) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking) && datatype != TSTRING) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking) && datatype != TSTRING) {
5669 0 0 if (ST(6)!=&PL_sv_undef) {
5670 0 0 SvGROW(ST(6),nelem*sizeof_datatype(storage_datatype));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(storage_datatype));
5671 0 0 array = (void*)SvPV(ST(6),PL_na);
5675 0 0 if (ST(7) != &PL_sv_undef) {
5676 0 0 SvGROW(ST(7),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(7),nelem*sizeof_datatype(TLOGICAL));
5677 0 0 nularray = (logical*)SvPV(ST(7),PL_na);
5687 0 0 if (ST(6)!=&PL_sv_undef)
5689 0 0 if (ST(7)!=&PL_sv_undef)
5692 0 0 if (ST(8)!=&PL_sv_undef)
5718 0 0 for (i=0;i
5720 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5721 0 0 if (ST(6) != &PL_sv_undef) {
5722 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
5723 0 0 nularray = (logical*)SvPV(ST(6),PL_na);
5733 0 0 if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
5735 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TSTRING,fptr->perlyunpacking);
5736 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
5756 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5757 0 0 if (ST(5) != &PL_sv_undef) {
5758 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
5759 0 0 array = (logical*)SvPV(ST(5),PL_na);
5763 0 0 if (ST(6) != &PL_sv_undef) {
5764 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
5765 0 0 nularray = (logical*)SvPV(ST(6),PL_na);
5775 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TLOGICAL,fptr->perlyunpacking);
5776 0 0 if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
5778 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
5798 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5799 0 0 if (ST(5) != &PL_sv_undef) {
5800 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TBYTE));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TBYTE));
5801 0 0 array = (byte*)SvPV(ST(5),PL_na);
5805 0 0 if (ST(6) != &PL_sv_undef) {
5806 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
5807 0 0 nularray = (logical*)SvPV(ST(6),PL_na);
5817 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TBYTE,fptr->perlyunpacking);
5818 0 0 if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
5820 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
5840 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5841 0 0 if (ST(5) != &PL_sv_undef) {
5842 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TSBYTE));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TSBYTE));
5843 0 0 array = (signed char*)SvPV(ST(5),PL_na);
5847 0 0 if (ST(6) != &PL_sv_undef) {
5848 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
5849 0 0 nularray = (logical*)SvPV(ST(6),PL_na);
5859 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TSBYTE,fptr->perlyunpacking);
5860 0 0 if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
5862 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
5882 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5883 0 0 if (ST(5) != &PL_sv_undef) {
5884 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TUSHORT));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TUSHORT));
5885 0 0 array = (unsigned short*)SvPV(ST(5),PL_na);
5889 0 0 if (ST(6) != &PL_sv_undef) {
5890 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
5891 0 0 nularray = (logical*)SvPV(ST(6),PL_na);
5901 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TUSHORT,fptr->perlyunpacking);
5902 0 0 if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
5904 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
5924 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5925 0 0 if (ST(5) != &PL_sv_undef) {
5926 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TSHORT));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TSHORT));
5927 0 0 array = (short*)SvPV(ST(5),PL_na);
5931 0 0 if (ST(6) != &PL_sv_undef) {
5932 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
5933 0 0 nularray = (logical*)SvPV(ST(6),PL_na);
5943 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TSHORT,fptr->perlyunpacking);
5944 0 0 if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
5946 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
5966 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
5967 0 0 if (ST(5) != &PL_sv_undef) {
5968 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TINT));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TINT));
5969 0 0 array = (int*)SvPV(ST(5),PL_na);
5973 0 0 if (ST(6) != &PL_sv_undef) {
5974 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
5975 0 0 nularray = (logical*)SvPV(ST(6),PL_na);
5985 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TINT,fptr->perlyunpacking);
5986 0 0 if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
5988 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
6008 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6009 0 0 if (ST(5) != &PL_sv_undef) {
6010 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TUINT));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TUINT));
6011 0 0 array = (unsigned int*)SvPV(ST(5),PL_na);
6015 0 0 if (ST(6) != &PL_sv_undef) {
6016 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
6017 0 0 nularray = (logical*)SvPV(ST(6),PL_na);
6027 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TUINT,fptr->perlyunpacking);
6028 0 0 if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
6030 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
6050 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6051 0 0 if (ST(5) != &PL_sv_undef) {
6052 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLONG));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLONG));
6053 0 0 array = (long*)SvPV(ST(5),PL_na);
6057 0 0 if (ST(6) != &PL_sv_undef) {
6058 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
6059 0 0 nularray = (logical*)SvPV(ST(6),PL_na);
6069 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TLONG,fptr->perlyunpacking);
6070 0 0 if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
6072 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
6092 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6093 0 0 if (ST(5) != &PL_sv_undef) {
6094 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLONGLONG));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLONGLONG));
6095 0 0 array = (LONGLONG*)SvPV(ST(5),PL_na);
6099 0 0 if (ST(6) != &PL_sv_undef) {
6100 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
6101 0 0 nularray = (logical*)SvPV(ST(6),PL_na);
6111 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TLONGLONG,fptr->perlyunpacking);
6112 0 0 if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
6114 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
6134 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6135 0 0 if (ST(5) != &PL_sv_undef) {
6136 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TULONG));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TULONG));
6137 0 0 array = (unsigned long*)SvPV(ST(5),PL_na);
6141 0 0 if (ST(6) != &PL_sv_undef) {
6142 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
6143 0 0 nularray = (logical*)SvPV(ST(6),PL_na);
6153 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TULONG,fptr->perlyunpacking);
6154 0 0 if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
6156 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
6176 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6177 0 0 if (ST(5) != &PL_sv_undef) {
6178 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TFLOAT));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TFLOAT));
6179 0 0 array = (float*)SvPV(ST(5),PL_na);
6183 0 0 if (ST(6) != &PL_sv_undef) {
6184 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
6185 0 0 nularray = (logical*)SvPV(ST(6),PL_na);
6195 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TFLOAT,fptr->perlyunpacking);
6196 0 0 if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
6198 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
6218 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6219 0 0 if (ST(5) != &PL_sv_undef) {
6220 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TDOUBLE));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TDOUBLE));
6221 0 0 array = (double*)SvPV(ST(5),PL_na);
6225 0 0 if (ST(6) != &PL_sv_undef) {
6226 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
6227 0 0 nularray = (logical*)SvPV(ST(6),PL_na);
6237 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TDOUBLE,fptr->perlyunpacking);
6238 0 0 if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
6240 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
6260 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6261 0 0 if (ST(5) != &PL_sv_undef) {
6262 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TCOMPLEX));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TCOMPLEX));
6263 0 0 array = (float*)SvPV(ST(5),PL_na);
6267 0 0 if (ST(6) != &PL_sv_undef) {
6268 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
6269 0 0 nularray = (logical*)SvPV(ST(6),PL_na);
6279 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TCOMPLEX,fptr->perlyunpacking);
6280 0 0 if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
6282 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
6302 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6303 0 0 if (ST(5) != &PL_sv_undef) {
6304 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TDBLCOMPLEX));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TDBLCOMPLEX));
6305 0 0 array = (double*)SvPV(ST(5),PL_na);
6309 0 0 if (ST(6) != &PL_sv_undef) {
6310 0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL));
6311 0 0 nularray = (logical*)SvPV(ST(6),PL_na);
6321 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TDBLCOMPLEX,fptr->perlyunpacking);
6322 0 0 if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
6324 0 0 if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul);
6342 0 0 if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),repeat);
6343 0 0 if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),offset);
6361 0 0 if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),repeat);
6362 0 0 if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),offset);
6380 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6381 0 0 if (ST(4) != &PL_sv_undef) {
6382 0 0 SvGROW(ST(4),nrows*sizeof_datatype(TLONG));
0 0 SvGROW(ST(4),nrows*sizeof_datatype(TLONG));
6383 0 0 repeat = (long*)SvPV(ST(4),PL_na);
6388 0 0 if (ST(5) != &PL_sv_undef) {
6389 0 0 SvGROW(ST(5),nrows*sizeof_datatype(TLONG));
0 0 SvGROW(ST(5),nrows*sizeof_datatype(TLONG));
6390 0 0 offset = (long*)SvPV(ST(5),PL_na);
6400 0 0 if (ST(4) != &PL_sv_undef) unpack1D(ST(4),repeat,nrows,TLONG,fptr->perlyunpacking);
6401 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),offset,nrows,TLONG,fptr->perlyunpacking);
6420 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6421 0 0 if (ST(4) != &PL_sv_undef) {
6422 0 0 SvGROW(ST(4),nrows*sizeof_datatype(TLONGLONG));
0 0 SvGROW(ST(4),nrows*sizeof_datatype(TLONGLONG));
6423 0 0 repeat = (LONGLONG*)SvPV(ST(4),PL_na);
6428 0 0 if (ST(5) != &PL_sv_undef) {
6429 0 0 SvGROW(ST(5),nrows*sizeof_datatype(TLONGLONG));
0 0 SvGROW(ST(5),nrows*sizeof_datatype(TLONGLONG));
6430 0 0 offset = (LONGLONG*)SvPV(ST(5),PL_na);
6440 0 0 if (ST(4) != &PL_sv_undef) unpack1D(ST(4),repeat,nrows,TLONGLONG,fptr->perlyunpacking);
6441 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),offset,nrows,TLONGLONG,fptr->perlyunpacking);
6471 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6472 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TBYTE));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TBYTE));
6473 0 0 RETVAL=ffggpb(fptr->fptr,group,felem,nelem,(byte*)SvPV(ST(4),PL_na),&status);
6496 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6497 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TSBYTE));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TSBYTE));
6498 0 0 RETVAL=ffggpsb(fptr->fptr,group,felem,nelem,(signed char*)SvPV(ST(4),PL_na),&status);
6521 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6522 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TSHORT));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TSHORT));
6523 0 0 RETVAL=ffggpi(fptr->fptr,group,felem,nelem,(short*)SvPV(ST(4),PL_na),&status);
6546 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6547 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TUSHORT));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TUSHORT));
6548 0 0 RETVAL=ffggpui(fptr->fptr,group,felem,nelem,(unsigned short*)SvPV(ST(4),PL_na),&status);
6571 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6572 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TINT));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TINT));
6573 0 0 RETVAL=ffggpk(fptr->fptr,group,felem,nelem,(int*)SvPV(ST(4),PL_na),&status);
6596 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6597 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TUINT));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TUINT));
6598 0 0 RETVAL=ffggpuk(fptr->fptr,group,felem,nelem,(unsigned int*)SvPV(ST(4),PL_na),&status);
6621 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6622 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TLONG));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TLONG));
6623 0 0 RETVAL=ffggpj(fptr->fptr,group,felem,nelem,(long*)SvPV(ST(4),PL_na),&status);
6646 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6647 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TLONGLONG));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TLONGLONG));
6648 0 0 RETVAL=ffggpjj(fptr->fptr,group,felem,nelem,(LONGLONG*)SvPV(ST(4),PL_na),&status);
6671 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6672 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TULONG));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TULONG));
6673 0 0 RETVAL=ffggpuj(fptr->fptr,group,felem,nelem,(unsigned long*)SvPV(ST(4),PL_na),&status);
6696 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6697 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TFLOAT));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TFLOAT));
6698 0 0 RETVAL=ffggpe(fptr->fptr,group,felem,nelem,(float*)SvPV(ST(4),PL_na),&status);
6721 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6722 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TDOUBLE));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TDOUBLE));
6723 0 0 RETVAL=ffggpd(fptr->fptr,group,felem,nelem,(double*)SvPV(ST(4),PL_na),&status);
6748 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6749 0 0 SvGROW(ST(5),nelem*sizeof_datatype(datatype));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(datatype));
6750 0 0 RETVAL=ffgpv(fptr->fptr,datatype,felem,nelem,pack1D(nulval,datatype),(void*)SvPV(ST(5),PL_na),&anynul,&status);
6757 0 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
6780 0 0 if (ST(1) != &PL_sv_undef) sv_setnv(ST(1),xrefval);
6781 0 0 if (ST(2) != &PL_sv_undef) sv_setnv(ST(2),yrefval);
6782 0 0 if (ST(3) != &PL_sv_undef) sv_setnv(ST(3),xrefpix);
6783 0 0 if (ST(4) != &PL_sv_undef) sv_setnv(ST(4),yrefpix);
6784 0 0 if (ST(5) != &PL_sv_undef) sv_setnv(ST(5),xinc);
6785 0 0 if (ST(6) != &PL_sv_undef) sv_setnv(ST(6),yinc);
6786 0 0 if (ST(7) != &PL_sv_undef) sv_setnv(ST(7),rot);
6811 0 0 if (ST(2) != &PL_sv_undef) sv_setnv(ST(2),xrefval);
6812 0 0 if (ST(3) != &PL_sv_undef) sv_setnv(ST(3),yrefval);
6813 0 0 if (ST(4) != &PL_sv_undef) sv_setnv(ST(4),xrefpix);
6814 0 0 if (ST(5) != &PL_sv_undef) sv_setnv(ST(5),yrefpix);
6815 0 0 if (ST(6) != &PL_sv_undef) sv_setnv(ST(6),xinc);
6816 0 0 if (ST(7) != &PL_sv_undef) sv_setnv(ST(7),yinc);
6817 0 0 if (ST(8) != &PL_sv_undef) sv_setnv(ST(8),rot);
6837 1 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 1 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6838 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TBYTE));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TBYTE));
6839 0 0 RETVAL=ffgpvb(fptr->fptr,group,felem,nelem,nulval,(byte*)SvPV(ST(5),PL_na),&anynul,&status);
6846 1 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
6865 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6866 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TSBYTE));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TSBYTE));
6867 0 0 RETVAL=ffgpvsb(fptr->fptr,group,felem,nelem,nulval,(signed char*)SvPV(ST(5),PL_na),&anynul,&status);
6874 0 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
6893 1 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 1 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6894 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TSHORT));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TSHORT));
6895 0 0 RETVAL=ffgpvi(fptr->fptr,group,felem,nelem,nulval,(short*)SvPV(ST(5),PL_na),&anynul,&status);
6902 1 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
6921 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6922 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TUSHORT));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TUSHORT));
6923 0 0 RETVAL=ffgpvui(fptr->fptr,group,felem,nelem,nulval,(unsigned short*)SvPV(ST(5),PL_na),&anynul,&status);
6930 0 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
6949 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6950 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TINT));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TINT));
6951 0 0 RETVAL=ffgpvk(fptr->fptr,group,felem,nelem,nulval,(int*)SvPV(ST(5),PL_na),&anynul,&status);
6958 0 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
6977 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
6978 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TUINT));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TUINT));
6979 0 0 RETVAL=ffgpvuk(fptr->fptr,group,felem,nelem,nulval,(unsigned int*)SvPV(ST(5),PL_na),&anynul,&status);
6986 0 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
7005 1 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 1 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
7006 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLONG));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLONG));
7007 0 0 RETVAL=ffgpvj(fptr->fptr,group,felem,nelem,nulval,(long*)SvPV(ST(5),PL_na),&anynul,&status);
7014 1 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
7033 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
7034 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLONGLONG));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLONGLONG));
7035 0 0 RETVAL=ffgpvjj(fptr->fptr,group,felem,nelem,nulval,(LONGLONG*)SvPV(ST(5),PL_na),&anynul,&status);
7042 0 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
7061 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
7062 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TULONG));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TULONG));
7063 0 0 RETVAL=ffgpvuj(fptr->fptr,group,felem,nelem,nulval,(unsigned long*)SvPV(ST(5),PL_na),&anynul,&status);
7070 0 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
7089 1 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 1 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
7090 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TFLOAT));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TFLOAT));
7091 0 0 RETVAL=ffgpve(fptr->fptr,group,felem,nelem,nulval,(float*)SvPV(ST(5),PL_na),&anynul,&status);
7098 1 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
7117 1 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 1 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
7118 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TDOUBLE));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TDOUBLE));
7119 0 0 RETVAL=ffgpvd(fptr->fptr,group,felem,nelem,nulval,(double*)SvPV(ST(5),PL_na),&anynul,&status);
7126 1 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
7147 1 0 if (ST(4)!=&PL_sv_undef) { /* caller wants naxes to be set */
7156 1 0 if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),simple);
7157 1 0 if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),bitpix);
7158 1 0 if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),naxis);
7159 1 0 if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),naxes,naxis,TLONG,
7161 1 0 if (ST(5)!=&PL_sv_undef) sv_setiv(ST(5),pcount);
7162 1 0 if (ST(6)!=&PL_sv_undef) sv_setiv(ST(6),gcount);
7163 1 0 if (ST(7)!=&PL_sv_undef) sv_setiv(ST(7),extend);
7184 0 0 if (ST(4)!=&PL_sv_undef) { /* caller wants naxes to be set */
7193 0 0 if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),simple);
7194 0 0 if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),bitpix);
7195 0 0 if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),naxis);
7196 0 0 if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),naxes,naxis,TLONGLONG,
7198 0 0 if (ST(5)!=&PL_sv_undef) sv_setiv(ST(5),pcount);
7199 0 0 if (ST(6)!=&PL_sv_undef) sv_setiv(ST(6),gcount);
7200 0 0 if (ST(7)!=&PL_sv_undef) sv_setiv(ST(7),extend);
7219 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
7220 0 0 if (ST(4)!=&PL_sv_undef) {
7221 0 0 SvGROW(ST(4),nelem*sizeof_datatype(datatype));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(datatype));
7222 0 0 array = (void*)SvPV(ST(4),PL_na);
7226 0 0 if (ST(5)!=&PL_sv_undef) {
7227 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
7228 0 0 nularray = (logical*)SvPV(ST(5),PL_na);
7239 0 0 if (ST(4)!=&PL_sv_undef)
7241 0 0 if (ST(5)!=&PL_sv_undef)
7244 0 0 if (ST(6)!=&PL_sv_undef) sv_setiv(ST(6),anynul);
7263 1 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 1 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
7264 0 0 if (ST(4) != &PL_sv_undef) {
7265 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TBYTE));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TBYTE));
7266 0 0 array = (byte*)SvPV(ST(4),PL_na);
7270 0 0 if (ST(5) != &PL_sv_undef) {
7271 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
7272 0 0 nularray = (logical*)SvPV(ST(5),PL_na);
7282 1 0 if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TBYTE,fptr->perlyunpacking);
7283 1 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
7285 1 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
7304 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
7305 0 0 if (ST(4) != &PL_sv_undef) {
7306 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TSBYTE));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TSBYTE));
7307 0 0 array = (signed char*)SvPV(ST(4),PL_na);
7311 0 0 if (ST(5) != &PL_sv_undef) {
7312 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
7313 0 0 nularray = (logical*)SvPV(ST(5),PL_na);
7323 0 0 if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TSBYTE,fptr->perlyunpacking);
7324 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
7326 0 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
7345 1 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 1 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
7346 0 0 if (ST(4) != &PL_sv_undef) {
7347 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TSHORT));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TSHORT));
7348 0 0 array = (short*)SvPV(ST(4),PL_na);
7352 0 0 if (ST(5) != &PL_sv_undef) {
7353 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
7354 0 0 nularray = (logical*)SvPV(ST(5),PL_na);
7364 1 0 if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TSHORT,fptr->perlyunpacking);
7365 1 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
7367 1 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
7386 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
7387 0 0 if (ST(4) != &PL_sv_undef) {
7388 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TUSHORT));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TUSHORT));
7389 0 0 array = (unsigned short*)SvPV(ST(4),PL_na);
7393 0 0 if (ST(5) != &PL_sv_undef) {
7394 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
7395 0 0 nularray = (logical*)SvPV(ST(5),PL_na);
7405 0 0 if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TUSHORT,fptr->perlyunpacking);
7406 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
7408 0 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
7427 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
7428 0 0 if (ST(4) != &PL_sv_undef) {
7429 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TINT));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TINT));
7430 0 0 array = (int*)SvPV(ST(4),PL_na);
7434 0 0 if (ST(5) != &PL_sv_undef) {
7435 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
7436 0 0 nularray = (logical*)SvPV(ST(5),PL_na);
7446 0 0 if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TINT,fptr->perlyunpacking);
7447 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
7449 0 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
7468 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
7469 0 0 if (ST(4) != &PL_sv_undef) {
7470 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TUINT));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TUINT));
7471 0 0 array = (unsigned int*)SvPV(ST(4),PL_na);
7475 0 0 if (ST(5) != &PL_sv_undef) {
7476 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
7477 0 0 nularray = (logical*)SvPV(ST(5),PL_na);
7487 0 0 if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TUINT,fptr->perlyunpacking);
7488 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
7490 0 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
7509 1 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 1 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
7510 0 0 if (ST(4) != &PL_sv_undef) {
7511 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TLONG));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TLONG));
7512 0 0 array = (long*)SvPV(ST(4),PL_na);
7516 0 0 if (ST(5) != &PL_sv_undef) {
7517 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
7518 0 0 nularray = (logical*)SvPV(ST(5),PL_na);
7528 1 0 if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TLONG,fptr->perlyunpacking);
7529 1 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
7531 1 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
7550 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
7551 0 0 if (ST(4) != &PL_sv_undef) {
7552 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TLONGLONG));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TLONGLONG));
7553 0 0 array = (LONGLONG*)SvPV(ST(4),PL_na);
7557 0 0 if (ST(5) != &PL_sv_undef) {
7558 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
7559 0 0 nularray = (logical*)SvPV(ST(5),PL_na);
7569 0 0 if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TLONGLONG,fptr->perlyunpacking);
7570 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
7572 0 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
7591 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
7592 0 0 if (ST(4) != &PL_sv_undef) {
7593 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TULONG));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TULONG));
7594 0 0 array = (unsigned long*)SvPV(ST(4),PL_na);
7598 0 0 if (ST(5) != &PL_sv_undef) {
7599 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
7600 0 0 nularray = (logical*)SvPV(ST(5),PL_na);
7610 0 0 if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TBYTE,fptr->perlyunpacking);
7611 0 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
7613 0 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
7632 1 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 1 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
7633 0 0 if (ST(4) != &PL_sv_undef) {
7634 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TFLOAT));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TFLOAT));
7635 0 0 array = (float*)SvPV(ST(4),PL_na);
7639 0 0 if (ST(5) != &PL_sv_undef) {
7640 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
7641 0 0 nularray = (logical*)SvPV(ST(5),PL_na);
7651 1 0 if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TFLOAT,fptr->perlyunpacking);
7652 1 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
7654 1 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
7673 1 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 1 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
7674 0 0 if (ST(4) != &PL_sv_undef) {
7675 0 0 SvGROW(ST(4),nelem*sizeof_datatype(TDOUBLE));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(TDOUBLE));
7676 0 0 array = (double*)SvPV(ST(4),PL_na);
7680 0 0 if (ST(5) != &PL_sv_undef) {
7681 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
7682 0 0 nularray = (logical*)SvPV(ST(5),PL_na);
7692 1 0 if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TDOUBLE,fptr->perlyunpacking);
7693 1 0 if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking);
7695 1 0 if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul);
7740 0 0 value = (ST(4) != &PL_sv_undef) ? get_mortalspace(maxchar+1,TBYTE) : NULL;
7741 0 0 comm = (ST(6) != &PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL;
7743 0 0 if (ST(5) != &PL_sv_undef) sv_setiv(ST(5),valuelen);
7772 8 0 comment=(ST(4)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL;
7782 1 7 if (datatype == TLOGICAL)
7802 1 0 comment=(ST(4)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL;
7804 1 0 if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),intval);
7805 1 0 if (ST(3) != &PL_sv_undef) sv_setnv(ST(3),frac);
7839 1 0 comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL;
7870 2 0 comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL;
7889 1 0 comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL;
7908 1 0 comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL;
7927 0 0 comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL;
7946 1 0 comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL;
7965 4 0 comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL;
7985 2 0 comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL;
8005 2 0 comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL;
8027 1 0 comment=(ST(4)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL;
8052 7 2 for (i=0; i
8178 1 4 comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL;
8222 0 0 if (dtype == TBIT)
8232 0 0 for (i=0; i
8233 0 0 ndata *= (trc[i]-blc[i]+1)/inc[i] +
8236 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
8237 0 0 SvGROW(ST(6),ndata*sizeof_datatype(storage_dtype));
0 0 SvGROW(ST(6),ndata*sizeof_datatype(storage_dtype));
8238 0 0 RETVAL=ffgsv(fptr->fptr,dtype,blc,trc,inc,(nulval!=&PL_sv_undef ? pack1D(nulval,storage_dtype) : NULL),(void*)SvPV(ST(6),PL_na),&anynul,&status);
0 0 RETVAL=ffgsv(fptr->fptr,dtype,blc,trc,inc,(nulval!=&PL_sv_undef ? pack1D(nulval,storage_dtype) : NULL),(void*)SvPV(ST(6),PL_na),&anynul,&status);
8242 0 0 RETVAL=ffgsv(fptr->fptr,dtype,blc,trc,inc,(nulval != &PL_sv_undef ? pack1D(nulval,storage_dtype) : NULL),array,&anynul,&status);
8245 0 0 if (ST(7) != &PL_sv_undef)
8272 0 0 for (i=0; i
8273 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
8275 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
8276 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TBYTE));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TBYTE));
8277 0 0 RETVAL=ffgsvb(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(byte*)SvPV(ST(8),PL_na),&anynul,&status);
8284 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
8310 0 0 for (i=0; i
8311 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
8313 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
8314 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TSBYTE));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TSBYTE));
8315 0 0 RETVAL=ffgsvsb(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(signed char*)SvPV(ST(8),PL_na),&anynul,&status);
8322 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
8348 0 0 for (i=0; i
8349 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
8351 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
8352 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TSHORT));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TSHORT));
8353 0 0 RETVAL=ffgsvi(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(short*)SvPV(ST(8),PL_na),&anynul,&status);
8360 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
8386 0 0 for (i=0; i
8387 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
8389 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
8390 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TUSHORT));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TUSHORT));
8391 0 0 RETVAL=ffgsvui(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(unsigned short*)SvPV(ST(8),PL_na),&anynul,&status);
8398 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
8424 0 0 for (i=0; i
8425 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
8427 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
8428 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TINT));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TINT));
8429 0 0 RETVAL=ffgsvk(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(int*)SvPV(ST(8),PL_na),&anynul,&status);
8436 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
8462 0 0 for (i=0; i
8463 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
8465 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
8466 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TUINT));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TUINT));
8467 0 0 RETVAL=ffgsvuk(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(unsigned int*)SvPV(ST(8),PL_na),&anynul,&status);
8474 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
8500 0 0 for (i=0; i
8501 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
8503 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
8504 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLONG));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLONG));
8505 0 0 RETVAL=ffgsvj(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(long*)SvPV(ST(8),PL_na),&anynul,&status);
8512 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
8538 0 0 for (i=0; i
8539 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
8541 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
8542 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLONGLONG));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLONGLONG));
8543 0 0 RETVAL=ffgsvjj(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(LONGLONG*)SvPV(ST(8),PL_na),&anynul,&status);
8550 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
8576 0 0 for (i=0; i
8577 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
8579 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
8580 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TULONG));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TULONG));
8581 0 0 RETVAL=ffgsvuj(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(unsigned long*)SvPV(ST(8),PL_na),&anynul,&status);
8588 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
8614 0 0 for (i=0; i
8615 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
8617 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
8618 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TFLOAT));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TFLOAT));
8619 0 0 RETVAL=ffgsve(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(float*)SvPV(ST(8),PL_na),&anynul,&status);
8626 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
8652 0 0 for (i=0; i
8653 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
8655 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
8656 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TDOUBLE));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TDOUBLE));
8657 0 0 RETVAL=ffgsvd(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(double*)SvPV(ST(8),PL_na),&anynul,&status);
8664 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
8690 0 0 for (i=0; i
8691 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
8693 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
8694 0 0 if (ST(7) != &PL_sv_undef) {
8695 0 0 SvGROW(ST(7),ndata*sizeof_datatype(TBYTE));
0 0 SvGROW(ST(7),ndata*sizeof_datatype(TBYTE));
8696 0 0 array = (byte*)SvPV(ST(7),PL_na);
8700 0 0 if (ST(8) != &PL_sv_undef) {
8701 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
8702 0 0 nularr = (logical*)SvPV(ST(8),PL_na);
8712 0 0 if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TBYTE,fptr->perlyunpacking);
8713 0 0 if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking);
8715 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
8741 0 0 for (i=0; i
8742 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
8744 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
8745 0 0 if (ST(7) != &PL_sv_undef) {
8746 0 0 SvGROW(ST(7),ndata*sizeof_datatype(TSBYTE));
0 0 SvGROW(ST(7),ndata*sizeof_datatype(TSBYTE));
8747 0 0 array = (signed char*)SvPV(ST(7),PL_na);
8751 0 0 if (ST(8) != &PL_sv_undef) {
8752 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
8753 0 0 nularr = (logical*)SvPV(ST(8),PL_na);
8763 0 0 if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TSBYTE,fptr->perlyunpacking);
8764 0 0 if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking);
8766 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
8792 0 0 for (i=0; i
8793 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
8795 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
8796 0 0 if (ST(7) != &PL_sv_undef) {
8797 0 0 SvGROW(ST(7),ndata*sizeof_datatype(TSHORT));
0 0 SvGROW(ST(7),ndata*sizeof_datatype(TSHORT));
8798 0 0 array = (short*)SvPV(ST(7),PL_na);
8802 0 0 if (ST(8) != &PL_sv_undef) {
8803 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
8804 0 0 nularr = (logical*)SvPV(ST(8),PL_na);
8814 0 0 if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TSHORT,fptr->perlyunpacking);
8815 0 0 if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking);
8817 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
8843 0 0 for (i=0; i
8844 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
8846 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
8847 0 0 if (ST(7) != &PL_sv_undef) {
8848 0 0 SvGROW(ST(7),ndata*sizeof_datatype(TUSHORT));
0 0 SvGROW(ST(7),ndata*sizeof_datatype(TUSHORT));
8849 0 0 array = (unsigned short*)SvPV(ST(7),PL_na);
8853 0 0 if (ST(8) != &PL_sv_undef) {
8854 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
8855 0 0 nularr = (logical*)SvPV(ST(8),PL_na);
8865 0 0 if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TUSHORT,fptr->perlyunpacking);
8866 0 0 if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking);
8868 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
8894 0 0 for (i=0; i
8895 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
8897 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
8898 0 0 if (ST(7) != &PL_sv_undef) {
8899 0 0 SvGROW(ST(7),ndata*sizeof_datatype(TINT));
0 0 SvGROW(ST(7),ndata*sizeof_datatype(TINT));
8900 0 0 array = (int*)SvPV(ST(7),PL_na);
8904 0 0 if (ST(8) != &PL_sv_undef) {
8905 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
8906 0 0 nularr = (logical*)SvPV(ST(8),PL_na);
8916 0 0 if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TINT,fptr->perlyunpacking);
8917 0 0 if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking);
8919 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
8945 0 0 for (i=0; i
8946 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
8948 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
8949 0 0 if (ST(7) != &PL_sv_undef) {
8950 0 0 SvGROW(ST(7),ndata*sizeof_datatype(TUINT));
0 0 SvGROW(ST(7),ndata*sizeof_datatype(TUINT));
8951 0 0 array = (unsigned int*)SvPV(ST(7),PL_na);
8955 0 0 if (ST(8) != &PL_sv_undef) {
8956 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
8957 0 0 nularr = (logical*)SvPV(ST(8),PL_na);
8967 0 0 if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TUINT,fptr->perlyunpacking);
8968 0 0 if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking);
8970 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
8996 0 0 for (i=0; i
8997 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
8999 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
9000 0 0 if (ST(7) != &PL_sv_undef) {
9001 0 0 SvGROW(ST(7),ndata*sizeof_datatype(TLONG));
0 0 SvGROW(ST(7),ndata*sizeof_datatype(TLONG));
9002 0 0 array = (long*)SvPV(ST(7),PL_na);
9006 0 0 if (ST(8) != &PL_sv_undef) {
9007 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
9008 0 0 nularr = (logical*)SvPV(ST(8),PL_na);
9018 0 0 if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TLONG,fptr->perlyunpacking);
9019 0 0 if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking);
9021 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
9047 0 0 for (i=0; i
9048 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
9050 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
9051 0 0 if (ST(7) != &PL_sv_undef) {
9052 0 0 SvGROW(ST(7),ndata*sizeof_datatype(TLONGLONG));
0 0 SvGROW(ST(7),ndata*sizeof_datatype(TLONGLONG));
9053 0 0 array = (LONGLONG*)SvPV(ST(7),PL_na);
9057 0 0 if (ST(8) != &PL_sv_undef) {
9058 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
9059 0 0 nularr = (logical*)SvPV(ST(8),PL_na);
9069 0 0 if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TLONGLONG,fptr->perlyunpacking);
9070 0 0 if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking);
9072 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
9098 0 0 for (i=0; i
9099 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
9101 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
9102 0 0 if (ST(7) != &PL_sv_undef) {
9103 0 0 SvGROW(ST(7),ndata*sizeof_datatype(TULONG));
0 0 SvGROW(ST(7),ndata*sizeof_datatype(TULONG));
9104 0 0 array = (unsigned long*)SvPV(ST(7),PL_na);
9108 0 0 if (ST(8) != &PL_sv_undef) {
9109 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
9110 0 0 nularr = (logical*)SvPV(ST(8),PL_na);
9120 0 0 if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TULONG,fptr->perlyunpacking);
9121 0 0 if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking);
9123 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
9149 0 0 for (i=0; i
9150 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
9152 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
9153 0 0 if (ST(7) != &PL_sv_undef) {
9154 0 0 SvGROW(ST(7),ndata*sizeof_datatype(TFLOAT));
0 0 SvGROW(ST(7),ndata*sizeof_datatype(TFLOAT));
9155 0 0 array = (float*)SvPV(ST(7),PL_na);
9159 0 0 if (ST(8) != &PL_sv_undef) {
9160 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
9161 0 0 nularr = (logical*)SvPV(ST(8),PL_na);
9171 0 0 if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TFLOAT,fptr->perlyunpacking);
9172 0 0 if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking);
9174 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
9200 0 0 for (i=0; i
9201 0 0 ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] +
9203 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
9204 0 0 if (ST(7) != &PL_sv_undef) {
9205 0 0 SvGROW(ST(7),ndata*sizeof_datatype(TDOUBLE));
0 0 SvGROW(ST(7),ndata*sizeof_datatype(TDOUBLE));
9206 0 0 array = (double*)SvPV(ST(7),PL_na);
9210 0 0 if (ST(8) != &PL_sv_undef) {
9211 0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL));
9212 0 0 nularr = (logical*)SvPV(ST(8),PL_na);
9222 0 0 if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TDOUBLE,fptr->perlyunpacking);
9223 0 0 if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking);
9225 0 0 if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul);
9250 0 0 if (ST(3) != &PL_sv_undef) sv_setnv(ST(3),xrefval); /* value-added, all around */
9251 0 0 if (ST(4) != &PL_sv_undef) sv_setnv(ST(4),yrefval);
9252 0 0 if (ST(5) != &PL_sv_undef) sv_setnv(ST(5),xrefpix);
9253 0 0 if (ST(6) != &PL_sv_undef) sv_setnv(ST(6),yrefpix);
9254 0 0 if (ST(7) != &PL_sv_undef) sv_setnv(ST(7),xinc);
9255 0 0 if (ST(8) != &PL_sv_undef) sv_setnv(ST(8),yinc);
9256 0 0 if (ST(9) != &PL_sv_undef) sv_setnv(ST(9),rot);
9274 1 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 1 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
9275 0 0 SvGROW(ST(4),nchars*sizeof_datatype(TBYTE));
0 0 SvGROW(ST(4),nchars*sizeof_datatype(TBYTE));
9276 0 0 RETVAL=ffgtbb(fptr->fptr,frow,fchar,nchars,(byte*)SvPV(ST(4),PL_na),&status);
9298 1 0 if (ST(3)!=&PL_sv_undef) {
9307 1 0 if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),naxis);
9308 1 0 if (ST(3)!=&PL_sv_undef) unpack1D(ST(3),naxes,naxis,TLONG,fptr->perlyunpacking);
9324 0 0 if (ST(3)!=&PL_sv_undef) {
9333 0 0 if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),naxis);
9334 0 0 if (ST(3)!=&PL_sv_undef) unpack1D(ST(3),naxes,naxis,TLONGLONG,fptr->perlyunpacking);
9373 0 0 if (RETVAL)
9548 0 0 if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),year);
9549 0 0 if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),month);
9550 0 0 if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),day);
9569 0 0 if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),year);
9570 0 0 if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),month);
9571 0 0 if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),day);
9572 0 0 if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),hour);
9573 0 0 if (ST(5) != &PL_sv_undef) sv_setiv(ST(5),minute);
9574 0 0 if (ST(6) != &PL_sv_undef) sv_setnv(ST(6),second);
9592 0 0 if (ST(5)!=&PL_sv_undef) {
9601 0 0 if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),datatype);
9602 0 0 if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),nelem);
9603 0 0 if (ST(4)!=&PL_sv_undef) sv_setiv(ST(4),naxis);
9604 0 0 if (ST(5)!=&PL_sv_undef) unpack1D(ST(5),naxes,naxis,TLONG,fptr->perlyunpacking);
9662 0 0 if (decimals > 0) datestrlen += decimals;
9717 0 0 value = pack1D(ST(3),(datatype == TLOGICAL) ? TINT : datatype);
9922 0 0 if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),dataok); /* value-added */
9923 0 0 if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),hduok); /* value-added */
10418 0 0 if (datatype == TBIT)
10683 0 0 if (datatype == TBIT)
10685 0 0 RETVAL=ffpcn(
11550 7 1 value = pack1D(ST(3),(datatype == TLOGICAL) ? TINT : datatype);
11980 0 0 if (dtype == TBIT)
12225 0 0 if (status == 0) {
12226 0 0 if (ST(1) != &PL_sv_undef)
12246 0 0 if (status == 0) {
12247 0 0 if (ST(3)!=&PL_sv_undef)
12266 0 0 if (ST(3)!=&PL_sv_undef) {
12275 0 0 if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),bitpix);
12276 0 0 if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),naxis);
12277 0 0 if (ST(3)!=&PL_sv_undef) unpack1D(ST(3),naxes,naxis,TLONG,fptr->perlyunpacking);
12293 0 0 if (ST(3)!=&PL_sv_undef) {
12302 0 0 if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),bitpix);
12303 0 0 if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),naxis);
12304 0 0 if (ST(3)!=&PL_sv_undef) unpack1D(ST(3),naxes,naxis,TLONGLONG,fptr->perlyunpacking);
12334 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
12335 0 0 SvGROW(ST(5),nelem*sizeof_datatype(dtype));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(dtype));
12336 0 0 RETVAL = ffgpxv(fptr->fptr, dtype, fpix, nelem, (nulval!=&PL_sv_undef ? pack1D(nulval, dtype) : NULL), (void*)SvPV(ST(5),PL_na), &anynul, &status);
0 0 RETVAL = ffgpxv(fptr->fptr, dtype, fpix, nelem, (nulval!=&PL_sv_undef ? pack1D(nulval, dtype) : NULL), (void*)SvPV(ST(5),PL_na), &anynul, &status);
12343 0 0 if (status == 0) {
12347 0 0 for (i=0; i
12350 0 0 RETVAL=ffgpxv(fptr->fptr, dtype, fpix, nelem, (nulval!=&PL_sv_undef ? pack1D(nulval, dtype) : NULL), array, &anynul, &status);
12351 0 0 if (status == 0) {
12357 0 0 if (ST(6) != &PL_sv_undef)
12382 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
12383 0 0 SvGROW(ST(5),nelem*sizeof_datatype(dtype));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(dtype));
12384 0 0 RETVAL = ffgpxvll(fptr->fptr, dtype, fpix, nelem, (nulval!=&PL_sv_undef ? pack1D(nulval, dtype) : NULL), (void*)SvPV(ST(5),PL_na), &anynul, &status);
0 0 RETVAL = ffgpxvll(fptr->fptr, dtype, fpix, nelem, (nulval!=&PL_sv_undef ? pack1D(nulval, dtype) : NULL), (void*)SvPV(ST(5),PL_na), &anynul, &status);
12391 0 0 if (status == 0) {
12395 0 0 for (i=0; i
12398 0 0 RETVAL=ffgpxvll(fptr->fptr, dtype, fpix, nelem, (nulval!=&PL_sv_undef ? pack1D(nulval, dtype) : NULL), array, &anynul, &status);
12399 0 0 if (status == 0) {
12405 0 0 if (ST(6) != &PL_sv_undef)
12430 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
12431 0 0 if (ST(4) != &PL_sv_undef) {
12432 0 0 SvGROW(ST(4),nelem*sizeof_datatype(dtype));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(dtype));
12433 0 0 array = (void*)SvPV(ST(4),PL_na);
12437 0 0 if (ST(5) != &PL_sv_undef) {
12438 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
12439 0 0 nullarray = (logical*)SvPV(ST(5),PL_na);
12450 0 0 if (status == 0) {
12454 0 0 for (i=0; i
12459 0 0 if (status == 0) {
12461 0 0 if (ST(4)!=&PL_sv_undef)
12463 0 0 if (ST(5)!=&PL_sv_undef)
12468 0 0 if (ST(6) != &PL_sv_undef)
12493 0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
0 0 if (!PERLYUNPACKING(fptr->perlyunpacking)) {
12494 0 0 if (ST(4) != &PL_sv_undef) {
12495 0 0 SvGROW(ST(4),nelem*sizeof_datatype(dtype));
0 0 SvGROW(ST(4),nelem*sizeof_datatype(dtype));
12496 0 0 array = (void*)SvPV(ST(4),PL_na);
12500 0 0 if (ST(5) != &PL_sv_undef) {
12501 0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
0 0 SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL));
12502 0 0 nullarray = (logical*)SvPV(ST(5),PL_na);
12513 0 0 if (status == 0) {
12517 0 0 for (i=0; i
12522 0 0 if (status == 0) {
12524 0 0 if (ST(4)!=&PL_sv_undef)
12526 0 0 if (ST(5)!=&PL_sv_undef)
12531 0 0 if (ST(6) != &PL_sv_undef)
12552 0 0 if (dtype == TBIT)
12574 0 0 if (dtype == TBIT)
12597 0 0 if (dtype == TBIT)
12599 0 0 RETVAL = ffppxn(fptr,dtype,fpix,nelem,packND(array,storage_dtype),(nulval!=&PL_sv_undef ? pack1D(nulval,storage_dtype) : NULL), &status);
12620 0 0 if (dtype == TBIT)
12622 0 0 RETVAL = ffppxnll(fptr,dtype,fpix,nelem,packND(array,storage_dtype),(nulval!=&PL_sv_undef ? pack1D(nulval,storage_dtype) : NULL), &status);