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

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