blob: aa508f341bf60873f03f61b689ce82047c7fee1e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
include "fitsio.h"
procedure fscopy(iunit,ounit,moreky,status)
# copies the CHDU from IUNIT to the CHDU of OUNIT.
# This will also reserve space in the header for MOREKY keywords
# if MOREKY > 0.
int iunit # i input file pointer
int ounit # i output file pointer
int moreky # i how many more keywords
int status # o error status
begin
call ftcopy(iunit,ounit,moreky,status)
end
|