[ новости /+++ | форум | теги | ]

NAME
     slapmt - rearrange the columns of the M by  N  matrix  X  as
     specified  by  the  permutation  K(1),K(2),...,K(N)  of  the
     integers 1,...,N

SYNOPSIS
     SUBROUTINE SLAPMT( FORWRD, M, N, X, LDX, K )

     LOGICAL FORWRD

     INTEGER LDX, M, N

     INTEGER K( * )

     REAL X( LDX, * )



     #include <sunperf.h>

     void slapmt(int forwrd, int m, int n, float  *sx,  int  ldx,
               int *k) ;

PURPOSE
     SLAPMT rearranges the columns of the M  by  N  matrix  X  as
     specified  by  the  permutation  K(1),K(2),...,K(N)  of  the
     integers 1,...,N.  If FORWRD = .TRUE.,  forward permutation:

          X(*,K(J)) is moved X(*,J) for J = 1,2,...,N.

     If FORWRD = .FALSE., backward permutation:

          X(*,J) is moved to X(*,K(J)) for J = 1,2,...,N.


ARGUMENTS
     FORWRD    (input) LOGICAL
               = .TRUE., forward permutation = .FALSE.,  backward
               permutation

     M         (input) INTEGER
               The number of rows of the matrix X. M >= 0.

     N         (input) INTEGER
               The number of columns of the matrix X. N >= 0.

     X         (input/output) REAL array, dimension (LDX,N)
               On entry, the M by N matrix X.  On  exit,  X  con-
               tains the permuted matrix X.

     LDX       (input) INTEGER
               The leading dimension  of  the  array  X,  LDX  >=
               MAX(1,M).

     K         (input) INTEGER array, dimension (N)
               On entry, K contains the permutation vector.

Партнёры:

Хостинг: