SUBROUTINE SGMER1(FRINV,FR3INV,IMER,ID,SGME1)
C     =============================================
C
C     photoionization cross-section for a merged level
C
      INCLUDE 'IMPLIC.FOR'
      INCLUDE 'BASICS.FOR'
      INCLUDE 'ATOMIC.FOR'
      INCLUDE 'MODELQ.FOR'
C
      ISU=INT(SQRT(FRCH(IMER)*FRINV))+1
      SGME1=SGMSUM(ISU,IMER,ID)*FR3INV
      RETURN
      END