1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
include "fitsio.h"
procedure fsgsvi(iunit,colnum,naxis,naxes,fpixel,lpixel,inc,
nulval,array,anyflg,status)
# Read a subsection of Integer*2 values from the primary array.
int iunit # i input file pointer
int colnum # i colnum number
int naxis # i number of axes
int naxes[ARB] # i dimension of each axis
int fpixel[ARB] # i first pixel
int lpixel[ARB] # i last pixel
int inc[ARB] # i increment
short nulval # i value for undefined pi
short array[ARB] # o array of values
bool anyflg # o any null values?
int status # o error status
begin
call ftgsvi(iunit,colnum,naxis,naxes,fpixel,lpixel,inc,
nulval,array,anyflg,status)
end
|
