c      cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c      cc          init1 routine                                  ccc
c      cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c
       subroutine init1
       implicit real*8 (a-h,o-z)
       integer nt, nr
       common /mika2/ tinit , tstep , rinit , rstep , nt , nr
       common /nika2/ a , z , ic 
       common /wa   / n
c
        open ( unit = 80, file = 'init.par' , status = 'unknown'
     &       , access = 'sequential', form = 'formatted'        )
        read(80,2000) a
        read(80,2000) z
        read(80,2000) tinit
        read(80,2000) tstep
        read(80,2010) nt
        read(80,2000) rinit
        read(80,2000) rstep
        read(80,2010) nr
        read(80,2010) n
        close ( 80 )
 2000   format( 10x,f8.0)
 2010   format( 10x,i8)
        return
        end