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.12 FDLNBET

************************************************************************
* PURPOSE : THIS PROGRAM IS A VERY GENERAL ROUTINE FOR PLOTS. IT ASKS  *
*         THE USER FOR THE NAME OF THE FILE FROM WHICH THE VALUES WHICH*
*         ARE TO BE PLOTTED ON THE X-AXIS AND THE Y-AXIS ARE READ.     *
*         THIS ROUTINE WAS USED TO PLOT THE PROJECTIONS OF THE TRAJECTO*
*         RIES AND THE MODELLED SENSOR SUBSYSTEM ON THE XY AND THE YZ  *
*         PLANES.                                                      *
* VARIABLES :                                                          *
* INPUT :                                                              *
* FNAME : NAME OF THE FILE FROM WHICH THE VALUES THAT ARE TO BE PLOTTED*
*        ON THE X-AXIS AND THE Y-AXIS ARE READ.                        *
* Ho,Vo : NUMBERS WHICH SPECIFY THE COORDINATE TO BE PLOTTED ON THE X- *
*        AXIS AND THE Y-AXIS.                                          *
* X, Y : 2-D ARRAYS WHOSE NUMBER OF ROWS EQUALS THE NUMBER OF LINES TO *
*       BE PLOTTED AND THE NUMBER OF COLUMNS FOR EACH ROW EQUALS THE   *
*       NUMBER OF POINTS IN EACH ROW.                                  *
* TITLE, XLAB, YLAB : RESPECTIVELY, THE TITLE OF THE PLOT, THE X-LABEL *
*                    AND THE Y-LABEL OF THE GRAPH.                     *
* XYZ : 1-D ARRAY INTO WHICH THE COORDINATES ARE READ INTO.            *
************************************************************************
 

      PROGRAM FDLNPLOT

      PARAMETER (NB=50,NN=1000)
      REAL XYZ(6),X(NB,NN),Y(NB,NN)
      INTEGER NPT(NB)
      CHARACTER*72 FNAME,TITLE,XLAB,YLAB

      NC = 1
      WRITE(6,5) NC
      READ(5,10) FNAME
      WRITE(6,*) 'ENTER INTEGERS FOR HORIZONTOL AND VERTICAL AXES:' 
      WRITE(6,12)
      READ (5,*) Ho,Vo
      OPEN (UNIT=1,STATUS='OLD',FILE=FNAME)
 2    READ (1,*)
      NPOINT = 0
      READ(1,*,END=70) NLN
 3    READ(1,19,ERR=2) (XYZ(M),M=1,3)
      NPOINT = NPOINT+1
      X(NLN,NPOINT) = XYZ(Ho)
      Y(NLN,NPOINT) = XYZ(Vo)
      NPT(NLN) = NPOINT
      GO TO 3
 70   CLOSE(1)
      PRINT *,'NLN: ',NLN       
      IF (NC .EQ. 1) THEN
        WRITE(6,*) 'ENTER THE TITLE'
        WRITE(6,'(A,$)') ' --> '
        READ(5,'(A)') TITLE
      END IF
      WRITE(6,*) 'ENTER THE X-LABEL'
      WRITE(6,'(A,$)') '--> '
      READ (5,'(A)') XLAB
   

      WRITE(6,*) 'ENTER THE Y-LABEL'
      WRITE(6,'(A,$)') '--> '
      READ (5,'(A)') YLAB
    

      WRITE(6,*) 'ENTER LNPT,LNK'
      READ(5,*) LNPT,LNK

      CALL PLOTR1(X,Y,NPT,NLN,TITLE,XLAB,YLAB,LNPT,LNK,0)
      CALL FLUSH

 5    FORMAT(X,'ENTER THE NAME OF THE FILE: ',I3)
 10   FORMAT(A72)
 12   FORMAT(X,'X---1',/, ' Y---2',/,' Z---3')
c 19   FORMAT(3(X,f9.6))
 19   FORMAT(3(X,F13.6))
      STOP 
      END
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