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

***********************************************************************
* PURPOSE : THIS PROGRAM IS A GENERAL ROUTINE TO PLOT FOUR PLOTS ON A *
*           PAGE. THIS ROUTINE WAS USED TO PLOT THE ANGULAR DISTRIBUT *
*          -IONS OF THE PARTICLES THAT ESCAPE THE SENSOR SUBSYSTEM AT *
*           THE DETECTOR SURFACE AND AT THE OPENING APERTURE.         *
* VARIABLES :                                                         *
* FNAME : NAME OF THE FILE FROM WHICH THE COORDINATES TO BE PLOTTED   *
*        ARE READ.                                                    *
* Ho,Vo : NUMBERS WHICH SPECIFY THE COORDINATE TO BE PLOTTED ON THE X *
*        AXIS AND THE Y-AXIS.                                         *
* NP : NUMBER OF PLOTS REQUIRED ON A PAGE.                            *
* 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=1500)
      REAL XYZ(6),X(NB,NN),Y(NB,NN)
      INTEGER NC,NPT(NB),NP
      CHARACTER*72 FNAME,TITLE,XLAB,YLAB
     

      WRITE(6,*) 'ENTER NP:,NOS.OR PLOTS ON A PAGE'
      READ (5,*) NP

      WRITE(6,*) 'ENTER THE TITLE'
      WRITE(6,'(A,$)') ' --> '
      READ(5,'(A)') TITLE
  

      DO NC=1,NP

       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)
       READ (1,*)
 2     NPOINT = 0
       READ(1,*,END=70) NLN
 3     READ(1,19,ERR=2) (XYZ(M),M=1,2)
       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       
       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 PLOTR4(NC, X,Y,NPT,NLN,TITLE,XLAB,YLAB,LNPT,LNK)
      END DO   

      CALL FLUSH

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