blob: 500aeb622dd309b47e4ecc3151d14a50ce0d3ced (
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 fsicol(ounit,colnum,ttype,tform,status)
# insert column in a table
int ounit # i output file pointer
int colnum # i column to be inserted
char ttype[SZ_FTTYPE] # i column name
% character*24 ftype
char tform[SZ_FTFORM] # i column data format
% character*16 fform
int status # o error status
begin
call f77pak(ttype ,ftype,SZ_FTTYPE)
call f77pak(tform ,fform,SZ_FTFORM)
call fticol(ounit,colnum,ftype,fform,status)
end
|
