aboutsummaryrefslogtreecommitdiff
path: root/sys/mwcs/mwopenim.x
blob: f4e86180b2dc5fd70ae77a2a6edfcbdd38e5ace6 (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	<imio.h>

# MW_OPENIM -- Open an MWCS descriptor on an image, loading the descriptor
# from the image if there is one.  The MWCS descriptor is allocated after
# the WCS cards are read in mw_loadim so that the WCS dimensionality can
# be determined when the image header is dataless.

pointer procedure mw_openim (im)

pointer	im			#I pointer to image descriptor

pointer	mw

begin
	mw = NULL
	call mw_loadim (mw, im)
	return (mw)
end