blob: 1ce2ff8f83c8da977a2c7ada07f6ef3eb2d3a110 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
include "fitsio.h"
procedure fskeyn(keywrd,nseq,keyout,status)
# Make a keyword name by concatinating the root name and a
# sequence number
char keywrd[SZ_FKEYWORD] # i keyword name
% character fkeywr*8
int nseq # i keyword sequence no.
char keyout[SZ_FKEYWORD] # o output keyword
% character fkeyou*8
int status # o error status
begin
call f77pak(keywrd,fkeywr,SZ_FKEYWORD)
call ftkeyn(fkeywr,nseq,fkeyou,status)
call f77upk(fkeyou,keyout,SZ_FKEYWORD)
end
|
