C                                                                       21830000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CTITLESADM3DN - UPDATE TRACE HEADER VALUES                              21840000
CA                                                                      21850000
CA   DESIGNER     JAMES SUN                                             21860000
CA   AUTHOR       JAMES SUN                                             21870000
CA   LANGUAGE     FORTRAN 77                                            21880000
CA   SYSTEM       CRAY/IBM                                              00100000
CA   WRITTEN      12/02/87                                              21900000
C    REVISED      12/17/91  JJC - MODIFIED TO MEET SPARC STANDARDS.
C                                                                       21910000
C
C    PURPOSE: : UPDATE TRACE HEADER VALUES                              21920000
C                                                                       21930000
C
CA
CA CALLING PROCEDURE:
CA     SUBROUTINE SADM3DN(IVO,IVD,IDPDE,ISMDE,IDPEL,IFLV,INNER,IA,
CA    +  NVO,NVD,IFLAG)
CA
C   CALLING ARGUMENTS
CA
CA   INPUT   IVO       : OFFSET DISTANCE INDEX                        I421960000
CA   INPUT   IVD       : DEPTH POINT INDEX                            I421970000
CA   INPUT   IDPDE     : HEADER VALUE FROM INPUT TRACE                I421980000
CA   INPUT   ISMDE     : HEADER VALUE FROM INPUT TRACE                I421990000
CA   INPUT   IDPEL     : HEADER VALUE FROM INPUT TRACE                I422000000
CA   INPUT   IFLV      : FIRST LIVE VALUE                             I422010000
CA   INPUT   INNER     : INNER MUTE VALUE                             I422020000
CA   INPUT   NVO       : NUMBER OF OFFSET DISTANCES TO OUTPUT         I422030000
CA   INPUT   NVD       : NUMBER OF DEPTH POINTS TO OUTPUT             I422040000
CA   INPUT   IFLAG     : FIRST TIME EXECUTION FLAG                    I422050000
CA   OUTPUT  IA        : ARRAY TO STORE TRACE HEADER VALUE            I422060000
C
      SUBROUTINE SADM3DN(IVO,IVD,IDPDE,ISMDE,IDPEL,IFLV,INNER,IA,       22070000
     +  NVO,NVD,IFLAG)                                                  22080000
C                                                                       22100000
C
      IMPLICIT INTEGER (A-Z)                                            22090008
C                                                                       22100000
C
      DIMENSION IA(NVO,NVD,1)                                           22110000
C                                                                       22120000
C                                                                       22130000
      IA(IVO,IVD,2)=IA(IVO,IVD,2)+1                                     22140000
C                                                                       22150000
C
      IA(IVO,IVD,6)=MIN0(IA(IVO,IVD,6),IFLV)                            22160000
      IA(IVO,IVD,7)=MAX0(IA(IVO,IVD,7),INNER)                           22170000
C                                                                       22180000
C
      IF(IFLAG.EQ.0) THEN                                               22190000
C                                                                       22200000
C
        IA(IVO,IVD,3)=IDPDE                                             22210000
        IA(IVO,IVD,4)=ISMDE                                             22220000
        IA(IVO,IVD,5)=IDPEL                                             22230000
C                                                                       22240000
C
      ELSE                                                              22250000
C                                                                       22260000
C
        IF(IA(IVO,IVD,3).EQ.0 .AND. IDPDE.NE.0) THEN                    22270000
          IA(IVO,IVD,3)=IDPDE                                           22280000
        ENDIF                                                           22290000
C                                                                       22300000
C
        IF(IA(IVO,IVD,4).EQ.0 .AND. ISMDE.NE.0) THEN                    22310000
          IA(IVO,IVD,4)=ISMDE                                           22320000
        ENDIF                                                           22330000
C                                                                       22340000
C
        IF(IA(IVO,IVD,5).EQ.0 .AND. ISMDE.NE.0) THEN                    22350000
          IA(IVO,IVD,5)=IDPEL                                           22360000
        ENDIF                                                           22370000
C                                                                       22380000
C
      ENDIF                                                             22390000
C                                                                       22400000
C                                                                       22410000
      RETURN                                                            22420000
      END                                                               22430000