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

VOYAGER 1 ELAPSED TIME

VOYAGER 2 ELAPSED TIME

QUICK FACTS

RELATED LINKS