C***********************************************************************
C     THIS SUBROUTINE IS DESIGNED TO PLOT THE SIGHTING DISTANCE .VS.
C     THE SINE OF THE SIGHTING ANGLE AND/OR THE COMPUTED SIGHTING ANGLE
C     .VS. THE MEASURED SIGHTING ANGLE.
C***********************************************************************
      SUBROUTINE CRSPLT
      INCLUDE 'PARMTR.INC'
C***********************************************************************
C     DECLARATIONS
C***********************************************************************
      CHARACTER*1 XT1(36), XT2(36), YT1(36), YT2(36), CHAR
      INTEGER CNT, STATUS
      LOGICAL WARN
C***********************************************************************
C     COMMON STATEMENTS
C***********************************************************************
      COMMON /NUM/ XL(MAXLIN), WIDTH, N, CNT, CONV(3), VARN, IDF, WARN
      COMMON /MEASUR/ DATA(MAXOBJ,5)
      COMMON /IND/ IC, II, IREP, STATUS
C***********************************************************************
C     DATA STATEMENTS
C***********************************************************************
      DATA CHAR /'*'/
      DATA YT2 /' ',' ',' ',' ',' ',' ','C','o','m','p','u','t','e','d',
     1 ' ','S','i','g','h','t','i','n','g',' ','A','n','g','l','e',' ',
     2 ' ',' ',' ',' ',' ',' '/
      DATA YT1 /' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','S','i','n','e',
     1 ' ','o','g',' ','t','h','e',' ','A','n','g','l','e',' ',' ',' ',
     2 ' ',' ',' ',' ',' ',' '/
      DATA XT1 /' ',' ',' ',' ',' ',' ','S','i','g','h','t','i','n','g',
     1 ' ','D','i','s','t','a','n','c','e',' ',' ',' ',' ',' ',' ',' ',
     2 ' ',' ',' ',' ',' ',' '/
      DATA XT2 /' ',' ',' ',' ',' ',' ','M','e','a','s','u','r','e','d',
     1 ' ','S','i','g','h','t','i','n','g',' ','A','n','g','l','e',' ',
     2 ' ',' ',' ',' ',' ',' '/
C***********************************************************************
C     CALL OF THE NECESSARY ROUTINES TO SCALE AND PRINT THE PLOT FOR
C     SIGHTING DISTANCE .VS. THE SIGHTING ANGLE SINE.
C***********************************************************************
      CALL SETUP
      CALL CLEAR
      XMAX=DATA(1,2)
      DO 10 I=2,N
      IF (XMAX.LT.DATA(I,2)) XMAX=DATA(I,2)
   10 CONTINUE
      CALL DVSION (0.,XMAX,0.,1.)
      DO 20 I=1,N
      X=DATA(I,2)
      Y=DATA(I,5)
   20 CALL PLT (CHAR,X,Y)
      CALL HEADER (1)
      WRITE (6,40)
      CALL PRNT (XT1,YT1)
C***********************************************************************
C     CALL ALL OF THE NECESSARY ROUTINES TO SCALE AND PRINT THE PLOT FOR
C     COMPUTED SIGHTING ANGLE .VS. MEASURED SIGHTING ANGLE ONLY IF ALL
C     THREE MEASUREMENTS HAVE BEEN RECORDED(I.E.,STATUS=4)
C***********************************************************************
      IF (STATUS.NE.4) RETURN
      CALL CLEAR
      CALL DVSION (0.,90.,0.,90.)
      DO 30 I=1,N
      X=DATA(I,3)
      Y=DATA(I,4)
   30 CALL PLT (CHAR,X,Y)
      CALL HEADER (1)
      WRITE (6,50)
      CALL PRNT (XT2,YT2)
C***********************************************************************
C     FORMAT STATEMENTS
C***********************************************************************
      RETURN
C
   40 FORMAT (/7X,'Crossplot of the Sine of the Angle and the',
     1' Sighting Distance'/)
   50 FORMAT (/7X,'Crossplot of the Computed Angle and the',
     1' Measured Angle'/)
      END