ADAS Subroutine ouredinv
FUNCTION OUREDINV( IXTYP , EIJ , EJ , DGEY , C ) C----------------------------------------------------------------------- C C ******************** FORTRAN 77 FUNCTION: ETREDINV ****************** C C PURPOSE: TO CALCULATE THE COLLISION STRENGTH FROM THE REDUCED C COLLISION STRENGTH FOR FOUR TYPES OF TRANSITION C C CALLING PROGRAM: C C FUNCTION: C C INPUT: (R*8) EIJ = TRANSITION ENERGY (Eij) C (R*8) EJ = COLLIDING ELECTRON ENERGY AFTER C EXCITATION (Ej) C (R*8) C = ADJUSTABLE SCALING PARAMETER C (R*8) ETR = Ej/Eij C (I) IXTYPE = TRANSITION TYPE C 1 ELECTRIC DIPOLE C 2 NON ELECTRIC DIPOLE C 3 SPIN CHANGE C 4 OTHER C (R*8) DGEY = REDUCED COLLISION STRENGTH C C OUTPUT: (R*8) OUREDINV= ELECTRON ENERGY C C C ROUTINES: NONE C C DATE: 22/06/95 VERSION 1.1 C AUTHOR: DAVID.H.BROOKS (UNIV. OF STRATHCLYDE) C C C----------------------------------------------------------------------- INTEGER IXTYP REAL*8 C, DGEY, EIJ, EJ