16 lines
430 B
Fortran
16 lines
430 B
Fortran
SUBROUTINE SGMERD(FRINV,FR3INV,IMER,ID,SGME1,DSGME1)
|
|
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
|
|
DSGME1=-SGMSUD(ISU,IMER,ID)*FR3INV
|
|
RETURN
|
|
END
|