SUBROUTINE TRAINI
C     =================
C
C     initialization of depth-independent quantities
C     for evaluation of opacities
C
      INCLUDE 'IMPLIC.FOR'
      INCLUDE 'BASICS.FOR'
      INCLUDE 'ATOMIC.FOR'
      INCLUDE 'MODELQ.FOR'
      INCLUDE 'ODFPAR.FOR'
c 
      do itr=1,ntrans
         idiel(itr)=0
      end do
C
C     bound-free transitions
C
      NCDW=0
      DO 10 IBFT=1,NTRANC
         ITR=ITRBF(IBFT)
         ii=ilow(itr)
         if(ilk(iup(itr)).ne.0.and.nfirst(iel(ii)).eq.ii.
     *      and.IFDIEL.NE.0) idiel(itr)=1
         MODW=IABS(INDEXP(ITR))
         IF(MODW.NE.5.AND.MODW.NE.15) GO TO 10
         NCDW=NCDW+1
         MCDW(ITR)=NCDW
         ITRCDW(NCDW)=ITR
   10 CONTINUE
      IF(ISPODF.GE.1) RETURN
C
C     bound-bound transitions
C
      DO IJ=1,NFREQ
         NLINES(IJ)=0
      END DO
C
      DO 100 ITR=1,NTRANS
         IF(LINEXP(ITR)) GO TO 100
         DO IJ=IFR0(ITR),IFR1(ITR)
            IJLIN(IJ)=ITR
         END DO
  100 CONTINUE
      RETURN
      END