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

procedure fspscl(ounit,bscale,bzero,status)

# Primary SCaLing factor definition
# Define the scaling factor for the primary header data.
# This must be the first HDU of the FITS file.

int     ounit           # i output file pointer
double  bscale          # i scaling factor
double  bzero           # i scaling zeropoint
int     status          # o error status

begin

call ftpscl(ounit,bscale,bzero,status)
end