blob: 35f0190c79a958dc921d2a6ffbdddac19fc7c02b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
include "fitsio.h"
procedure fsirec(ounit,keyno,record,status)
# insert a character string card record to a header
int ounit # i output file pointer
int keyno # i number of the keyword to insert before
char record[SZ_FCARD] # i 80-char header record
% character frecor*80
int status # o error status
begin
call f77pak(record,frecor,SZ_FCARD)
call ftirec(ounit,keyno,frecor,status)
end
|
