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