96 SUBROUTINE slamrg( N1, N2, A, STRD1, STRD2, INDEX )
103 INTEGER N1, N2, STRD1, STRD2
113 INTEGER I, IND1, IND2, N1SV, N2SV
119 IF( strd1.GT.0 )
THEN
124 IF( strd2.GT.0 )
THEN
132 IF( n1sv.GT.0 .AND. n2sv.GT.0 )
THEN
133 IF( a( ind1 ).LE.a( ind2 ) )
THEN
subroutine slamrg(n1, n2, a, strd1, strd2, index)
SLAMRG creates a permutation list to merge the entries of two independently sorted sets into a single...