C+
C NAME:
C	t3d_param
C PURPOSE:
C	Defines several control parameters for tomography programs.
C	Each parameter sets a bit in integer I__MODE. This argument is set
C	in the main program and is passed to several subroutines as first
C	argument. These subroutines test the bit by a doing a logical
C	AND operation (using iand).
C PROCEDURE: 
C	TOM__MOD : is set to active mod-360 calculations. For time-dependent
C		reconstructions this should always be set.
C	TOM__DIFF: is set to make corrections at the source surface based on differences of
C		between observed and model los values. Default is ratios
C	TOM__POINTP: is set to start with a point-P initial condition (default is a flat
C		source surface
C-
	integer		TOM__MOD, TOM__DIFF, TOM__POINTP
	parameter	(TOM__MOD 	=    1)
	parameter	(TOM__DIFF  	=    2)
	parameter	(TOM__POINTP	=    4)

	integer		TOM__MASS, TOM__TRACKG
	parameter	(TOM__MASS  	=    8)
	parameter	(TOM__TRACKG	=   16)

	integer		TOM__INCLG, TOM__INCLV
	parameter	(TOM__INCLV 	=   32)
	parameter	(TOM__INCLG 	=   64)

	! TOM__NORATIO: is set when MakeShift calculates velocities and
	! densities, rather than ratios of velocities and densities
	! (needed for Write3D_nv).

	integer		TOM__NORATIO
	parameter	(TOM__NORATIO	=  128)

	integer		TOM__G2
	parameter	(TOM__G2	=  256)

	integer		TOM__BINX
	parameter	(TOM__BINX	=  512)	! Write LOS crossings ??

	integer		TOM__SHIFT
	parameter	(TOM__SHIFT	= 1024)	! Write XC3D shift array ??

	integer		TOM__NOSURF
	parameter	(TOM__NOSURF	= 2048)	! Write source surface arrays ??

	integer		TOM__MHD
	parameter	(TOM__MHD	= 4096)

	!-------
	! Note that the following three can not be combined with the
	! previous values.

	integer		TOM__V, TOM__D, TOM__G
	parameter	(TOM__D	= 68)		! Ascii D
	parameter	(TOM__G	= 71)		! Ascii G
	parameter	(TOM__V	= 86)		! Ascii V