C+
C NAME:
C	smei_skyd_fnc
C PURPOSE:
C	Function declarations for smei_sky
C CATEGORY:
C	camera/for/sky
C CALLING SEQUENCE:
C	include		'smei_skyd_fnc.h'
C PROCEDURE:
C MODIFICATION HISTORY:
C	JUN-2006, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	integer			nn		! Size of dimension (hor or vert)
	integer			ll		! Hires level (usually 3)
	double precision	origin		! Array index for data value 0.0

	integer			ix
	integer			jy
	integer			kp
	integer			ip_eq
	integer			ip_pl

	origin(ll,nn) = 0.5d0*(1.0d0+nn*ll)

	ip_eq(ll,ix,jy   ) =					  (jy-1) *SKYD__NXEQ*ll+ix
	ip_pl(ll,ix,jy,kp) = SKYD__N_EQ*ll*ll+((kp-1)*SKYD__NYPL*ll+(jy-1))*SKYD__NXPL*ll+ix