aboutsummaryrefslogtreecommitdiff
path: root/pkg/tbtables/fitsio/fitssppb/fscopy.x
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