C
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
C      SUBROUTINE LEGEND (XMAX,YMAX,SIZE,IAUTO,IHEAD)
       SUBROUTINE SACOR2 (XMAX,YMAX,SIZE,IAUTO,IHEAD)
C
C
C
C      AUTHOR                    W. R. FIELDER
C      WRITTEN                   03/28/85
C
C      PURPOSE: THIS SUBROUTINE SELECTS THE PROPER LEGEND AND WRITES
C               IT ON THE PLOTS OF THE PROCESS SDCORA.
C
C
C
      COMMON /SYSTEM/ SYSTEM
      COMMON /SYSTEM/ SYBYPW
      COMMON /SYSTEM/ SYLOCF
      COMMON /SYSTEM/ JAPNMS(4)
C
       DIMENSION INDX (10)
       CHARACTER*16 OFF(10)
       INTEGER S1CPCH
       LOGICAL CRAY
C
C        SET UP PLOT LEGEND SYMBOLS TO AGREE WITH SUBROUTINE PLTLOG
C
       DATA INDX /11, 2, 4, 1, 0, 14, 5, 12, 52, 6 /
C
C        SET UP LEGEND STATEMENTS FOR AUTO-CORR AND OFFSET GROUPS
C
       DATA OFF  /'AVERAGE AUTO    ',
     +            'OFFSET GROUP 1  ',
     +            'OFFSET GROUP 2  ',
     +            'OFFSET GROUP 3  ',
     +            'OFFSET GROUP 4  ',
     +            'OFFSET GROUP 5  ',
     +            'OFFSET GROUP 6  ',
     +            'OFFSET GROUP 7  ',
     +            'OFFSET GROUP 8  ',
     +            'OFFSET GROUP 9  ' /
C
C        SET UP LOCATIONS OF HEADINGS FOR THE SEMI-LOG AND LINEAR
C        PLOTS. FOR SEMI-LOG PLOTS THE Y-AXIS IS LOG. THE SEMI-LOG
C        PLOTS OCCUR WHEN IHEAD LE 4. LINEAR PLOT SCALES OCCUR FOR
C        IHEAD=5,6.
C
C        THE X-AXIS IS SAME LENGTH FOR BOTH SEMI-LOG AND LINEAR PLOTS.
C
C        SET UP LOCATION OF HEADINGS FOR LEGENDS NEEDED FOR LONG OUTPUT
C
       XHEAD = XMAX - 5.0
       YHEAD = YMAX -  .5
C
       GO TO (10,20,30,40,50,60), IHEAD
C
 10    CALL SYMBOL(XHEAD,YHEAD,SIZE,'AVERAGE AUTO & CROSS SPECTRA',0.,
     +             28)
       GO TO 100
C
 20    CALL SYMBOL(XHEAD,YHEAD-.25,SIZE,'AUTO-CROSS DIFFERENCE SPECTRA',
     +             0.,29)
       GO TO 100
C
 30    CALL SYMBOL(XHEAD+.25,YHEAD,SIZE,'AVERAGE AMPLITUDE SPECTRA   ',
     +             0.,28)
       GO TO 100
C
 40    CALL SYMBOL(XHEAD-.25,YHEAD-.25,SIZE,
     +             'AVER AUTO & AVER OFFSET DIFFERENCE',0.,34)
       GO TO 100
C
C        SET UP HEADING FOR LINEAR PLOT SCALE
C
 50    CALL SYMBOL(XHEAD,YHEAD,SIZE,
     +             'RATIO OF SIGNAL TO STD. DEV.',0.,28)
       GO TO 100
C
C        SET UP HEADING FOR LINEAR PLOT SCALE
C
 60    CALL SYMBOL(XHEAD,YHEAD-0.25,SIZE,
     +             'ESTIMATED SIGNAL-TO-NOISE RATIO',0.,31)
C
 100   CONTINUE
C
C        SET UP THE LOCATIONS FOR OFFSET LEGENDS AND SYMBOLS
C
C        X-AXIS IS SAME LENGTH FOR SEMI-LOG AND LINEAR PLOTS
C
       XMAX1 = XMAX - 4.0
       XMAX2 = XMAX - 3.75
C
C        SET UP Y-AXIS LOCATION FOR HEADING IN  PLOT LEGEND
C
       YMAX1 = YMAX -  .9375
       YMAX2 = YMAX - 1.0
C
C        CHECK TO SEE IF AUTO TERM IS NEEDED (IAUTO = 1 WHEN NEEDED)
C
                IF (IAUTO .EQ. 0 ) THEN
C
C        SET UP OFFSET GROUP TERMS FOR PLOT LEGENDS
C
                YMAX1 = YMAX - 1.1875
                YMAX2 = YMAX - 1.25
C
C        PROCEED TO HERE DIRECTLY IF AUTO TERM REQUIRED
C
                ELSE
C
C        PRINT OUT AUTO TERM LEGEND AND SYMBOL
C
                CALL SYMBOL(XMAX1,YMAX1,SIZE,INDX(1),0.,-1)
                CALL SYMBOL(XMAX2,YMAX2,SIZE,OFF(1),0.,14)
C
                YMAX1 = YMAX1 - .25
                YMAX2 = YMAX2 - .25
C
                END IF
C
C
C        IF NO AUTO TERM NEEDED THEN PROCEED DIRECTLY TO HERE,
C        OTHERWISE WE START HERE FOR THE OFFSET GROUPS FOR THE
C        CROSS-CORRELATION PLOTS (9 OFFSET GROUPS)
C
       DO 200 I = 2, 10
       CALL SYMBOL(XMAX1,YMAX1,SIZE,INDX(I),0.,-1)
       CALL SYMBOL(XMAX2,YMAX2,SIZE,OFF(I),0.,14)
       YMAX1 = YMAX1 - .25
       YMAX2 = YMAX2 - .25
C
 200   CONTINUE
C
C
       RETURN
C
C      ENTRY LEGEN1  (XMAX,YMAX,SIZE)
       ENTRY SACOR3  (XMAX,YMAX,SIZE)
C
C      CRAY = .FALSE.
C      IF(S1CPCH(SYSTEM,1,'CRAY',1,4).EQ.0) CRAY = .TRUE.
C
C        THIS ENTRY PRINTS LEGEND AND SYMBOL WHEN THE INDIVIDUAL
C        OFFSET GROUPS ARE PLOTTED. (PLTYPE 1 AND 3)
C
       XMAX1 = XMAX - 3.0
       XMAX2 = XMAX - 2.75
C
       YMAX1 = YMAX - .43755
       YMAX2 = YMAX  - .5
       YMAX31= YMAX1 - .5
       YMAX42= YMAX2 - .5
       YMAX51= YMAX31- .5
       YMAX62= YMAX42- .5
C
       CALL SYMBOL(XMAX1,YMAX1,SIZE,11,0.,-1)
       CALL SYMBOL(XMAX2,YMAX2,SIZE,'AVER-POWER',0.,10)
C
       CALL SYMBOL(XMAX1,YMAX31,SIZE,04,0.,-1)
       CALL SYMBOL(XMAX2,YMAX42,SIZE,'STD. DEV.',0.,09)
C
       IC = 00
       ICODE = -1
C      IF (CRAY) THEN
C      CALL S1MVCH('+   ',1,IC,1,4)
C      ICODE = 1
C      ENDIF
C
       CALL SYMBOL(XMAX1,YMAX51,SIZE,IC,0.,ICODE)
       CALL SYMBOL(XMAX2,YMAX62,SIZE,'CROSS-POWER',0.,11)
C
       RETURN
C
C
C      ENTRY LEGEN2  (XMAX,YMAX,SIZE)
       ENTRY SACOR4  (XMAX,YMAX,SIZE)
C
C      CRAY = .FALSE.
C      IF(S1CPCH(SYSTEM,1,'CRAY',1,4).EQ.0) CRAY = .TRUE.
C
C        THIS ENTRY PRINTS LEGEND AND SYMBOL FOR THE SHORT OUTPUT
C        SPECTRAL PLOTS. (PLTYPE = 2)
C
       XMAX1 = XMAX - 3.0
       XMAX2 = XMAX - 2.75
C
       YMAX1 = YMAX - .43755
       YMAX2 = YMAX  - .5
       YMAX31= YMAX1 - .5
       YMAX42= YMAX2 - .5
       YMAX51= YMAX31- .5
       YMAX62= YMAX42- .5
C
       CALL SYMBOL(XMAX1,YMAX1,SIZE,11,0.,-1)
       CALL SYMBOL(XMAX2,YMAX2,SIZE,'AUTO-POWER',0.,10)
C
       IC = 02
       ICODE = -1
C      IF (CRAY) THEN
C      CALL S1MVCH('+   ',1,IC,1,4)
C      ICODE = 1
C      ENDIF
C
       CALL SYMBOL(XMAX1,YMAX31,SIZE,IC,0.,ICODE)
       CALL SYMBOL(XMAX2,YMAX42,SIZE,'CROSS-POWER',0.,11)
C
       RETURN
C
       END