      subroutine cd03a(ninac,idep,nt1a,it1a,nt2a,it2a,numta,ntdisp)
      IMPLICIT REAL*8(A-H,O-X,Z),LOGICAL*1 (Y)
      parameter(maxsym=8)
      include 'maxorb.prm'
      common/orb2/numina(maxorb),numvir(maxorb),iordo(maxorb*2)
     *,iodro(maxorb*2)
     *,numinb(maxorb),numvib(maxorb)
      dimension it1a(2),it2a(2)
      dimension numta(maxorb)
      dimension y(maxorb)
      yw=.false.
      if(yw) then
         write(6,*)'it1a',(it1a(k),k=1,nt1a)
         write(6,*)'it2a',(it2a(k),k=1,nt2a)
      endif
      do k=1,ninac
         y(k)=.true.
      enddo
      do k=1,nt1a
         y(iodro(it1a(k))-idep)=.false.
      enddo
      do k=1,nt2a
         y(iodro(it2a(k))-idep)=.false.
      enddo
      ntdisp=0
      do k=1,ninac
         if(y(k)) then
            ntdisp=ntdisp+1
            numta(ntdisp)=iordo(k+idep)
         endif
      enddo
Cc     on remet a true la partie de y qui etait a false
C      do k=1,nt1a
C         y(it1a(k))=.true.
C      enddo
C      do k=1,nt2a
C         y(it2a(k))=.true.
C      enddo
      return
      end
