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