CTITLESACSET -- SET COMPONENT NUMBER                                    00010000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR       DANIEL POLAK                                         00020000
CA    DESIGNER     DANIEL POLAK                                         00030000
CA    LANGUAGE     FORTRAN                                              00040000
CA    SYSTEM       IBM AND CRAY                                         00050000
CA    WRITTEN      12-10-86                                             00060000
C     REVISED      12-23-86 ESN. FOR PRODUCTION RELEASE                 00070000
CA                                                                      00080000
CA    CALL SACSET (STYPE, RTYPE, NCOMP)                                 00090000
CA                                                                      00100000
CA    IN/OUT  ARGUMENT  TYPE  DESCRIPTION                               00110000
CA                                                                      00120000
CA    IN      STYPE      CH1  SOURCE TYPE                               00130000
CA                            'X' = IN-LINE SHEAR WAVE                  00140000
CA                            'Y' = CROSS-LINE SHEAR WAVE               00150000
CA                            'Z' = COMPRESSIONAL WAVE                  00160000
CA                            'L' = ARIS LEFT IMPACT                    00170000
CA                            'R' = ARIS RIGHT IMPACT                   00180000
CA                            'F' = ARIS FORE IMPACT                    00190000
CA                            'A' = ARIS AFT IMPACT                     00200000
CA    IN      RTYPE      CH1  RECEIVER COMPONENT                        00210000
CA                            'X' = HORIZONTAL COMPONENT PARALLEL TO THE00220000
CA                             LINE                                     00230000
CA                             'Y' = HORIZONTAL COMPONENT PERPENDICULAR 00240000
CA                             TO THE LINE                              00250000
CA                             'Z' =  VERTICAL COMPONENT                00260000
CA                            TRACES IN THE CURRENT BIN                 00270000
CA    OUT     NCOMP       I4  COMPONENT NUMBER                          00280000
CA                                                                      00290000
CA                                                                      00300000
CA    THIS SUBROUTINE ASSIGNS A COMPONENT NUMBER BASED ON THE TYPE OF   00310000
CA    SOURCE AND RECEIVER COMPONENT.                                    00320000
CA                                                                      00330000
C                                                                       00340000
      SUBROUTINE SACSET (STYPE, RTYPE, NCOMP)                           00350000
C                                                                       00360000
      IMPLICIT INTEGER (A-Z)                                            00370000
C                                                                       00380000
C     CHARACTER VARIABLES -- LOCAL                                      00390000
C                                                                       00400000
      CHARACTER    RTYPE                                                00410000
      CHARACTER    STYPE                                                00420000
C                                                                       00430000
C     TABLE OF COMPONENT NUMBER ASSIGNMENTS                             00440000
C                                                                       00450000
      IF (STYPE .EQ. 'X' .AND. RTYPE .EQ. 'X') NCOMP = 9                00460000
      IF (STYPE .EQ. 'X' .AND. RTYPE .EQ. 'Y') NCOMP = 8                00470000
      IF (STYPE .EQ. 'X' .AND. RTYPE .EQ. 'Z') NCOMP = 7                00480000
      IF (STYPE .EQ. 'Y' .AND. RTYPE .EQ. 'X') NCOMP = 6                00490000
      IF (STYPE .EQ. 'Y' .AND. RTYPE .EQ. 'Y') NCOMP = 5                00500000
      IF (STYPE .EQ. 'Y' .AND. RTYPE .EQ. 'Z') NCOMP = 4                00510000
      IF (STYPE .EQ. 'Z' .AND. RTYPE .EQ. 'X') NCOMP = 3                00520000
      IF (STYPE .EQ. 'Z' .AND. RTYPE .EQ. 'Y') NCOMP = 2                00530000
      IF (STYPE .EQ. 'Z' .AND. RTYPE .EQ. 'Z') NCOMP = 1                00540000
      IF (STYPE .EQ. 'L' .AND. RTYPE .EQ. 'X') NCOMP = 10               00550000
      IF (STYPE .EQ. 'L' .AND. RTYPE .EQ. 'Y') NCOMP = 11               00560000
      IF (STYPE .EQ. 'L' .AND. RTYPE .EQ. 'Z') NCOMP = 12               00570000
      IF (STYPE .EQ. 'R' .AND. RTYPE .EQ. 'X') NCOMP = 13               00580000
      IF (STYPE .EQ. 'R' .AND. RTYPE .EQ. 'Y') NCOMP = 14               00590000
      IF (STYPE .EQ. 'R' .AND. RTYPE .EQ. 'Z') NCOMP = 15               00600000
      IF (STYPE .EQ. 'F' .AND. RTYPE .EQ. 'X') NCOMP = 16               00610000
      IF (STYPE .EQ. 'F' .AND. RTYPE .EQ. 'Y') NCOMP = 17               00620000
      IF (STYPE .EQ. 'F' .AND. RTYPE .EQ. 'Z') NCOMP = 18               00630000
      IF (STYPE .EQ. 'A' .AND. RTYPE .EQ. 'X') NCOMP = 19               00640000
      IF (STYPE .EQ. 'A' .AND. RTYPE .EQ. 'Y') NCOMP = 20               00650000
      IF (STYPE .EQ. 'A' .AND. RTYPE .EQ. 'Z') NCOMP = 21               00660000
C                                                                       00670000
      RETURN                                                            00680000
C                                                                       00690000
      END                                                               00700000