SUBROUTINE ODFMER
C     =================
C
C     Opacity distribution function for superlines to merged states
C     (calculated only if DT/T>=CHTL, kept constant after).
C
      INCLUDE 'IMPLIC.FOR'
      INCLUDE 'BASICS.FOR'
      INCLUDE 'ATOMIC.FOR'
      INCLUDE 'MODELQ.FOR'
      INCLUDE 'ODFPAR.FOR'
      PARAMETER (CHTL=1.D-3)
C
      DO 10 ITR=1,NTRANS
         IF(.NOT.LINE(ITR).OR.IABS(INDEXP(ITR)).NE.2) GO TO 10
         DO ID=1,ND
            IF(INIT.EQ.1 .OR. ABS(CHANT(ID)).GE.CHTL)
     *         CALL ODFHYD(ID,ITR)
         END DO
   10 CONTINUE
      RETURN
      END