44 lines
982 B
HTML
44 lines
982 B
HTML
|
|
c===============================================================================
|
|
c MAP_DEF_4.INC
|
|
c===============================================================================
|
|
|
|
c in diesem File sind die Dimensionen des Potentialmappen-Speichers fuer Mappe 4
|
|
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_ = .050, Dy_ = .050, Dz_ = .500)
|
|
c parameter ( imax_= 80, jmax_= 440, kmax_= 44)
|
|
|
|
real xmin,xmax
|
|
integer imax,jmax,kmax
|
|
common /map_4/ xmin,xmax, imax,jmax,kmax
|
|
|
|
|
|
c der Beginn des Uebergabebereichs zur naechsten Mappe:
|
|
|
|
real xStartUeberUpp,xStartUeberLow
|
|
common /map_4/ xStartUeberUpp,xStartUeberLow
|
|
|
|
|
|
c die naeherungsweise Obergrenze fuer die einzelnen Schrittlaengen:
|
|
|
|
real dl_max
|
|
parameter (dl_max = .1)
|
|
|
|
|
|
c the map:
|
|
|
|
INCLUDE 'accel$sourcedirectory:MAPMAP.INC'
|
|
|