C ** REVUE - READS QUENCH OUTPUT ON .VUE FOR MULTICOIL SYSTEMS
      DIMENSION T(4000),V(4000),E(4000),TT(4000),VN(4000),
     *A(4000),KC(4000)
	CHARACTER*80 FILENAME
      WRITE(6,1)
1     FORMAT(1H ,'NO OF COILS?')
      READ(5,*)NC
      write(6,66)
66    format(1h ,'Real # of coils, eg. dipole=2,quad=4,etc?')
      read(5,*)rc
      CALL GETENV('VUE',FILENAME)
      OPEN(UNIT=3,NAME=FILENAME,STATUS='OLD')
CFM      OPEN(UNIT=3,NAME='VUE:',STATUS='OLD')
      DO 84 K=1,7
84    READ(3,83)DUM1
83    FORMAT(A2)
	IERROR=0
	DO 10 I=1,4000
      READ(3,11,ERR=88,END=20)KC(I-IERROR),T(I-IERROR),A(I-IERROR),
     &	   V(I-IERROR),E(I-IERROR),TT(I-IERROR),VN(I-IERROR)
      GO TO 10
CFM88    I=I-1
88	IERROR=IERROR+1
10    CONTINUE
11    FORMAT(1X,I2,1X,F8.4,1X,F8.1,1X,F8.2,1x,E9.2,11X,F6.1,1X,E9.2)
20    J=I-1-IERROR
21    WRITE(6,2)
2     FORMAT(1H ,'1:CUR,2:Vint,3:Eint,4:TEMP,5;NORM VOL,6:Red V,7:end')
      READ(5,*)K
      GO TO (101,102,103,104,105,106,100)K
101      CALL GETENV('PLA',FILENAME)
      OPEN(UNIT=8,NAME=FILENAME,STATUS='NEW')
      DO 22 M=1,NC
      DO 22 N=1,J
22    IF(KC(N).EQ.M)WRITE(8,9)T(N),A(N),KC(N)
9     FORMAT(G17.7,1X,G14.7,5X,I2)
      CLOSE(UNIT=8)
      TYPE*,' .PLA WRITTEN'
      GO TO 21
102      CALL GETENV('PLV',FILENAME)
      OPEN(UNIT=8,NAME=FILENAME,STATUS='NEW')
      DO 23 M=1,NC
      DO 23 N=1,J
23    IF(KC(N).EQ.M)WRITE(8,9)T(N),V(N),KC(N)
      CLOSE(UNIT=8)
      TYPE*,' .PLV WRITTEN '
      GO TO 21
103      CALL GETENV('PLE',FILENAME)
      OPEN(UNIT=8,NAME=FILENAME,STATUS='NEW')
      DO 24 M=1,NC
      DO 24 N=1,J
24    IF(KC(N).EQ.M)WRITE(8,9)T(N),E(N),KC(N)
      CLOSE(UNIT=8)
      TYPE*,' .PLE WRITTEN '
      GO TO 21
104      CALL GETENV('PLT',FILENAME)
      OPEN(UNIT=8,NAME=FILENAME,STATUS='NEW')
      DO 25 M=1,NC
      DO 25 N=1,J
25    IF(KC(N).EQ.M)WRITE(8,9)T(N),TT(N),KC(N)
      CLOSE(UNIT=8)
      TYPE*,' .PLT WRITTEN '
      GO TO 21
105      CALL GETENV('PLN',FILENAME)
      OPEN(UNIT=8,NAME=FILENAME,STATUS='NEW')
      DO 26 M=1,NC
      DO 26 N=1,J
26    IF(KC(N).EQ.M)WRITE(8,9)T(N),VN(N),KC(N)
      CLOSE(UNIT=8)
      TYPE*,' .PLN WRITTEN '
      GO TO 21
106      CALL GETENV('PLVR',FILENAME)
      OPEN(UNIT=8,NAME=FILENAME,STATUS='NEW')
      DO 27 M=1,NC
      DO 27 N=1,J
       IF(KC(N).EQ.M)then
        reduce=1.-(vn(n)/(100.*rc))
        v_reduce=v(n)*reduce
        WRITE(8,9)T(N),v_reduce,KC(N)
       endif
27      continue 
      CLOSE(UNIT=8)
      TYPE*,' .PLVR WRITTEN '
      GO TO 21
100   CALL EXIT
      END