C^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^                  
      SUBROUTINE PSELMD 
C^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^                  
      IMPLICIT REAL(A-H,O-Y)                                          
      IMPLICIT COMPLEX(Z)                                            
      INCLUDE 'PACVPP' 
      DO 75 I=1,KG                                                      
      ZPSCC(I) = DCMPLX(0.0D0,0.0D0)                                    
      ZDSCC(I) = DCMPLX(0.0D0,0.0D0)
75    CONTINUE                                                          
      DO 73 IT=1,KTYP                                                   
      DO 72 I=1,KG                                                      
      ZPSCC(I) = ZPSCC(I) + PSC(I,IT        )*ZFM3(I,IT)                
      ZDSCC(I) = ZDSCC(I) + DSC(I,IT        )*ZFM3(I,IT)                
72    CONTINUE                                                          
73    CONTINUE                                                          
      RETURN                                                            
      END