1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
include "fitsio.h"
procedure fsgcvs(iunit,colnum,frow,felem,nelem,nulval,array,dim1,anynul,
status)
# read an array of string values from a specified column of the table.
# Any undefined pixels will be set equal to the value of NULVAL,
# unless NULVAL=' ', in which case no checks for undefined pixels
# will be made.
int iunit # i input file pointer
int colnum # i column number
int frow # i first row
int felem # i first element in row
int nelem # i number of elements
char nulval[SZ_FTNULL] # i value for undefined pixels
% character fnulva*16
char array[dim1,ARB] # o array of values
% character farray*256
int dim1 # i size of 1st dimension of 2D character string array
bool anynul # o any null values returned?
int status # o error status
int i
int elem
bool null
begin
call f77pak(nulval,fnulva,SZ_FTNULL)
anynul=false
elem=felem
do i=1,nelem {
call ftgcvs(iunit,colnum,frow,elem,1,fnulva,farray,null,status)
if (null)
anynul=true
call f77upk(farray,array(1,i),dim1)
elem=elem+1
}
end
|
