blob: 6a11962bef3e93fa9c563d3c76c7b2bb055a47ff (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
include "fitsio.h"
procedure fssnul(ounit,colnum,nulval,status)
# ascii table Column NULl value definition
# Define the null value for an ASCII table column.
int ounit # i output file pointer
int colnum # i column number
char nulval # i value for undefined pixels
% character*16 fnulva
int status # o error status
begin
call f77pak(nulval,fnulva,16)
call ftsnul(ounit,colnum,fnulva,status)
end
|
