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