/[PAMELA software]/gpamela/gpcdes/gpfield.inc
ViewVC logotype

Diff of /gpamela/gpcdes/gpfield.inc

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3.2 by pam-ba, Mon Dec 5 12:15:20 2005 UTC revision 3.3 by bottai, Thu Dec 22 16:19:47 2005 UTC
# Line 1  Line 1 
1  *  *
2  * $Id: gpfield.inc,v 3.1.1.1 2002/07/11 16:01:59 cafagna Exp $  * $Id: gpfield.inc,v 3.2 2005/12/05 12:15:20 pam-ba Exp $
3  *  *
4  * $Log: gpfield.inc,v $  * $Log: gpfield.inc,v $
5    * Revision 3.2  2005/12/05 12:15:20  pam-ba
6    * new spectrometer geometry and internal magnetic field
7    *
8  * Revision 3.1.1.1  2002/07/11 16:01:59  cafagna  * Revision 3.1.1.1  2002/07/11 16:01:59  cafagna
9  * First GPAMELA release on CVS  * First GPAMELA release on CVS
10  *  *
# Line 56  c     second map Line 59  c     second map
59    
60        common/interpolation2/px2,py2,pz2,b2        common/interpolation2/px2,py2,pz2,b2
61       $     ,px2max,px2min,py2max,py2min,pz2max,pz2min       $     ,px2max,px2min,py2max,py2min,pz2max,pz2min
62        
63        
64        
65    c     number of measures along X, Y and Z axes
66          parameter (nox=13, noy=13, noz=4)
67    
68    
69          real*8 edgeuxmin,edgeuxmax,edgeuymin,edgeuymax,edgeuzmin,
70         & edgeuzmax,edgelxmin,edgelxmax,edgelymin,edgelymax,edgelzmin,
71         & edgelzmax
72    c     coordinates in m of the edges of the volume in which the field
73    c     is interpolated according to the inner maps
74    c     UPPER VOLUME
75          parameter (edgeuxmin=-0.18)
76          parameter (edgeuxmax=0.18)
77          parameter (edgeuymin=-0.18)
78          parameter (edgeuymax=0.18)
79          parameter (edgeuzmin=0.28)
80          parameter (edgeuzmax=0.37)
81    c     LOWER VOLUME
82          parameter (edgelxmin=edgeuxmin)
83          parameter (edgelxmax=edgeuxmax)
84          parameter (edgelymin=edgeuymin)
85          parameter (edgelymax=edgeuymax)
86          parameter (edgelzmin=-0.37)
87          parameter (edgelzmax=-0.28)
88    
89    ************
90    c     MAGNETIC-FIELD MAP
91          real*8 pox(nox,3),poy(noy,3),poz(noz,3) !coordinates of measure points:
92    c     e.g. py1(ny,1) = Y coordinates of Bx (=1) component of magnetic field
93    
94          real*8 bo(nox,noy,noz,3)     !magnetic field values:
95    c     e.g. b1(nx,ny,nz,2) = By (=2) component of magnetic field measured in (nx, ny, nz)
96    
97          real*8 poxmax(3),poxmin(3),poymax(3),poymin(3),pozmax(3),pozmin(3)
98    c     grid edges
99    
100          common/interpolationo/pox,poy,poz,bo
101         $     ,poxmax,poxmin,poymax,poymin,pozmax,pozmin
102    
103        
Legend:
Removed from v.3.2  
changed lines
  Added in v.3.3
  ViewVC Help
Powered by ViewVC 1.1.23