source/magnet/read_B.f

*************************************************************************
*     
*     Subroutine read_B.f
*     
*     it calls the subroutines which read the magnetic field maps for
*     the PAMELA spectrometer
*     
*     needs:
*     - ./read_B_inner.f inner map reading subroutine
*     - ./read_B_outer.f outer map reading subroutine
*     
*     to be called before ./inter_B.f (interpolation subroutine)
*     
*************************************************************************

      subroutine read_B

c     call the subroutine which reads the maps of the measurements taken
c     inside the magnetic cavity
      call read_B_inner

c     call the subroutine which reads the maps of the measurements taken
c     outside the magnetic cavity
      call read_B_outer        

      return
      end

      include './read_B_inner.f'
      include './read_B_outer.f' 
1	pam-fi	1.1	*************************************************************************
2			*
3			* Subroutine read_B.f
4			*
5			* it calls the subroutines which read the magnetic field maps for
6			* the PAMELA spectrometer
7			*
8			* needs:
9			* - ./read_B_inner.f inner map reading subroutine
10			* - ./read_B_outer.f outer map reading subroutine
11			*
12			* to be called before ./inter_B.f (interpolation subroutine)
13			*
14			*************************************************************************
15
16			subroutine read_B
17
18			c call the subroutine which reads the maps of the measurements taken
19			c inside the magnetic cavity
20			call read_B_inner
21
22			c call the subroutine which reads the maps of the measurements taken
23			c outside the magnetic cavity
24			call read_B_outer
25
26			return
27			end
28
29			include './read_B_inner.f'
30			include './read_B_outer.f'