ADAS Subroutine xxeryd
SUBROUTINE XXERYD( BWNO , IL , WA , & ER , XIA & ) C----------------------------------------------------------------------- C C ****************** FORTRAN77 SUBROUTINE: XXERYD ********************* C C PURPOSE: TO CALCULATE THE ENERGY LEVELS IN RYDBERGS ( FROM WAVE NUM- C BERS) RELATIVE TO LEVEL 1, AND THE ENERGIES (ALSO IN RYD.) C RELATIVE TO THE IONISATION POTENTIAL. C C CALLING PROGRAM: GENERAL USE C C SUBROUTINE: C C INPUT : (I*4) BWNO = IONISATION POTENTIAL (CM-1) C INPUT : (I*4) IL = NUMBER OF ENERGY LEVELS C INPUT : (R*8) WA() = ENERGY RELATIVE TO LEVEL 1 (CM-1) C C OUTPUT: (R*8) ER() = ENERGY RELATIVE TO LEVEL 1 (RYDBERGS) C OUTPUT: (R*8) XIA() = ENERGY RELATIVE TO ION. POT. (RYDBERGS) C C (R*8) WN2RYD = WAVE NUMBER (CM-1) TO RYDBERG CONVERSION C (PARAMETER) C C (I*4) I = GENERAL USE C C ROUTINES: NONE C C NOTES: ION. POT. = IONISATION POTENTIAL C C AUTHOR: PAUL E. BRIDEN (TESSELLA SUPPORT SERVICES PLC) C K1/0/81 C JET EXT. 4569 C C DATE: 05/07/90 C C----------------------------------------------------------------------- C C----------------------------------------------------------------------- INTEGER IL REAL*8 BWNO, ER(IL), WA(IL), XIA(IL)