blob: 5951427b378f2ba35c138e4d23adf3173c78e216 (
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 fsmrec(ounit,nkey,record,status)
# modify the nth keyword in the CHU, by replacing it with the
# input 80 character string.
int ounit # i output file pointer
int nkey # i number of keyword to be modified
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 ftmrec(ounit,nkey,frecor,status)
end
|
