Fundamental Technologies Voyager LECP Pages

An Analysis of the Performance of the Magnetic Deflection System in the Voyager Low Energy Charged Particle Experiment

by Sheela Shodhan

E.4 FDMOD1.CMN

**************************************************************************
*  THIS IS A .CMN FILE THAT IS INCLUDED IN THE ROUTINE FDMOD1.FOR        *
*                                                                        *
* PURPOSE : IT CONTAINS ALL THE  PARAMETERS OF TRANSLATION,              *
*           ROTATION,MAGNETISATION CONSTANTS A0,B0,MAGS THAT ARE         *
*           USED TO DETERMINE THE MAGNETIC FIELD AT A POINT (X,Y,Z)      *
*           IN SPACE DUE TO TWO TILTED MAGNETS.                          *
* VARIABLES :                                                            *
*  A0,B0 : MAGNETISATION CONSTANTS.                                      *
*  ANGLE : ANGLE IN DEGREES BY WHICH THE MAGNETS ARE TILTED.             *
*  ANG : ANGLE IN RADIANS BY WHICH THE MAGNETS ARE TILTED.               *
*  HALFD : HALF THE DISTANCE BETWEEN THE MAGNETS.                        *
*  LENGTHS : ARRAY THAT CONTAINS THE LENGTHS OF THE MAGNET PIECES.       *
*  MAGS : 2-D ARRAY THAT CONTAINS THE MAGNETISATION OF THE MAGNET PIECES.* 
*  MAX : MAXIMUM NUMBER OF PIECES OF THE MAGNET IN X AND Y DIRECTION.    *
*  NX1,NY1 : NUMBER OF PIECES OF THE MAGNET IN X AND Y DIRECTION.        *
*  SEPTS : ARRAY THAT CONTAINS THE DISTANCE BETWEEN THE CORRESPONDING    *
*         PIECES OF THE TWO MAGNETS.                                     *
*  WIDTHS : ARRAY THAT CONTAINS THE WIDTH OF THE MAGNET PIECES.          *
*  X0,Y0 : CONSTANTS USED IN THE EXPRESSION OF THE LINEARLY FALLING      *
*         MAGNETISATION : A(X-X0) + B(Y-Y0)                              *
*  XL,YL,ZL : CONSTANTS BY WHICH THE EXPERIMENTAL SYSTEM IS TRANSLATE    * 
*   -D WITH RESPECT TO THE COORDINATE SYSTEMS CENTRED AT THE MAGNETS.    *
**************************************************************************
      INTEGER MAX,NX1,NY1
      REAL*8 HALFD
      PARAMETER (HALFD=0.4375D0,MAX=15,NX1=1,NY1=1)
      REAL*8 ANGLE,ANG,PI,RAD,A0,B0,X0,Y0
      REAL*8 XL(MAX),YL(MAX),ZL(MAX),LENGTHS(MAX),WIDTHS(MAX),SEPTS(MAX)
      REAL*8 MAGS(MAX,MAX)
     

      PI = 4.0D0 * DATAN(1.0D0)
      RAD = 180.0D0/PI

      DATA A0/0.75D0/,B0/3.5D0/,X0/0.0D0/,Y0/0.0D0/
      DATA (LENGTHS(I),I=1,NX1)/0.4D0/
      DATA (WIDTHS(I),I=1,NY1)/0.3D0/
      DATA (XL(I),I=1,NX1)/0.0D0/
      DATA (YL(I),I=1,NY1)/0.5D0/
      DATA ZL(1)/0.43750D0/
      DATA SEPTS(1)/0.8750D0/
      DATA ANGLE/20.0D0/       
      ANG = ANGLE/RAD
      YL(1) = 0.5D0 * DCOS(ANG)
      DATA (MAGS(1,I),I=1,NY1)/1491.008264378091/

C-------------------------------------------------------------------------
C-------------------------------------------------------------------------

Return to thesis table of contents.

Return to Voyager LECP Data Analysis Handbook Table of Contents.
Return to Fundamental Technologies Home Page.

Last modified 12/9/02, Tizby Hunt-Ward
tizby@ftecs.com