ADAS Subroutine ccnse4

       SUBROUTINE CCNSE4(A0,CA0,A,CA,RH,CRH,NMIN,NMAX,ARED,CARED,RHS,
     1CRHS,IR,ISH,JSH,KPF,NLIV,ILTXR)
C
C-----------------------------------------------------------------------
C
C	********** FORTRAN 77 ROUTINE : CCNSE4.F  **********
C
C	PURPOSE : APPLIES MATRIX CONDENSATION TREATEMENT TO
C		  THE ARRAYS WHICH ARE USED TO CONSTRUCT
C		  THE COLLISIONAL RADIATIVE MATRIX.
C
C	HISTORY : ROUTINE WAS ORIGINALLY WRITTEN BY H.P.SUMMERS.
C
C
C	INPUT   :
C
C	(R*8)	A0	:
C	(R*8)	CAO	:
C	(R*8)	A	:
C	(R*8)	CA	:
C	(R*8)	RH	:
C	(R*8)	CRH	:
C	(I*4)   IR	:  INDEX CORRESPONDING TO THE REPRESENTATIVE
C			   LEVEL OF INTEREST.
C	(I*4)   IRS	:  SWITCH USED TO LOCATE THE DIAGONAL ELEMENTS
C			   OF THE COLLISIONAL RADIATIVE MATRIX. THIS
C			   ROUTINE DOES NOT CONTAIN THE C-R MATRIX BUT
C			   ARRAYS WHICH ARE USED TO ASSEMBLE IT, FOR
C			   A SINGLE SPIN SYSTEM WITH NO METASTABLES
C			   IRS=0 .
C
C
C
C	CONTACT : HARVEY ANDERSON
C		  UNIVERSITY OF STRATHCLYDE
C		  ANDERSON@PHYS.STRATH.AC.UK
C
C	DATE	: 26/02/98
C
C VERSION:      1.2                                     DATE:   21-10-99
C MODIFIED: RICHARD MARTIN
C               CHANGED HEXADECIMAL CONSTANTS TO Z'FFF00000' FORM.
C
C-----------------------------------------------------------------------
C
	IMPLICIT REAL*8(A-H,O-Z)
C
      INTEGER             ILTXR(10,10,5),           IR,          ISH
      INTEGER             JSH,         KPF(1000),   NLIV(31),    NMAX
      INTEGER             NMIN
      REAL*8              A(1000),     A0,          ARED(160)
      REAL*8              CA(1000),    CA0,         CARED(160),  CRH
      REAL*8              CRHS,        RH,          RHS