ADAS Subroutine omgrc2

       SUBROUTINE OMGRC2(EI,EJ,WI,WJ,X,OMEG,ISW,M,ATE,QI,QJ)
       IMPLICIT REAL*8(A-H,O-Z)
C-----------------------------------------------------------------------
C  PURPOSE: GIVEN A SET OF VALUES OF COLLISION STRENGTHS AND INCIDENT
C           ELECTRON ENERGIES(IN THRESHOLD UNITS), THE ROUTINE
C           EVALUATES THE COLLISIONAL EXCITATION AND DEEXCITATION RATE
C           COEFFICIENTS.
C
C   EXTRAPOLATION PROCEDURE MAY BE SELECTED TO BE CONSTANT (ISW=1),
C   LOGARITHMIC (ISW=2) OR EXPONENTIAL (ISW=3).
C   
C-----------------------------------------------------------------------
C VERSION  : 1.1
C DATE     : 18-03-1999
C MODIFIED : ???
C
C VERSION  : 1.2
C DATE     : 05-10-2000
C MODIFIED : ???
C             - Removed junk from columns > 72
C
C VERSION  : 1.3
C DATE     : 16-05-2007
C MODIFIED : Allan Whiteford
C             - Updated comments as part of subroutine documentation
C               procedure.
C
C-----------------------------------------------------------------------
      INTEGER             ISW,         M
      REAL*8              ATE,         EI,          EJ
      REAL*8              OMEG(20),    QI,          QJ,          WI
      REAL*8              WJ,          X(20)