aboutsummaryrefslogtreecommitdiff
path: root/pkg/tbtables/fitsio/fitssppb/fsmrhd.x
blob: d253bc5b38bdf638a9978cdc751ea0c5da0ff49e (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
include "fitsio.h"

procedure fsmrhd(iunit,extmov,xtend,status)

# Move Relative Header Data unit
# move the i/o pointer to the specified HDU and initialize all
# the common block parameters which describe the extension

int     iunit           # i input file pointer
int     extmov          # i relative extension number
int     xtend           # o type of extension
int     status          # o error status

begin

call ftmrhd(iunit,extmov,xtend,status)
end