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

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