SUBROUTINE ELRATE(SUMB)                                           00000100
      COMMON/INFO/ANS(500,8),SPECT(500,4,10),NFLAG(500),NC(500)         00000200
      COMMON/RATIO/I,RAT(500,3),ERR(500,3),HR(3,500)                    00000300
      COMMON/INPDAT/NFC,NCH,ACCTIM                                      00000400
      REAL SUMS(3),OMEGA(3),SUMB(3)                                     00000500
      INTEGER*4 HR,SPECT                                                00000600
      ISUM=0                                                            00000700
      WRITE(6,2000) NFC,NCH                                             00000800
 2000 FORMAT(1H0,6X,'GET',7X,'CHAN 1   CHAN 2   CHAN 3   CHAN 4   CHAN 500000900
     1   CHAN 6   CHAN 7   CHAN 8    SUM',I2,'-',I1,' COND  NSPEC')     00001000
      DO 20 K=1,4                                                       00001100
      IF(K.EQ.4) WRITE(6,2001)                                          00001200
 2001 FORMAT(1H ,41X,'SOLAR MONITOR DATA')                              00001300
      WRITE(6,2002)(HR(JJ,I),JJ=1,3),(SPECT(I,K,J),J=1,8),SPECT(I,K,10),00001400
     1NFLAG(I),NC(I)                                                    00001500
 2002 FORMAT(1H ,I5,2I3,1X,9I9,2(2X,I4))                                00001600
      ISUM=ISUM+((SPECT(I,K,8)+SPECT(I,K,10))/16)                       00001700
   20 CONTINUE                                                          00001800
      IDIF=ISUM- SPECT(I,4,9)                                           00001900
      WRITE(6,2003) ISUM,SPECT(I,4,9),IDIF                              00002000
 2003 FORMAT(' TOTAL COUNTS IN DET.(1 TO 4)/16',I6,' VERSUS TOTAL',I6,  00002100
     1' DIFFERENCE =',I5)                                               00002200
      FAC=(NC(I)*8.0)/ACCTIM                                            00002300
      WRITE(6,2004) NFC,NCH,NFC,NCH                                     00002400
 2004 FORMAT('0 SUM OF',I2,'-',I2,'  BACK SUM OF',I2,'-',I2,' DIFFERENCE00002500
     X    OMEGA',11X,'PSD')                                             00002600
      DO 30 J=1,3                                                       00002700
      BACK=SUMB(J)*FAC                                                  00002800
      SUMS(J)=SPECT(I,J,10)-BACK                                        00002900
      OMEGA(J)=1.0/(SPECT(I,J,10)+BACK)                                 00003000
      RAT(I,J)=0.0                                                      00003100
      ERR(I,J)=0.0                                                      00003200
   30 WRITE(6,2005) SPECT(I,J,10),BACK,SUMS(J),OMEGA(J),SPECT(I,J,9)    00003300
 2005 FORMAT(1H ,I9,5X,F10.2,4X,F10.2,2X,F10.6,5X,I8)                   00003400
      IF(SPECT(I,4,9).GT.70*NC(I)) GO TO 40                             00003500
      WRITE(6,2006)                                                     00003600
 2006 FORMAT(1H ,40X,'DATA NOT PROCESSED (DARKSIDE DATA)')              00003700
      GO TO 50                                                          00003800
   40 CALL FF(SUMS,OMEGA)                                               00003900
   50 RETURN                                                            00004000
      END                                                               00004100