32 lines
752 B
HTML
32 lines
752 B
HTML
|
|
c===============================================================================
|
|
c MAP_DEF_6.INC
|
|
c===============================================================================
|
|
|
|
c in diesem File sind die Dimensionen des Potentialmappen-Speichers fuer Mappe 6
|
|
c des Programms 'ACCEL' niedergelegt:
|
|
|
|
c the grid characteristics:
|
|
|
|
real Dx_,Dy_,Dz_
|
|
c integer jmax_,kmax_
|
|
|
|
parameter ( Dx_ = .250, Dy_ = .250, Dz_ = 1.00)
|
|
c parameter ( jmax_= 100, kmax_= 25)
|
|
|
|
real xmin,xmax
|
|
integer imax,jmax,kmax
|
|
common /map_6_/ xmin,xmax, imax,jmax,kmax
|
|
|
|
|
|
c die naeherungsweise Obergrenze fuer die einzelnen Schrittlaengen:
|
|
|
|
real dl_max
|
|
parameter (dl_max = .5)
|
|
|
|
|
|
c the map:
|
|
|
|
INCLUDE 'accel$sourcedirectory:MAPMAP.INC'
|
|
|