Compress array MUA5 in
structure MUA, containing the coefficients of matrix A.
It corresponds to eliminating the coefficients whose absolute value are too small. To do this, we retain
in each row i only those coefficients beyond the first verifying the following
criterion:
This procedure enables us to reduce the size of an existing MUA structure.
Utilization:
dimension array M (in the blank common),
call INITI.
Call the module:
CALL CCMUA(M,RAPORT,NFMUAE,NIMUAE,NFMUAS,NIMUAS)
where:
M: the super array,
RAPORT: the value of parameter ,
NFMUAE: the number of the support file of I.D.S. MUA,
NIMUAE: its level number,
NFMUAS: the number of the support file of O.D.S. MUA,
NIMUAS: its level number, (the O.D.S. can be distinct from the I.D.S.).