c=======================================================================
c	Common block for use with 'orbitnt'.  Shares values of 
c	parameters among 'orbitnt', 'fcn', and 'jac'.  The parameters
c	are:
c
c	w: frequency of driving field
c	theta: initial phase of driving field
c	V: strength of driving field
c	m: mass of particle
c	W: harmonic oscillator frequency
c=======================================================================
      real*8
     &		w,		theta,	 	m,
     &		V,		w0

      common /com_fcn/
     &		w,		theta,		m,
     &		V,		w0