15 lines
375 B
Fortran
15 lines
375 B
Fortran
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
|