      SUBROUTINE AINTGS (X,K)
      implicit double precision (A-H,O-Z)
      include 'MOP6FILE'
      common /SETC/ A(7),B(7),SDUM(3),IDUM(2)
C***********************************************************************
C
C    AINTGS FORMS THE "A" INTEGRALS FOR THE OVERLAP CALCULATION.
C
C***********************************************************************
      C=EXP(-X)
      A(1)=C/X
      do 10 I=1,K
         A(I+1)=(A(I)*I+C)/X
   10 continue
      return
C
      end
