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

procedure fstscl(ounit,colnum,bscale,bzero,status)

# Table column SCaLing factor definition
# Define the scaling factor for a table column.

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

begin

call fttscl(ounit,colnum,bscale,bzero,status)
end