module kvar  52,1
use precis
implicit none
integer, parameter :: res_unit=30
integer, parameter :: hist_unit=40
integer, parameter :: trace_unit=50
integer i,j,k,l,m,n,nf,ipnt,jpnt,the_unit
character filelabel*80,nextlabel*80,casename*10,casepath*80,namelist_file*80
real(mrl) tstart,tstop
namelist/kick/casepath,casename,tstart,tstop,namelist_file
include '../inc/declare.inc'
end module kvar