# C_IMGETI -- Get integer image header keyword.

procedure c_imgeti (im, key, ival)

pointer	im
char	key[ARB]
int	ival

int	imgeti()

char	sppstr[SZ_FNAME]
common	/sppcom/ sppstr

begin
	call strupk (key, sppstr, SZ_FNAME)
	ival = imgeti (im, sppstr)
end


# C_IMGETR -- Put real image header keyword.

procedure c_imgetr (im, key, rval)

pointer	im
char	key[ARB]
real	rval

real	imgetr()

char	sppstr[SZ_FNAME]
common	/sppcom/ sppstr

begin
	call strupk (key, sppstr, SZ_FNAME)
	rval = imgetr (im, sppstr)
end


# C_IMGSTR -- Get string image header keyword leaving value unchanged if error.

procedure c_imgstr (im, key, sval)

pointer	im
char	key[ARB]
char	sval[ARB]

char	sppstr[SZ_FNAME]
common	/sppcom/ sppstr

errchk	imgstr

begin
	call strupk (key, sppstr, SZ_FNAME)
	call imgstr (im, sppstr, sval, ARB)
	call strpak (sval, sval, ARB)
end


# C_IMADDI -- Add integer image header keyword.

procedure c_imaddi (im, key, ival)

pointer	im
char	key[ARB]
int	ival

char	sppstr[SZ_FNAME]
common	/sppcom/ sppstr

begin
	call strupk (key, sppstr, SZ_FNAME)
	call imaddi (im, sppstr, ival)
end


# C_IMADDR -- Add real image header keyword.

procedure c_imaddr (im, key, rval)

pointer	im
char	key[ARB]
real	rval

char	sppstr[SZ_FNAME]
common	/sppcom/ sppstr

begin
	call strupk (key, sppstr, SZ_FNAME)
	call imaddr (im, sppstr, rval)
end


# C_IMASTR -- Add string image header keyword.

procedure c_imastr (im, key, sval)

pointer	im
char	key[ARB]
char	sval[ARB]

pointer	sp

char	sppstr[SZ_FNAME]
common	/sppcom/ sppstr

begin
	call malloc (sp, SZ_LINE, TY_CHAR)
	call strupk (key, sppstr, SZ_FNAME)
	call strupk (sval, Memc[sp], SZ_LINE)
	call imastr (im, sppstr, Memc[sp])
	call mfree (sp, TY_CHAR)
end