C4.03. FMS Subroutine XXDAV

RSDAV
CSDAV

Assemble one or more global vectors from submatrix vectors.


	CALL RSDAV (LUBI, LUS, NUMSF, LUB)

	CALL CSDAV (LUBI, LUS, NUMSF, LUB)

LUBI (25) = Integer array.
File attribute list for initialization vector {BI}. To initialize {B} to {0} and compute {B}=Sum{Vi}, specify a value of 0.
LUS(25, NUMSF) = Integer array.
File attribute list for each submatrix file.
NUMSF = Integer.
Number of submatrix files.
LUB(25) = Integer array.
File attribute list for vector {B}. This may be the same as LUBI to compute {B}={B}+Sum{Vi}.

None.

The following FMS Parameters are especially important to this routine:

Parameter Description
IPRA Assembly print code

Parameter	Description
IPRA	Assembly print code

This subroutine builds one or more global vectors in FMS format by adding together submatrix vectors in the following steps:

The vector {B} is initialized to {BI}. If you have specified a 0 value for LUBI, the vector {B} is initialized to {0}.
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.