Next: Part II: Graphics Up: 3 Manipulation of structures and miscellaneous Prev: 3.7 Eigenvalues and eigenvectors of a Contents

3.8 Miscellaneous

Compression of a D.S. MUA (module CCMUA) or AMAT (module CCAMAT).

    

      SUBROUTINE CCMUA(M,RAPORT,NFMUAE,NIMUAE,NFMUAS,NIMUAS)
C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C AIM : COMPRESS THE I.D.S. MUA BY RETAINING ONLY THE COEFFICIENTS
C ---   A(I,J) IN EACH ROW I BELOW THE 1ST SUPERIOR OR EQUAL TO
C       ABS(A(I,I)) * RATIO FOR I=1,...,NTDL
C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

where

• M is the super array,
• RAPORT is the ratio used to eliminate the matrix coefficients,
• NFMUAE, NIMUAE are the file number and level of the input structure MUA,
• NFMUAS, NIMUAS are the file number and the level of the output structure MUA.

  

      SUBROUTINE CCAMAT(M,RAPORT,NFAMAE,NIAMAE,NFAMAS,NIAMAS)
C ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C AIM : COMPRESS THE I.D.S. AMAT BY RETAINING ONLY THE COEFFICIENTS
C ---   A(IJ) SUCH THAT ABS(A(I,J)) >= RATIO * ABS(A(I,I)) I=1,...,NTDL
C ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

where

• M is the super array,
• RAPORT is the ratio used to eliminate the matrix coefficients,
• NFAMAE, NIAMAE are the file number and level of the input structure AMAT,
• NFAMAS, NIAMAS are the file number and the level of the output structure AMAT.