1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
include "fitsio.h"
procedure fsbdef(ounit,nfield,tform,pcount,nrows,status)
# Binary table data DEFinition
# define the structure of the binary table data unit
int ounit # i output file pointer
int nfield # i number of fields
char tform[SZ_FTFORM,ARB] # i column datatype
% character*16 ftform(512)
int pcount # i number of group parame
int nrows # i number of rows
int status # o error status
int i
begin
do i=1,nfield
call f77pak(tform(1,i) ,ftform(i),SZ_FTFORM)
call ftbdef(ounit,nfield,ftform,pcount,nrows,status)
end
|
