47 lines
1014 B
Fortran
47 lines
1014 B
Fortran
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
|