SLAMRG - will create a permutation list which will merge
the elements of A (which is composed of two independently
sorted sets) into a single set which is sorted in ascend
ing order
SYNOPSIS
SUBROUTINE SLAMRG( N1, N2, A, STRD1, STRD2, INDEX )
INTEGER N1, N2, STRD1, STRD2
INTEGER INDEX( * )
REAL A( * )
PURPOSE
SLAMRG will create a permutation list which will merge the
elements of A (which is composed of two independently
sorted sets) into a single set which is sorted in ascend
ing order.
ARGUMENTS
N1 (input) INTEGER
N2 (input) INTEGER These arguements contain the
respective lengths of the two sorted lists to be
merged.
A (input) REAL array, dimension (N1+N2)
The first N1 elements of A contain a list of num
bers which are sorted in either ascending or
descending order. Likewise for the final N2 ele
ments.
STRD1 (input) INTEGER
STRD2 (input) INTEGER These are the strides to be
taken through the array A. Allowable strides are 1
and -1. They indicate whether a subset of A is
sorted in ascending (STRDx = 1) or descending
(STRDx = -1) order.
INDEX (output) INTEGER array, dimension (N1+N2)
On exit this array will contain a permutation such
that if B( I ) = A( INDEX( I ) ) for I=1,N1+N2,
then B will be sorted in ascending order.
Man(1) output converted with
man2html