CTITLEMCNT   -- ANALYZE THE IND ARRAY                                   00000010
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA     AUTHOR              D. THOMPSON                                  00000020
CA     DESIGNER            D. THOMPSON                                  00000030
CA     LANGUAGE            VS FORTRAN                                   00000040
CA     SYSTEM              IBM OR CRAY                                  00000041
CA     WRITTEN             SPRING 76                                    00000050
CA     REVISED             D.D. REED 2/16/77                            00000060
CA     REVISED             R.PROBST 6/26/79 ADD CALLS TO USBUFR         00000070
CA     REVISED             M. PONTON 4/29/86 MOVE TO CRAY.              00000071
CA                                                                      00000080
CA     CALL MCNT (IND, KSURF, NT, LD, LR, LS, W, BUFV)                  00000090
CA                                                                      00000100
CA          INPUT  : IND    = BIASED STACKING TABLES                 I4 00000110
CA                            MIN. DIMENSION (3,NT)                     00000120
CA                            IND(1,I) = BIASED CDP INDEX FOR TRACE I   00000130
CA                            IND(2,I) = BIASED REC. INDEX FOR TRACE I  00000140
CA                            IND(3,I) = BIASED SHOT INDEX FOR TRACE I  00000150
CA          OUTPUT : KSURF  = FOLD INDICATOR ARRAY.                  I2 00000160
CA          INPUT  : NT     = NUMBER OF TRACES                       I4 00000170
CA          INPUT  : LD     = > OR = THE LAST BIASED CDP INDEX       I4 00000180
CA          INPUT  : LR     = > OR = THE LAST BIASED REC. INDEX      I4 00000190
CA          INPUT  : LS     = > OR = THE LAST BIASED SHOT INDEX      I4 00000200
CA          INPUT  : W      = TRACE WEIGHTING ARRAY                  R4 00000210
CA          INPUT  : BUFV   = USBUFR VARIABLE ARRAY                  I4 00000220
CA                                                                      00000230
CA          THIS ROUTINE IS CALLED BY MCNGRD TO ANALYZE THE IND ARRAY   00000240
CA          IT COMPUTES KSURF, THE SOLUTION FOLD INDICATOR ARRAY.       00000250
C                                                                       00000260
      SUBROUTINE MCNT (IND, KSURF, NT, LD, LR, LS, W, BUFV)             00000270
C                                                                       00000280
      INTEGER   IND(1), BUFV(4), DA                                     00000290
      INTEGER*2 KSURF(1)                                                00000300
      REAL      W(1)                                                    00000310
C                                                                       00000320
C               FLAG APPEARANCE OF EACH CDP REC. AND SHOT IN KSURF.     00000330
C                                                                       00000340
      DO                                                              1000000350
     *  I = 1, LD                                                       00000360
   10 KSURF(I)=0                                                        00000370
      M=LD+1                                                            00000380
      DO                                                              4000000390
     * I = M, LS                                                        00000400
   40 KSURF(I)=0                                                        00000410
      DA = 1                                                            00000420
      I = 1                                                             00000430
      CALL USBUFR (0, IND, BUFV, DA, I)                                 00000440
      DO                                                              5000000450
     * J = 1, NT                                                        00000460
      IF  (W(I) .EQ. 0.0)  GO TO                                      4500000470
      K=IND(I)                                                          00000480
      KR=IND(I+1)                                                       00000490
      KS=IND(I+2)                                                       00000500
      KSURF(K) = 1                                                      00000510
      KSURF(KR) = 1                                                     00000520
      KSURF(KS) = 1                                                     00000530
   45 CONTINUE                                                          00000540
      CALL USBUFR (2, IND, BUFV, DA, I)                                 00000550
   50 CONTINUE                                                          00000560
      RETURN                                                            00000570
      END                                                               00000580