SUBROUTINE ARRAY ( MODE, I, J, N, M, S, D )

Argument Definitions (+ indicates altered content)
DOUBLE PRECISION  +D(1),      +S(1)
INTEGER            I,          J,          M,          MODE
INTEGER            N
Description
.................................................................. 
 
   subroutine array 
 
   purpose 
      convert data array from single to double dimension or vice 
      versa.  this subroutine is used to link the user program 
      which has double dimension arrays and the ssp subroutines 
      which operate on arrays of data in a vector fashion. 
 
   usage 
      call array (mode,i,j,n,m,s,d) 
 
   description of parameters 
      mode - code indicating type of conversion 
               1 - from single to double dimension 
               2 - from double to single dimension 
      i    - number of rows in actual data matrix 
      j    - number of columns in actual data matrix 
      n    - number of rows specified for the matrix d in 
             dimension statement 
      m    - number of columns specified for the matrix d in 
             dimension statement 
      s    - if mode=1, this vector is input which contains the 
             elements of a data matrix of size i by j. column i+1 
             of data matrix follows column i, etc. if mode=2, 
             this vector is output representing a data matrix of 
             size i by j containing its columns consecutively. 
             the length of s is ij, where ij=i*j. 
      d    - if mode=1, this matrix of size n by m is output, 
             containing a data matrix of size i by j in the first 
             i rows and j columns. if mode=2, this n by m matrix 
             is input containing a data matrix of size i by j in 
             the first i rows and j columns. 
 
   remarks 
      vector s can be in the same location as matrix d.  vector s 
      is referred as a matrix in other ssp routines, since it 
      contains a data matrix. 
      this subroutine converts only general data matrices (storage 
      mode of 0). 
 
   subroutines and function subroutines required 
      none 
 
   method 
      refer to the discussion on variable data size in the section 
      describing overall rules for usage in this manual. 
 
..................................................................
Source file:array.f
Local Variables (+ indicates altered content)
INTEGER           +IJ,        +K,         +L,         +NI
INTEGER           +NM