C
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CTITLESADM3DC -  DETERMINE THE VA AND SUMMING FLAG
CA
CA   DESIGNER     JAMES SUN
CA   AUTHOR       JAMES SUN
CA   LANGUAGE     FORTRAN 77
CA   SYSTEM       CRAY AND IBM
CA   WRITTEN      12/03/87
C    REVISED      12/17/91  JJC - MODIFIED TO MEET SPARC STANDARDS.
CA
CA CALLING PROCEDURE:
CA    SUBROUTINE SADM3DC(INDXV,INDYV)                                   15520018
CA                                                                      15550016
C   CALLING ARGUMENTS
CA
CA     OUTPUT     INDXV   = THE DEPTH POINT ARRAY FOR VA.        I4
CA     OUTPUT     INDYV   = THE LINE NUMBER ARRAY FOR VA.        I4
C
      SUBROUTINE SADM3DC(INDXV,INDYV)                                   15560018
C                                                                       15580000
C
      IMPLICIT INTEGER (A-Z)                                            15570008
C                                                                       15580000
C
      COMMON  /USER/ SLOCAL(50),ULOCAL(220)                             15590016
C                                                                       15600016
C
      EQUIVALENCE (IPR     , ULOCAL( 56))                               15610016
      EQUIVALENCE (IVDBEG  , ULOCAL( 68))                               15620016
      EQUIVALENCE (IVDEND  , ULOCAL( 69))                               15630016
      EQUIVALENCE (IVDINC  , ULOCAL( 70))                               15640016
      EQUIVALENCE (IVLBEG  , ULOCAL( 72))                               15650016
      EQUIVALENCE (IVLEND  , ULOCAL( 73))                               15660016
      EQUIVALENCE (IVLINC  , ULOCAL( 75))                               15670016
      EQUIVALENCE (MXSUM   , ULOCAL(122))                               15680016
      EQUIVALENCE (MYSUM   , ULOCAL(124))                               15690016
      EQUIVALENCE (NXV     , ULOCAL(143))                               15700016
      EQUIVALENCE (NYV     , ULOCAL(146))                               15710016
C                                                                       15720000
C
      INTEGER INDXV(1),INDYV(1)                                         15730000
C                                                                       15740000
C                                                                       15750000
      CALL ARSET(INDXV,NXV,-9999)                                       15760000
      IJX0=1-(IVDBEG-MXSUM)                                             15770000
      IVD=0                                                             15780000
      DO 100 IX=IVDBEG,IVDEND,IVDINC                                    15790000
        IVD=IVD+1                                                       15800000
        JX=IX-MXSUM+IJX0                                                15810000
        DO 100 IXSUM=-MXSUM,MXSUM                                       15820000
          INDXV(JX)=IVD                                                 15830000
          JX=JX+1                                                       15840000
  100 CONTINUE                                                          15850000
C                                                                       15860000
C
      CALL ARSET(INDYV,NYV,-9999)                                       15890000
      IJY0=1-(IVLBEG-MYSUM)                                             15900000
      IVL=0                                                             15910000
      DO 120 IY=IVLBEG,IVLEND,IVLINC                                    15920000
        IVL=IVL+1                                                       15930000
        JY=IY-MYSUM+IJY0                                                15940000
        DO 120 IYSUM=-MYSUM,MYSUM                                       15950000
          INDYV(JY)=IVL                                                 15960000
          JY=JY+1                                                       15970000
  120 CONTINUE                                                          15980000
C                                                                       15990000
C                                                                       16000000
      RETURN                                                            16010000
      END                                                               16020000