/[PAMELA software]/DarthVader/TrackerLevel2/inc/F77/common_B.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/inc/F77/common_B.f

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

revision 1.1 by mocchiut, Fri May 19 13:15:52 2006 UTC revision 1.2 by mocchiut, Tue Aug 4 14:01:34 2009 UTC
# Line 28  c     e.g. py1(ny,1) = Y coordinates of Line 28  c     e.g. py1(ny,1) = Y coordinates of
28        real*8 b1(nx,ny,nz,3)     !magnetic field values:        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)  c     e.g. b1(nx,ny,nz,2) = By (=2) component of magnetic field measured in (nx, ny, nz)
30    
31        real*8 px1max(3),px1min(3),py1max(3),py1min(3),pz1max(3),pz1min(3) !grid edges        real*8 px1max(3),px1min(3),py1max(3),py1min(3),
32         $     pz1max(3),pz1min(3)  !grid edges
33    
34        common/interpolation1/px1,py1,pz1,b1        common/interpolation1/px1,py1,pz1,b1
35       $     ,px1max,px1min,py1max,py1min,pz1max,pz1min       $     ,px1max,px1min,py1max,py1min,pz1max,pz1min
# Line 37  c     e.g. b1(nx,ny,nz,2) = By (=2) comp Line 38  c     e.g. b1(nx,ny,nz,2) = By (=2) comp
38  c     second map  c     second map
39        real*8 px2(nx,3),py2(ny,3),pz2(nz,3)        real*8 px2(nx,3),py2(ny,3),pz2(nz,3)
40        real*8 b2(nx,ny,nz,3)        real*8 b2(nx,ny,nz,3)
41        real*8 px2max(3),px2min(3),py2max(3),py2min(3),pz2max(3),pz2min(3) !grid edges        real*8 px2max(3),px2min(3),py2max(3),py2min(3),
42         $     pz2max(3),pz2min(3)  !grid edges
43    
44        common/interpolation2/px2,py2,pz2,b2        common/interpolation2/px2,py2,pz2,b2
45       $     ,px2max,px2min,py2max,py2min,pz2max,pz2min       $     ,px2max,px2min,py2max,py2min,pz2max,pz2min
# Line 86  c     e.g. py1(ny,1) = Y coordinates of Line 88  c     e.g. py1(ny,1) = Y coordinates of
88        real*8 bo(nox,noy,noz,3)     !magnetic field values:        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)  c     e.g. b1(nx,ny,nz,2) = By (=2) component of magnetic field measured in (nx, ny, nz)
90    
91        real*8 poxmax(3),poxmin(3),poymax(3),poymin(3),pozmax(3),pozmin(3)        real*8 poxmax(3),poxmin(3),poymax(3),poymin(3),
92         $  pozmax(3),pozmin(3)
93  c     grid edges  c     grid edges
94    
95        common/interpolationo/pox,poy,poz,bo        common/interpolationo/pox,poy,poz,bo
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23