c=======================================================================
c	This is a common block include file for use with the routine
c	twsplt.f.  The parameters are:
c	
c	i: index for output times
c	V: strength of driving field
c	V0: strength of triangle well
c	w: frequency of driving field
c	theta: phase "
c	Per: period "
c	m: mass of particle
c	L: position of infinite wall
c=======================================================================
      integer i
      real*8 V, V0, w, theta, L, Per, m

      common /com_fcn/
     &	i,
     &	V,	V0,	w,	theta,
     &	L,	Per,	m