| 1 |
pam-fi |
1.1 |
************************************************************************* |
| 2 |
|
|
* |
| 3 |
|
|
* Common common_B_2maps.f |
| 4 |
|
|
* |
| 5 |
|
|
* to be included in: |
| 6 |
|
|
* - ../magnet/read_B_2maps.f |
| 7 |
|
|
* - ../magnet/inter_B_2maps.f |
| 8 |
|
|
* |
| 9 |
|
|
* parameters: |
| 10 |
|
|
* - nx, ny, nz : number of measures along X, Y and Z axes |
| 11 |
|
|
* |
| 12 |
|
|
************************************************************************* |
| 13 |
|
|
|
| 14 |
|
|
implicit double precision (a-h,o-z) |
| 15 |
|
|
|
| 16 |
|
|
|
| 17 |
|
|
parameter (nx=29, ny=23, nz=101) !number of measures along X, Y and Z |
| 18 |
|
|
! axes |
| 19 |
|
|
|
| 20 |
|
|
************ |
| 21 |
|
|
c first map |
| 22 |
|
|
real*8 px1(nx,3),py1(ny,3),pz1(nz,3) !coordinates of measure points: |
| 23 |
|
|
! e.g. py(ny,1) = Y coordinates of Bx (=1) |
| 24 |
|
|
! component of magnetic field |
| 25 |
|
|
|
| 26 |
|
|
real*8 b1(nx,ny,nz,3),db1(nx,ny,nz,3) !magnetic field values and error: |
| 27 |
|
|
! e.g. b(nx,ny,nz,2) = By (=2) component of |
| 28 |
|
|
! magnetic field measured in (nx, ny, nz) |
| 29 |
|
|
|
| 30 |
|
|
common/interpolation1/px1,py1,pz1,b1,db1 |
| 31 |
|
|
|
| 32 |
|
|
************ |
| 33 |
|
|
c second map |
| 34 |
|
|
real*8 px2(nx,3),py2(ny,3),pz2(nz,3) |
| 35 |
|
|
real*8 b2(nx,ny,nz,3),db2(nx,ny,nz,3) |
| 36 |
|
|
|
| 37 |
|
|
common/interpolation2/px2,py2,pz2,b2,db2 |
Parent Directory
| 
Revision Log