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

procedure fsppru(ounit,group,felem,nelem,status)

# set elements of the primary array equal to the undefined value

int     ounit           # i output file pointer
int     group           # i group number
int     felem           # i first element in row
int     nelem           # i number of elements
int     status          # o error status

begin

call ftppru(ounit,group,felem,nelem,status)
end