c-----------------------------------------------------------
c     Application specific common block for communication 
c     with derivative evaluating routine 'fcn'.
c
c     Lambda:   Dimensionless phi^4 coupling constant
c     Omega:    Eigen-frequency
c     Omegasq:  Square of eigen-frequency
c-----------------------------------------------------------

      real*8   
     &         Lambda,
     &         Omega, 
     &         Omegasq
      common / com_fcn /
     &         Lambda,
     &         Omega, 
     &         Omegasq