blob: 92f7d8fb16132ea2bd6d802d12968edf4b4efda2 (
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 fsnkey(nseq,keywrd,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 ftnkey(nseq,fkeywr,fkeyou,status)
call f77upk(fkeyou,keyout,SZ_FKEYWORD)
end
|
