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 fsgsfi(iunit,colnum,naxis,naxes,fpixel,lpixel,inc,
array,flgval,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 array[ARB] # o array of values
bool flgval[ARB] # o is corresponding value undefined?
bool anyflg # o any null values?
int status # o error status
begin
call ftgsfi(iunit,colnum,naxis,naxes,fpixel,lpixel,inc,
array,flgval,anyflg,status)
end
|
