30 lines
690 B
Fortran
30 lines
690 B
Fortran
SUBROUTINE INICOM
|
|
C =================
|
|
C
|
|
C Auxiliary procedure for INILAM
|
|
C initialization of g-factors for the Compton scattering
|
|
C
|
|
INCLUDE 'IMPLIC.FOR'
|
|
INCLUDE 'BASICS.FOR'
|
|
INCLUDE 'ATOMIC.FOR'
|
|
INCLUDE 'MODELQ.FOR'
|
|
common/comgfs/gfm(mfreq,mdeptc),gfp(mfreq,mdeptc)
|
|
DIMENSION PL(MDEPTH),PLM(MDEPTH)
|
|
C
|
|
IJ=1
|
|
IJO=ijorig(ij)
|
|
DO ID=1,ND
|
|
PLM(ID)=BNUE(IJO)/(EXP(HKT1(ID)*FREQ(IJO))-UN)
|
|
END DO
|
|
C
|
|
DO IJ=2,NFREQ
|
|
IJO=ijorig(ij)
|
|
DO ID=1,ND
|
|
PL(ID)=BNUE(IJO)/(EXP(HKT1(ID)*FREQ(IJO))-UN)
|
|
PLM(ID)=PL(ID)
|
|
END DO
|
|
END DO
|
|
C
|
|
RETURN
|
|
END
|