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	*************************************************************************
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'