| 1 |
pam-fi |
1.1 |
************************************************************************* |
| 2 |
|
|
* |
| 3 |
|
|
* Common common_B_outer.f |
| 4 |
|
|
* |
| 5 |
|
|
* to be included in: |
| 6 |
|
|
* - ../magnet/read_B_outer.f |
| 7 |
|
|
* - ../magnet/inter_B.f |
| 8 |
|
|
* - ../magnet/inter_B_outer.f |
| 9 |
|
|
* |
| 10 |
|
|
************************************************************************* |
| 11 |
|
|
|
| 12 |
|
|
c implicit double precision (a-h,o-z) |
| 13 |
|
|
|
| 14 |
|
|
|
| 15 |
|
|
c number of measures along X, Y and Z axes |
| 16 |
|
|
parameter (nox=13, noy=13, noz=4) |
| 17 |
|
|
|
| 18 |
|
|
c coordinates in m of the edges of the volume in which the field |
| 19 |
|
|
c is interpolated according to the inner maps |
| 20 |
|
|
c UPPER VOLUME |
| 21 |
|
|
parameter (edgeuxmin=-0.18) |
| 22 |
|
|
parameter (edgeuxmax=0.18) |
| 23 |
|
|
parameter (edgeuymin=-0.18) |
| 24 |
|
|
parameter (edgeuymax=0.18) |
| 25 |
|
|
parameter (edgeuzmin=0.28) |
| 26 |
|
|
parameter (edgeuzmax=0.37) |
| 27 |
|
|
c LOWER VOLUME |
| 28 |
|
|
parameter (edgelxmin=edgeuxmin) |
| 29 |
|
|
parameter (edgelxmax=edgeuxmax) |
| 30 |
|
|
parameter (edgelymin=edgeuymin) |
| 31 |
|
|
parameter (edgelymax=edgeuymax) |
| 32 |
|
|
parameter (edgelzmin=-0.37) |
| 33 |
|
|
parameter (edgelzmax=-0.28) |
| 34 |
|
|
|
| 35 |
|
|
************ |
| 36 |
|
|
c MAGNETIC-FIELD MAP |
| 37 |
|
|
real*8 pox(nox,3),poy(noy,3),poz(noz,3) !coordinates of measure points: |
| 38 |
|
|
c e.g. py1(ny,1) = Y coordinates of Bx (=1) component of magnetic field |
| 39 |
|
|
|
| 40 |
|
|
real*8 bo(nox,noy,noz,3) !magnetic field values: |
| 41 |
|
|
c e.g. b1(nx,ny,nz,2) = By (=2) component of magnetic field measured in (nx, ny, nz) |
| 42 |
|
|
|
| 43 |
|
|
real*8 poxmax(3),poxmin(3),poymax(3),poymin(3),pozmax(3),pozmin(3) |
| 44 |
|
|
c grid edges |
| 45 |
|
|
|
| 46 |
|
|
common/interpolationo/pox,poy,poz,bo |
| 47 |
|
|
$ ,poxmax,poxmin,poymax,poymin,pozmax,pozmin |
| 48 |
|
|
|
Parent Directory
| 
Revision Log