blob: 9e9f2f14885d03d0e2f162dc1c4c0eee3adf6d05 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
include "fitsio.h"
procedure fspcom(ounit,commnt,status)
# write a COMMENT record to the FITS header
int ounit # i output file pointer
char commnt[SZ_FLONGCOMM] # i comment keyword
% character fcommn*72
int status # o error status
begin
call f77pak(commnt,fcommn,SZ_FLONGCOMM)
call ftpcom(ounit,fcommn,status)
end
|
