C================================================================       
     SUBROUTINE EVIN(IREC8,IREC9,EPC) 
      IMPLICIT REAL(A-H,O-Y)
      IMPLICIT COMPLEX(Z)
      INCLUDE 'PACVPP' 
      DIMENSION DVS(KIZA),DVP(KIZA),DVD(KIZA) 
      REWIND 28
      REWIND 29
      REWIND 30
      REWIND 31
      REWIND 32
      REWIND 33
      REWIND 34
      REWIND 35
      REWIND 36
      REWIND 37
      READ (28,*) ITER,EPC,WS,WP,WD
      READ (29) SNL
      READ (30) SNL2
      READ (31) SNL3
      READ (32) ZAJ
      READ (33) ZFBB,ZFBB2
      READ (34) EKO
      READ (35) ZCHG
      READ (36) VEL
      READ (37) ZRHPC
      WRITE (6,*) 'EVIN  ITER = ',ITER,EPC
      DO 1000 I=NBD1,NBD2
      DO 1010 K=1,KNV3
      WRITE (6,600) EKO(I,K)
  600 FORMAT(1H ,4F12.6)
 1010 CONTINUE
 1000 CONTINUE
C     NSEK = 2 BECAUSE DVS,DVP INCLUDES RAD(N).        
      NSEK=2                                           
      REWIND 15                                                         
      DO 100 ITY = 1,KTYP                                               
        IF (NLSPD(ITY).EQ.1) THEN
          READ (15,*) MESHR,NMES,DX,WS(ITY),WP(ITY)
     &             ,RAD,DVS,DVP 
          WD(ITY)=0.0D0
          DO 111 N=1,MESHR                                                
            WVS(N,ITY)=DVS(N)                                             
            WVP(N,ITY)=DVP(N)                                             
            WVD(N,ITY)=0.0D0
  111 CONTINUE 
        ELSE
          READ (15,*) MESHR,NMES,DX,WS(ITY),WP(ITY),WD(ITY) 
     &               ,RAD,DVS,DVP,DVD 
          DO 110 N=1,MESHR
            WVS(N,ITY)=DVS(N)                                             
            WVP(N,ITY)=DVP(N)                                             
            WVD(N,ITY)=DVD(N)
  110 CONTINUE 
        END IF
  100 CONTINUE                                                          
      RETURN
      END