| 1 |
mocchiut |
1.1 |
************************************************************************* |
| 2 |
|
|
* |
| 3 |
|
|
* Common common_B_inner.f |
| 4 |
|
|
* |
| 5 |
|
|
* to be included in: |
| 6 |
|
|
* - ../magnet/read_B_inner.f |
| 7 |
|
|
* - ../magnet/inter_B.f |
| 8 |
|
|
* - ../magnet/inter_B_inner.f |
| 9 |
|
|
* |
| 10 |
|
|
************************************************************************* |
| 11 |
|
|
|
| 12 |
|
|
c implicit double precision (a-h,o-z) |
| 13 |
|
|
|
| 14 |
|
|
|
| 15 |
|
|
parameter (nx=29, ny=23, nz=101) !number of measures along X, Y and Z axes |
| 16 |
|
|
|
| 17 |
|
|
c coordinates in m of the edges of the volume in which the field |
| 18 |
|
|
c is interpolated according to the inner maps |
| 19 |
|
|
parameter (edgexmin=-0.085,edgexmax=0.085 |
| 20 |
|
|
$ ,edgeymin=-0.07,edgeymax=0.07 |
| 21 |
|
|
$ ,edgezmin=-0.26,edgezmax=0.26) |
| 22 |
|
|
|
| 23 |
|
|
************ |
| 24 |
|
|
c first map |
| 25 |
|
|
real*8 px1(nx,3),py1(ny,3),pz1(nz,3) !coordinates of measure points: |
| 26 |
|
|
c e.g. py1(ny,1) = Y coordinates of Bx (=1) component of magnetic field |
| 27 |
|
|
|
| 28 |
|
|
real*8 b1(nx,ny,nz,3) !magnetic field values: |
| 29 |
|
|
c e.g. b1(nx,ny,nz,2) = By (=2) component of magnetic field measured in (nx, ny, nz) |
| 30 |
|
|
|
| 31 |
mocchiut |
1.2 |
real*8 px1max(3),px1min(3),py1max(3),py1min(3), |
| 32 |
|
|
$ pz1max(3),pz1min(3) !grid edges |
| 33 |
mocchiut |
1.1 |
|
| 34 |
|
|
common/interpolation1/px1,py1,pz1,b1 |
| 35 |
|
|
$ ,px1max,px1min,py1max,py1min,pz1max,pz1min |
| 36 |
|
|
|
| 37 |
|
|
************ |
| 38 |
|
|
c second map |
| 39 |
|
|
real*8 px2(nx,3),py2(ny,3),pz2(nz,3) |
| 40 |
|
|
real*8 b2(nx,ny,nz,3) |
| 41 |
mocchiut |
1.2 |
real*8 px2max(3),px2min(3),py2max(3),py2min(3), |
| 42 |
|
|
$ pz2max(3),pz2min(3) !grid edges |
| 43 |
mocchiut |
1.1 |
|
| 44 |
|
|
common/interpolation2/px2,py2,pz2,b2 |
| 45 |
|
|
$ ,px2max,px2min,py2max,py2min,pz2max,pz2min |
| 46 |
|
|
|
| 47 |
|
|
************************************************************************* |
| 48 |
|
|
* |
| 49 |
|
|
* Common common_B_outer.f |
| 50 |
|
|
* |
| 51 |
|
|
* to be included in: |
| 52 |
|
|
* - ../magnet/read_B_outer.f |
| 53 |
|
|
* - ../magnet/inter_B.f |
| 54 |
|
|
* - ../magnet/inter_B_outer.f |
| 55 |
|
|
* |
| 56 |
|
|
************************************************************************* |
| 57 |
|
|
|
| 58 |
|
|
c implicit double precision (a-h,o-z) |
| 59 |
|
|
|
| 60 |
|
|
|
| 61 |
|
|
c number of measures along X, Y and Z axes |
| 62 |
|
|
parameter (nox=13, noy=13, noz=4) |
| 63 |
|
|
|
| 64 |
|
|
c coordinates in m of the edges of the volume in which the field |
| 65 |
|
|
c is interpolated according to the inner maps |
| 66 |
|
|
c UPPER VOLUME |
| 67 |
|
|
parameter (edgeuxmin=-0.18) |
| 68 |
|
|
parameter (edgeuxmax=0.18) |
| 69 |
|
|
parameter (edgeuymin=-0.18) |
| 70 |
|
|
parameter (edgeuymax=0.18) |
| 71 |
|
|
parameter (edgeuzmin=0.28) |
| 72 |
|
|
parameter (edgeuzmax=0.37) |
| 73 |
|
|
c LOWER VOLUME |
| 74 |
|
|
parameter (edgelxmin=edgeuxmin) |
| 75 |
|
|
parameter (edgelxmax=edgeuxmax) |
| 76 |
|
|
parameter (edgelymin=edgeuymin) |
| 77 |
|
|
parameter (edgelymax=edgeuymax) |
| 78 |
|
|
parameter (edgelzmin=-0.37) |
| 79 |
|
|
parameter (edgelzmax=-0.28) |
| 80 |
|
|
|
| 81 |
|
|
************ |
| 82 |
|
|
|
| 83 |
|
|
|
| 84 |
|
|
c MAGNETIC-FIELD MAP |
| 85 |
|
|
real*8 pox(nox,3),poy(noy,3),poz(noz,3) !coordinates of measure points: |
| 86 |
|
|
c e.g. py1(ny,1) = Y coordinates of Bx (=1) component of magnetic field |
| 87 |
|
|
|
| 88 |
|
|
real*8 bo(nox,noy,noz,3) !magnetic field values: |
| 89 |
|
|
c e.g. b1(nx,ny,nz,2) = By (=2) component of magnetic field measured in (nx, ny, nz) |
| 90 |
|
|
|
| 91 |
mocchiut |
1.2 |
real*8 poxmax(3),poxmin(3),poymax(3),poymin(3), |
| 92 |
|
|
$ pozmax(3),pozmin(3) |
| 93 |
mocchiut |
1.1 |
c grid edges |
| 94 |
|
|
|
| 95 |
|
|
common/interpolationo/pox,poy,poz,bo |
| 96 |
|
|
$ ,poxmax,poxmin,poymax,poymin,pozmax,pozmin |
| 97 |
|
|
|
| 98 |
|
|
|
| 99 |
|
|
SAVE/interpolation1/ |
| 100 |
|
|
SAVE/interpolation2/ |
| 101 |
|
|
SAVE/interpolationo/ |
| 102 |
|
|
|
| 103 |
|
|
|
| 104 |
|
|
|
| 105 |
|
|
|
Parent Directory
| 
Revision Log