C+
C NAME:
C	smei_skyd_dim
C PURPOSE:
C	Parameter definitions for sizes of skymaps
C CALLING SEQUENCE:
C	include 'smei_skyd_dim.h'
C PROCEDURE:
C	Equatorial map covers [0,360] in RA and [-60,60] in declination
C	at 0.1 degree resolution.
C	The north and polar maps are polar maps out to 40 degrees from
C	the pole in two perpendicular directions with 0.1 degree resolution.
C MODIFICATION HISTORY:
C	JAN-2006, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	! Highest indexing level  used

	integer		 SKYD__LEVEL
	parameter	(SKYD__LEVEL = 5)

	! Number of nodes per pixel in mode 0

	integer		 SKYD__NODES_PER_PIXEL
	parameter	(SKYD__NODES_PER_PIXEL = 200)

	! Number of nodes per frame in mode 0

	integer		 SKYD__NODES
	parameter	(SKYD__NODES = 2500000)	!3600000)

	! Number of votes

	integer		 SKYD__VOTES
	parameter	(SKYD__VOTES = 220000000)	! c1m2 orbit 3542

	integer		 SKYD__VOTES_PER_NODE_MAX	! Used in smei_skyd_combine only
 	parameter       (SKYD__VOTES_PER_NODE_MAX = 1000)	! c1m2 orbit 3085
 
	integer		 SKYD__VOTES_PER_NODE_INIT
	parameter	(SKYD__VOTES_PER_NODE_INIT = 100)

	integer		 SKYD__VOTES_ADD
	parameter	(SKYD__VOTES_ADD = 50)

	integer		 SKYD__NODES_ADD
	parameter	(SKYD__NODES_ADD = 500)

	! Identifier for empty location in pool arrays

	integer		 SKYD__NO_NODE
	parameter	(SKYD__NO_NODE = 0)

	!======================================
	! Locators for quantities for all nodes

	integer		 SKYD__NODE_NTOP		! Current highest occupied node index in arrays
	parameter	(SKYD__NODE_NTOP	=1)

	integer		 SKYD__NODE_NSLOT	! Number of actual nodes in use
	parameter	(SKYD__NODE_NSLOT=2)

	integer		 SKYD__NODE_NVOTE	! Total number of votes for all nodes
	parameter	(SKYD__NODE_NVOTE=3)

	integer		 SKYD__NODE_NSORT
	parameter	(SKYD__NODE_NSORT=4)

	integer		 SKYD__NODE_NEMPTY
	parameter	(SKYD__NODE_NEMPTY=5)

	integer		 SKYD__NODE_IEMPTY
	parameter	(SKYD__NODE_IEMPTY=6)

	integer		 SKYD__NODE_MAPVOTES	! Number of votes per node
	parameter	(SKYD__NODE_MAPVOTES=7)

	integer		 SKYD__NODE_MAPNODES	
	parameter	(SKYD__NODE_MAPNODES=8)

	integer		 SKYD__NODE_NTOPMAX	! Overall highest occupied node index in arrays
	parameter	(SKYD__NODE_NTOPMAX=9)

	integer		 SKYD__NODE_NVOTEMAX
	parameter	(SKYD__NODE_NVOTEMAX=10)

	integer		 SKYD__NODE_NMAPMAX
	parameter	(SKYD__NODE_NMAPMAX=11)

	integer		 SKYD__NODE_N
	parameter	(SKYD__NODE_N	=11)

	!======================================


	! Equatorial map covers [0,360] in RA and [-60,60] in declination at 0.1 degree resolution.

	integer		 SKYD__NXEQ
	parameter	(SKYD__NXEQ = 3600)	! # bins covering [0,360]; bin centers at i+0.5, i=0,359

	integer		 SKYD__NYEQ
	parameter	(SKYD__NYEQ = 1200)	! # bins covering [-60,60]; bin centers at -60+j+0.5, j=0,119

	integer		 SKYD__N_EQ		! Total # sky bins in equatorial map
	parameter	(SKYD__N_EQ = SKYD__NXEQ*SKYD__NYEQ)

	double precision SKYD__D_EQ
	parameter	(SKYD__D_EQ = SKYD__NXEQ/360d0)! # bins per degree in RA

	! The north and polar maps are polar maps out to 40 degrees from the pole in two
	! perpendicular directions with 0.1 degree resolution.

	integer		 SKYD__NXPL
	parameter	(SKYD__NXPL = 800)	! # bins in first (X) dimension of polar plot

	integer		 SKYD__NYPL
	parameter	(SKYD__NYPL = 800)	! # bins in second (Y) dimension of polar plot

	integer		 SKYD__N_PL		! Total # of sky bins in polar maps
	parameter	(SKYD__N_PL = SKYD__NXPL*SKYD__NYPL)

	double precision SKYD__D_PL
	parameter	(SKYD__D_PL = 10d0)	! # bins per degree in polar distance angle.

	integer		 SKYD__N_ALL
	parameter	(SKYD__N_ALL = SKYD__N_EQ+SKYD__N_PL*2)

	! Equatorial map covers [0,360] in RA and [-60,60] in declination at 0.1 degree resolution.

	integer		 SKYD__NXEQ_LEVEL	! # bins covering [0,360]; bin centers at i+0.5, i=0,3599
	parameter	(SKYD__NXEQ_LEVEL = SKYD__NXEQ*SKYD__LEVEL)

	integer		 SKYD__NYEQ_LEVEL	! # bins covering [-60,60]; bin centers at -60+j+0.5, j=0,1199
	parameter	(SKYD__NYEQ_LEVEL = SKYD__NYEQ*SKYD__LEVEL)

	integer		 SKYD__N_EQ_LEVEL	! Total # sky bins in equatorial map
	parameter	(SKYD__N_EQ_LEVEL = SKYD__NXEQ_LEVEL*SKYD__NYEQ_LEVEL)

	! The north and polar maps are polar maps out to 40 degrees from the pole in two
	! perpendicular directions with 0.1 degree resolution.

	integer		 SKYD__NXPL_LEVEL	! # bins in first (X) dimension of polar plot
	parameter	(SKYD__NXPL_LEVEL = SKYD__NXPL*SKYD__LEVEL)

	integer		 SKYD__NYPL_LEVEL	! # bins in second (Y) dimension of polar plot
	parameter	(SKYD__NYPL_LEVEL = SKYD__NYPL*SKYD__LEVEL)

	integer		 SKYD__N_PL_LEVEL	! Total # of sky bins in polar maps
	parameter	(SKYD__N_PL_LEVEL = SKYD__NXPL_LEVEL*SKYD__NYPL_LEVEL)


	!=================================
	! Low resolution sky maps
	! Initialized in smei_skyd_init
	! Filled in smei_skyd_sky
	! Written to disk in smei_skyd_fts

	integer		 SKYD__NXLO
	parameter	(SKYD__NXLO = 720)

	integer		 SKYD__NYLO
	parameter	(SKYD__NYLO = 360)

	integer		 SKYD__N_LO
	parameter	(SKYD__N_LO = SKYD__NXLO*SKYD__NYLO)

	double precision SKYD__D_LO		! # bins per degree in RA
	parameter	(SKYD__D_LO = SKYD__NXLO/360d0)

	! Info for low resolution maps
	! (used in filling up array lowres, and writing Fits file)

	integer		 SKYD__LO_SKY
	parameter	(SKYD__LO_SKY  = 1)	! Sky brightness

	integer		 SKYD__LO_TIME
	parameter	(SKYD__LO_TIME = 2)	! Time as fraction of orbit

	integer		 SKYD__LO_PSFN
	parameter	(SKYD__LO_PSFN = 3)	! Rotation of PSF rel to north

	integer		 SKYD__LO_PSFE
	parameter	(SKYD__LO_PSFE = 4)	! Rotation of PSF rel to vernal equinox

	integer		 SKYD__LO_CUT
	parameter	(SKYD__LO_CUT  = 5)	! Rejected sky

	integer		 SKYD__LO_FRAC
	parameter	(SKYD__LO_FRAC = 6)	! Rejected nodes

	integer		 SKYD__LO_ROTX
	parameter	(SKYD__LO_ROTX = 7)	! Theta-x of Sun for glare removal

	integer		 SKYD__LO_ROTY
	parameter	(SKYD__LO_ROTY = 8)	! Theta-y of Sun for glar removal

	integer		 SKYD__LO_SECS
	parameter	(SKYD__LO_SECS = 9)	! Time as seconds since start of orbit

	integer		 SKYD__LO_FOVX
	parameter	(SKYD__LO_FOVX = 10)	! Direction cosine angle in long dimension

	integer		 SKYD__LO_HIT
	parameter	(SKYD__LO_HIT  = 11)	! Contributing pixel count

	integer		 SKYD__LO_CNT
	parameter	(SKYD__LO_CNT  = 12)

	integer		 SKYD__LO_NMAP
	parameter	(SKYD__LO_NMAP = 12)

	! Dimensions of glare multiplier map

	integer		 SKYD__NX_GLARE
	parameter	(SKYD__NX_GLARE =  90)

	integer		 SKYD__NY_GLARE
	parameter	(SKYD__NY_GLARE = 180)

	! Number of pixels inside FOV for mode 0

	integer		 SKYD__NFOV
	parameter	(SKYD__NFOV = 62000)

	real		 SKYD__T_POOL
	parameter	(SKYD__T_POOL = 36.0)

	real		 SKYD__DRFOV_MAX
	parameter	(SKYD__DRFOV_MAX = 25.0)

	real		 SKYD__MAX_SLOPE
	parameter	(SKYD__MAX_SLOPE = 50.0)