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