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

**********************************************************************
* PURPOSE : THIS PROGRAM IS THE MAIN ROUTINE IN A SET OF ROUTINES TO *
*          PLOT THE PROJECTIONS OF THE MODELLED SENSOR SUBSYSTEM ON  *
*          THE XY AND THE YZ PLANE.                                  *
* PROGRAMS TO BE LINKED : FDLNCOORPRO, PLOTR5, PLOTR1                *
* DESCRIPTION : (1) FDLNCOORPRO:THIS PROGRAM OPENS THE FILES OF COOR *
*             -DINATES FROM WHICH THE PROJECTIONS ON THE XZ AND THE  *
*              YZ PLANE OF THE SENSOR SUBSYSTEM ARE TO BE PLOTTED.   *
*              FIRST TIME OF THE LOOP, THE PROJECTION ON THE XZ PLANE*
*              SHOULD BE PLOTTED AND THEN THE PROJECTION ON THE YZ   *
*              PLANE SHOULD BE PLOTTED.                              *
*              (2) PLOTR5, PLOTR1 : PLOT ROUTINES WHICH USE NCAR GRAP*
*              -HICS TO PLOT THE GRAPHS.                             *
**********************************************************************
 

      PARAMETER (NB=50,NN=1000)
      REAL XYZ(6),X(NB,NN),Y(NB,NN)
      INTEGER NPT(NB)
      CHARACTER*72 FNAME,TITLE,XLAB,YLAB
      DO I=1,2
        NC = I
        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,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
        IF (I .EQ. 1) THEN
          CALL PLOTR5(X,Y,NPT,NLN,TITLE,XLAB,YLAB,LNPT,LNK)
        ELSE
          CALL PLOTR1(X,Y,NPT,NLN,TITLE,XLAB,YLAB,LNPT,LNK,0)
        END IF
        IF (I .EQ. 1) CALL FRAME
      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(3(X,f9.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