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