blob: d9c77101f7ff94c15d8c4543626930dc0da5ee1c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
include <mach.h> # for SZB_CHAR
include "tbtables.h"
# tbfsiz -- get FITSIO buffer size
# This function returns the buffer size (SPP char) that CFITSIO has
# available for the current table.
#
# The buffer size is 25*2880 bytes (currently) if only one table is open
# (see NIOBUF and IOBUFLEN in fitsio2.h).
# See the CFITSIO documentation for further information.
#
# Phil Hodge, 25-May-2000 Function created.
int procedure tbfsiz (tp)
pointer tp # i: pointer to table struct
#--
pointer sp
pointer comment # ignored
int rowlen # length of row (NAXIS1), then convert to char
int maxrows # max number of rows that fit in cfitsio buffers
int status
int bufsize # the function value, the buffer size
errchk tbferr
begin
call smark (sp)
call salloc (comment, SZ_FNAME, TY_CHAR)
# Get the row length in bytes.
call fsgkyj (TB_FILE(tp), "NAXIS1",
rowlen, Memc[comment], status)
if (status != 0)
call tbferr (status)
call sfree (sp)
rowlen = rowlen / SZB_CHAR # convert bytes to char
status = 0
call fsgrsz (TB_FILE(tp), maxrows, status)
if (status != 0)
call tbferr (status)
if (rowlen > 1)
bufsize = rowlen * maxrows
else
bufsize = maxrows
return (bufsize)
end
|
