| 1 |
* |
| 2 |
* $Id: gpfield.inc,v 3.2 2005/12/05 12:15:20 pam-ba Exp $ |
| 3 |
* |
| 4 |
* $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 |
| 9 |
* First GPAMELA release on CVS |
| 10 |
* |
| 11 |
* |
| 12 |
* |
| 13 |
* gpfield.inc |
| 14 |
* |
| 15 |
*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola |
| 16 |
*CMZ : 2.00/00 03/03/2000 15.39.05 by Francesco Cafagna |
| 17 |
*CMZ : 1.02/00 10/03/97 12.52.13 by Francesco Cafagna |
| 18 |
*CMZ : 1.00/02 27/02/96 17.40.15 by Francesco Cafagna |
| 19 |
*-- Author : Paolo Papini 16/02/96 |
| 20 |
C |
| 21 |
C Common with the magnetic field related variables |
| 22 |
C |
| 23 |
REAL FX,FY,FZ,V0,V1,V2,V3,VV,DD |
| 24 |
INTEGER IVV,IV |
| 25 |
COMMON /GPCFIELD/FX(41,41,31),FY(41,41,31), |
| 26 |
+ FZ(41,41,31),V0(3),V1(3),V2(3),V3(3), |
| 27 |
+ VV(8,3),DD(8),IVV(8,3),IV(3) |
| 28 |
|
| 29 |
|
| 30 |
|
| 31 |
|
| 32 |
parameter (nx=29, ny=23, nz=101) !number of measures along X, Y and Z axes |
| 33 |
|
| 34 |
c coordinates in m of the edges of the volume in which the field |
| 35 |
c is interpolated according to the inner maps |
| 36 |
real*8 edgexmin,edgexmax,edgeymin,edgeymax,edgezmin,edgezmax |
| 37 |
parameter (edgexmin=-0.085,edgexmax=0.085 |
| 38 |
+ ,edgeymin=-0.07,edgeymax=0.07 |
| 39 |
+ ,edgezmin=-0.26,edgezmax=0.26) |
| 40 |
|
| 41 |
************ |
| 42 |
c first map |
| 43 |
real*8 px1(nx,3),py1(ny,3),pz1(nz,3) !coordinates of measure points: |
| 44 |
c e.g. py1(ny,1) = Y coordinates of Bx (=1) component of magnetic field |
| 45 |
|
| 46 |
real*8 b1(nx,ny,nz,3) !magnetic field values: |
| 47 |
c e.g. b1(nx,ny,nz,2) = By (=2) component of magnetic field measured in (nx, ny, nz) |
| 48 |
|
| 49 |
real*8 px1max(3),px1min(3),py1max(3),py1min(3),pz1max(3),pz1min(3) !grid edges |
| 50 |
|
| 51 |
common/interpolation1/px1,py1,pz1,b1 |
| 52 |
$ ,px1max,px1min,py1max,py1min,pz1max,pz1min |
| 53 |
|
| 54 |
************ |
| 55 |
c second map |
| 56 |
real*8 px2(nx,3),py2(ny,3),pz2(nz,3) |
| 57 |
real*8 b2(nx,ny,nz,3) |
| 58 |
real*8 px2max(3),px2min(3),py2max(3),py2min(3),pz2max(3),pz2min(3) |
| 59 |
|
| 60 |
common/interpolation2/px2,py2,pz2,b2 |
| 61 |
$ ,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 |
|
Parent Directory
| 
Revision Log