 
      CALL SEQUENCE...
       constr EOF COMP NEWDAT INPUT OUTPUT [ -m VAL1 ]
 
 
      AUTEUR - B.Dugas, FEVRIER 15/88 .
      LAST REVISION: $Header: /home/cvs/RMNLIB/utils/rdiag/lspgm/constr.ptn,v 4.4 2014/09/25 20:20:46 dugas Exp $
 
 
      DESCRIPTION...
       RECONSTRUCTION DES DONNEES  (COMPLEXES OU PAS) A PARTIR DE LA 
       MATRICES DES FACTEURS  ET DE COMPOSANTES PRINCIPALES. IL FAUT 
       AU MOINS UN FACTEUR ET UNE  COMPOSANTE PRINCIPALE. LES CHAMPS 
       SONT EN ORDRE DECROISSANT  D'IMPORTANCE.  ON  UTILISE LE PLUS 
       PETIT ENSEMBLE COMPLET. ON LIT M SUR UNIT5 I.E. LE PLUS GRAND 
       NOMBRE DE COMPOSANTES A CONSIDERER ( < MAXCMP+1 )(=41)
 
       NEWDAT(I,T) = SUM(J=1,NFAC) (EOF(I,J) * COMP(J,T))
 
       SI EOF *ET* COMP  SONT TOUS  DEUX SOUS LA  FORME DE PAIRES DE 
       GRILLES REELLES ET  IMAGINAIRES  (TYPE='REEL'  ET 'IMAG'), ET 
       DANS CET ORDRE , ON TRAITE LE CAS COMPLEXE. 
 
 
      PARAMETRES...
 
       M    = Nombre de facteur a utiliser dans la re-construction
 
       READ( 5,5010 ) M
 5000  FORMAT(10X,I5)
 
 
      EXAMPLE OF INPUT CARD...
 
  CONSTR     21
 
         0123456789012345678901234567890123456789012345678901234567890
         1         2         3         4         5         6         7
 
 
      EXIT CONDITIONS...
        0 NO PROBLEMS
        1 INPUT M > MAXCMP
        2 PROBLEM OPENNING EOF
        3 PROBLEM OPENNING COMP
        4 TOO MANY LEVELS IN EOF
        7 READ ERROR ON EOF (REAL PART)
        8 FACTORS OUT OF SEQUENCE
        9 READ ERROR ON EOF (IMAGINARY PART)
       10 READ ERROR ON COMP (REAL PART)
       11 PRINCIPAL COMPONENTS OUT OF SEQUENCE
       12 READ ERROR ON COMP (IMAGINARY PART)
