100 SUBROUTINE slamrg( N1, N2, A, STRD1, STRD2, INDEX )
108 INTEGER N1, N2, STRD1, STRD2
118 INTEGER I, IND1, IND2, N1SV, N2SV
124 IF( strd1.GT.0 )
THEN
129 IF( strd2.GT.0 )
THEN
137 IF( n1sv.GT.0 .AND. n2sv.GT.0 )
THEN
138 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...