39 lines
1.0 KiB
HTML
39 lines
1.0 KiB
HTML
|
|
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
|
|
|