d1merg.f
SUBROUTINE D1MERG (TCOS, I1, M1, I2, M2, I3)
C***BEGIN PROLOGUE D1MERG
....
....
Warning: this routine is not intended to be user-callable.
....
....
C***SUBSIDIARY
C***PURPOSE Merge two strings of ascending double precision numbers.
C***LIBRARY SLATEC
C***TYPE DOUBLE PRECISION (S1MERG-S, D1MERG-D, CMERGE-C, I1MERG-I)
C***AUTHOR Boland, W. Robert, (LANL)
C Clemens, Reginald, (PLK)
C***DESCRIPTION
C
C This subroutine merges two ascending strings of numbers in the
C array TCOS. The first string is of length M1 and starts at
C TCOS(I1+1). The second string is of length M2 and starts at
C TCOS(I2+1). The merged string goes into TCOS(I3+1).
C
C This routine is currently unused, but was added to complete
C the set of routines S1MERG and C1MERG (both of which are used).
C
C***ROUTINES CALLED DCOPY
C***REVISION HISTORY (YYMMDD)
C 910819 DATE WRITTEN
C***END PROLOGUE D1MERG