blob: 37ddb13fd5e8507de79315e5288b241aedb16820 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
include "fitsio.h"
procedure fsbnfm(tform,dtype,rcount,width,status)
# 'Binary Format'
# parse the binary table column format to determine the data
# type and the repeat count (and string width, if it is an ASCII field)
char tform[SZ_FTFORM] # i column format
% character*16 ftform
int dtype # o datatype code
int rcount # o vector column repeat count
int width # o width of character string
int status # o error status
begin
call f77pak(tform ,ftform ,SZ_FTFORM)
call ftbnfm(ftform,dtype,rcount,width,status)
end
|
