C================================================================       
C     a.u. ---> eV (Unit transformation on DOS)
C================================================================       
      PROGRAM INPUT_EV
      IMPLICIT REAL*8(A-H,O-Y)
      IMPLICIT COMPLEX*16(Z)
C      INCLUDE 'PACVPP'
C
      PARAMETER(KNVX2=8,KNVY2=12,KNVZ2=12,KNV3=95,KEG=25)
      CHARACTER DUMCHR
      DIMENSION KNUM(KNV3),EKO(KEG,KNV3)
C      DIMENSION KVX(KNV3),KVY(KNV3),KVZ(KNV3),KQWGT(KNV3)
C      DIMENSION VX(KNV3),VY(KNV3),VZ(KNV3),QWGT(KNV3)
C
      OPEN(UNIT=60,FILE='band.dat')
      OPEN(UNIT=61,FILE='band_ev.dat')
C
      EVOLT = 27.2D0
C
      READ (60,*) KV3,NEG
      WRITE (6,*) 'K, IBAN/KEG =',KV3,NEG,' -/- ',KEG
      DO 101 NNN=1,KV3
      READ(60,*) (EKO(I,NNN),I=1,NEG)
  101 CONTINUE
C  301 FORMAT(5(F10.6))
C
      DO 110 NNN=1,KV3
       DO 111 IBAN=1,NEG
        EKO(IBAN,NNN)=EVOLT*EKO(IBAN,NNN)
  111 CONTINUE
  110 CONTINUE 
C
      WRITE (6,*) "WRITE BAND.DAT UNIT = 61 <------------"
      WRITE (61,*) KV3,NEG
      DO 102 NNN=1,KV3
      WRITE(61,302) (EKO(I,NNN),I=1,KEG)
  102 CONTINUE
  302 FORMAT((1H ,5(F10.6,2X)))
C
      WRITE(6,*) "PROGRAM END: CHECK = ",KV3,NEG,KEG
C
C'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      STOP
      END