
c===============================================================================
c                          MAP_DEF_1.INC
c===============================================================================

c in diesem File sind die Dimensionen des Potentialmappen-Speichers fuer Mappe 1
c des Programms 'ACCEL' niedergelegt:

c Position der Folie relativ zur Kryoachse:

	real    xFoil
	common /xFoil/ xFoil


c the grid characteristics:

	real	Dx_,Dy_,Dz_
c	integer imax_,jmax_,kmax_

	parameter ( Dx_  = .125, Dy_  = .125, Dz_  = .500)
c	parameter ( imax_=   68, jmax_=  136, kmax_=   34)

	real	xmin,xmax
	integer imax,jmax,kmax
	common /map_1/ xmin,xmax, imax,jmax,kmax


c der Beginn des Uebergabebereichs zur naechsten Mappe:

	real xStartUeberUpp
	common /map_1/ xStartUeberUpp


c die naeherungsweise Obergrenze fuer die einzelnen Schrittlaengen:

	real dl_max
	parameter (dl_max = .1)


c the map:

	INCLUDE 'accel$sourcedirectory:MAPMAP.INC'

