Subroutine */
| 16395 | } /* dlalsd_ */ |
| 16396 | |
| 16397 | /* Subroutine */ int dlamrg_(integer *n1, integer *n2, doublereal *a, integer |
| 16398 | *dtrd1, integer *dtrd2, integer *index) |
| 16399 | { |
| 16400 | /* System generated locals */ |
| 16401 | integer i__1; |
| 16402 | |
| 16403 | /* Local variables */ |
| 16404 | static integer i__, ind1, ind2, n1sv, n2sv; |
| 16405 | |
| 16406 | |
| 16407 | /* |
| 16408 | -- LAPACK routine (version 3.2) -- |
| 16409 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 16410 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 16411 | November 2006 |
| 16412 | |
| 16413 | |
| 16414 | Purpose |
| 16415 | ======= |
| 16416 | |
| 16417 | DLAMRG will create a permutation list which will merge the elements |
| 16418 | of A (which is composed of two independently sorted sets) into a |
| 16419 | single set which is sorted in ascending order. |
| 16420 | |
| 16421 | Arguments |
| 16422 | ========= |
| 16423 | |
| 16424 | N1 (input) INTEGER |
| 16425 | N2 (input) INTEGER |
| 16426 | These arguments contain the respective lengths of the two |
| 16427 | sorted lists to be merged. |
| 16428 | |
| 16429 | A (input) DOUBLE PRECISION array, dimension (N1+N2) |
| 16430 | The first N1 elements of A contain a list of numbers which |
| 16431 | are sorted in either ascending or descending order. Likewise |
| 16432 | for the final N2 elements. |
| 16433 | |
| 16434 | DTRD1 (input) INTEGER |
| 16435 | DTRD2 (input) INTEGER |
| 16436 | These are the strides to be taken through the array A. |
| 16437 | Allowable strides are 1 and -1. They indicate whether a |
| 16438 | subset of A is sorted in ascending (DTRDx = 1) or descending |
| 16439 | (DTRDx = -1) order. |
| 16440 | |
| 16441 | INDEX (output) INTEGER array, dimension (N1+N2) |
| 16442 | On exit this array will contain a permutation such that |
| 16443 | if B( I ) = A( INDEX( I ) ) for I=1,N1+N2, then B will be |
| 16444 | sorted in ascending order. |
| 16445 | |
| 16446 | ===================================================================== |
| 16447 | */ |
| 16448 | |
| 16449 | |
| 16450 | /* Parameter adjustments */ |
| 16451 | --index; |
| 16452 | --a; |
| 16453 | |
| 16454 | /* Function Body */ |