CALL SEQUENCE...
       pcomp  EOF DATA COMPP OUTPUT
 
 
      AUTHOR - B.Dugas, AVRIL 21/87.
      LAST REVISION: $Header: /home/cvs/RMNLIB/utils/rdiag/lspgm/pcomp.ptn,v 4.5 2014/09/25 20:20:51 dugas Exp $
 
 
      DESCRIPTION...
       CALCUL DES COMPOSANTES  PRINCIPALES A PARTIR DE  LA MATRICE DES 
       FACTEURS ET DES  VALEURS PROPRES DE LA  MATRICE DE  COVARIANCE. 
       LE CALCUL S'EFFECTUE 
 
       1) SOIT EN  PROJETTANT LES EOFS (FACTEURS) SUR LES DONNEES ORI- 
          GINALES, I.E. 
 
          COMPP(I,T) = SUM(J=1,NWDS) (EOF(I,J)*DATA(J,T))/VAL(I)
 
       2) SOIT  EN FAISANT SUBIR AUX COMPOSANTES PRINCIPALES UNE ROTA- 
          TION CORRESPONDANTE A CELLE QU'ON SUBIT LES EOF'S, I.E. 
 
          RCOMP(I,T) = SUM(J=1,NFAC) [COMP(T,J)*RMAT(J,I)]
 
       OU RMAT EST  L'INVERSE TRANSPOSE DE LA  MATRICE LUE SUR  TAPE2. 
       DE PLUS, DANS CE DERNIER CAS, TAPE1=COMP ET TAPE3=RCOMP. 
 
 
 
      EXIT CONDITIONS...
        0 NO PROBLEMS
        1 TOO MANY OR NOT ENOUGH LEVELS
        2 FILE 1 AND 2 RECORD SIZE INCONSISTENT
        3 INCOMPLETE SET ON FILE 1
        4 INCOMPLETE SET ON FILE 2
        5 DATA TYPE IS COMPLEX
        6 MEMORY ALLOCATION PROBLEM
        6 INCOMPLETE VECTOR SET
        7 UNABLE TO PERFORM ROTATION
        8 ERROR READING INPUT PARAMETERS