23 lines
597 B
Fortran
23 lines
597 B
Fortran
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
|