ADAS Subroutine xxmerg

       subroutine xxmerg( g1   , n1  ,
     &                    g2   , n2   , 
     &                    grid , num
     &                  )

C-----------------------------------------------------------------------
C
C ROUTINE: xxmerg
C
C PURPOSE: Merges two grids and eliminates any duplicate entries.
C
C CALLING PROGRAM: general use
C
C  input : (i*4)  ndeng    = maximum number of energies in adf35 file.
C  input : (i*4)  ndedge   = maximum number of energy edges in adf35 file.
C  input : (i*4)  ieng     = actual number of energies.
C
C
C  ROUTINES:
C          ROUTINE    SOURCE    BRIEF DESCRIPTION
C          ------------------------------------------------------------
C          d1merg     NETLIB    Merge two strings of ascending numbers.
C          dcopy      NETLIB    Copies a vector, x, to a vector, y.
C
C  NOTES: The netlib routines form part of this file.
C
C  VERSION  : 1.1                          
C  DATE     : 01-08-2003
C  MODIFIED : Martin O'Mullane
C              - First version.
C
C  VERSION  : 1.2
C  DATE     : 16-02-2005
C  MODIFIED : Martin O'Mullane
C              - Increase number of steps, initialize grid and perform
C                more checks when filling grid().
C
C-----------------------------------------------------------------------

C-----------------------------------------------------------------------
      INTEGER             N1,          N2,          NUM
      REAL*8              G1(*),       G2(*),       GRID(*)
      DOUBLE PRECISION    TCOS(*)
      INTEGER             I1,          I2,          I3,          M1
      INTEGER             M2
      INTEGER             INCX,        INCY,        N
      REAL*8              DX(*),       DY(*)