Voyager LECP Data Analysis Handbook

Instrument Modeling Reports

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.

VOYAGER 1 ELAPSED TIME

VOYAGER 2 ELAPSED TIME

QUICK FACTS

RELATED LINKS