c=======================================================================
c	Common block for use with 'accel'.  Shares values of varibles
c	among accel.f, getE.f, dipole.f, and fcn.f.  The variables
c	are:
c
c	tocyc: # of cycles in turn-on
c	V0: strength of triangle well
c	m: mass
c	L: width of triangle well
c	totime: turn-on time
c	V: strength of driving field
c	w: frequency of "
c	theta: initial phase of "
c
c=======================================================================
      integer
     &		tocyc

      real*8
     &		V0,	hbar,	m,	L,
     &		totime,	V,	w,	theta

      common / com_fcn /
     &		tocyc,
     &		V0, 	hbar,	m,	L,
     &		totime,	V,	w,	theta