!     THIS SUBROUTINE READS MOST OF THE INPUT FILES
!     MSE 6270, Leonid Zhigilei

      SUBROUTINE ReadFiles()
      INCLUDE 'common.h'

!     Read Input Coordinates/Velocities File
      REWIND 15
      READ(15,*) NAN,TIME
	If(NAN.gt.LPMX) then
        write(* ,*) '  NAN=',NAN,' is greater than LPMX=',LPMX, &
                    ' Program stops.'
        stop
      Endif
      READ(15,*) XL,YL,ZL,XCENTR,YCENTR,ZCENTR
      READ(15,*) (KTYPE(J),J=1,NAN)
      READ(15,*) (KHIST(J),XD(1,J),XD(2,J),XD(3,J),J=1,NAN)
      READ(15,*) (Q1D(1,J),Q1D(2,J),Q1D(3,J),J=1,NAN)

!     READ INPUT DATA
      REWIND 14
      READ(14,100) NSTEP,NEWTAB,NEPRT,NWRITE,NPER,MOV, &
        KFLAG,KEYBS,LIDX,LIDY,LIDZ,KBOUND,LGOT,NDIM
      READ(14,200) QTEM,DELTA,RSkin

!     READ INPUT DATA FOR EXTERNAL IMPACT
!      REWIND 12
!      READ(12,200) ExForce, ExTime

!     READ RANDOM NUMBERS FOR VEL SUBROUTINE
      CALL Random_seed(SIZE = Kseed)

      REWIND 13
      READ(13,*) (ISEED(i), i=1,Kseed)  ! for random_number(rww1)
      READ(13,*) U1,U2                  ! for rn()

      CALL Random_seed(put = iseed)
!      CALL Random_seed(generator = 1)

 100  FORMAT (I10)
 200  FORMAT (D15.5)
      RETURN
      END