CTITLEMAXENT -- COMPUTES MAX ENTROPY WAVELET                            00000010
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA       AUTHOR                 J. E. BROWN                             00000020
CA       DESIGNER               J. E. BROWN                             00000030
CA       LANGUAGE               FORTRAN 77                              00000040
CA       SYSTEM                 IBM & CRAY                              00000041
CA       WRITTEN                12/18/75                                00000050
CA       REVISED                01/15/76                                00000060
C        REVISED                05/20/85 TWH. ADAPTED TO RUN ON IBM &   00000061
C                                        CRAY SYSTEMS.                  00000062
C                                                                       00000070
CA                                                                      00000080
CA                                                                      00000090
CA       CALL MAXENT (R, NT, S, LS)                                     00000100
CA             INPUT  R      = INPUT TRACE                         R4   00000110
CA             INPUT  NT     = LENGTH OF R (3000 LIMIT)            I4   00000120
CA             OUTPUT S      = MAX ENTROPY WAVELET                 R4   00000130
CA             INPUT  LS     = LENGTH OF S (200 LIMIT)             I4   00000140
CA                                                                      00000150
CA                                                                      00000160
C                                                                       00000170
C    SUBROUTINES CALLED: MLATDC                                         00000180
C                        MSIGES                                         00000190
C     EJECT                                                             00000200
C                                                                       00000210
      SUBROUTINE MAXENT (R, NT, S, LS)                                  00000220
CAEND                                                                   00000230
C                                                                       00000240
      DIMENSION R(NT),S(LS)                                             00000250
      DOUBLE PRECISION C,U                                              00000251
      DIMENSION C(200),U(3000)                                          00000260
      DATA  C  / 200 * 0.0 /                                            00000261
      DATA  U  / 3000 * 0.0 /                                           00000262
      CALL MLATDC(R,NT,C,LS,U)                                          00000270
      CALL MSIGES(S,C,LS)                                               00000280
      RETURN                                                            00000290
      END                                                               00000300