C^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^                    
      SUBROUTINE INTCHG(ALFA) 
C^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^                    
      IMPLICIT REAL(A-H,O-Y)                                          
      IMPLICIT COMPLEX(Z)                                            
      INCLUDE 'PACVPP' 
      DO 128 I=1,KG                                                     
      ZCHG(I) = DCMPLX(0.0D0,0.0D0)                                     
  128 CONTINUE                                                          
              DO 15 IT=1,KTYP                                           
              DO 10 I=1,KG                                              
              ZCHG(I) = ZCHG(I) +  ZFM3(I,IT)*
     &                  ACHG(IT)*EXP(-GR(I)*GR(I)*0.25D0/ALFA)/UNIVOL 
10    CONTINUE                                                          
15    CONTINUE                                                          
      RETURN                                                            
      END