aboutsummaryrefslogtreecommitdiff
path: root/sys/imfort/imfupdhdr.x
blob: 4381fe7e740e4baa93a6cdbc071f1e202866562b (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.

include	<imhdr.h>
include	"imfort.h"
include	"oif.h"

# IMF_UPDHDR -- Update the image header.

procedure imf_updhdr (im, status)

pointer	im			# image descriptor
int	status			# return status

pointer	fp
int	imwrhdr()

begin
	fp = IM_HDRFP(im)
	if (imwrhdr (fp, im, TY_IMHDR) != ERR)
	    IM_UPDATE(im) = NO
end