PURPOSE

Assemble one or more global vectors from submatrix vectors.

SYNOPSIS

CALL RSDAV (LUBI, LUS, NUMSF, LUB)
CALL CSDAV (LUBI, LUS, NUMSF, LUB)

INPUT PARAMETERS

OUTPUT PARAMETERS:

None.

FMS PARAMETERS:

The following FMS Parameters are especially important to this routine:
Parameter Description
IPRA Assembly print code

DESCRIPTION:

This subroutine builds one or more global vectors in FMS format by adding together submatrix vectors in the following steps:
  1. The vector {B} is initialized to {BI}. If you have specified a 0 value for LUBI, the vector {B} is initialized to {0}.
  2. Each submatrix vector {Vi} is assembled into the global vector {B} according to the equation number vector {IEQSUB} supplied on the corresponding submatrix integer record. The actual assembly process is equivalent to the following FORTRAN statements:
            DO NV = 1, NUMVEC
               D0  I = 1, M
                  IGLOB = IEQSUB(I)
                  IF (IGLOB .GT. O) B(IGLOB, NV) = B(IGLOB, NV) + V(I,NV)
               END DO
            END DO
    

The number of vectors assembled, NUMVEC, is the minimum of the number of vectors on the vector file and the number of vectors on the submatrix file.

The vector assembly process always begins with equation 1, and is not controlled by the FMS parameter LOWASM.