
c===============================================================================
c                          MAP_DEF_SP_1.INC
c===============================================================================

	real Beschl_Faktor
	COMMON /Beschl_Faktor_SP/ Beschl_Faktor

	character*40 MappenName
	real dl_max		! naeherungsweise Obergrenze fuer die einzelnen
				! Schrittlaengen:
	COMMON /integration_SP/ MappenName,dl_max

	real xSpGrid1,xSpGrid2   ! Gitterpositionen innerhalb der Mappe [mm]
        real DSpiegel            ! Abstand der Spiegelgitter
        real dWires_Sp           ! Drahtdurchmesser
        real dist_Wires_Sp       ! Drahtabstand
        COMMON /integration_Sp/ xSpGrid1,xSpGrid2,DSpiegel,
     *				dWires_Sp,dist_Wires_Sp


c the grid characteristics:

	real Dx,Dy
	integer imax,jmax
	real xmin,xmax,ymax

	COMMON /integration_SP_1/ xmin,xmax,ymax,Dx,Dy,imax,jmax


c the map:

        integer maxmem
        parameter (maxmem = 3684)
        real    map(0:maxmem)

        COMMON /integration_SP_1/ map

