c-----------------------------------------------------------
c     Application specific common block for communication 
c     with derivative evaluating routine 'fcn'.
c
c     x0:    Range of square potential well
c      E:    Energy (sought eigenvalue)
c-----------------------------------------------------------

      real*8   
     &         x0,
     &         E
      common / com_fcn /
     &         x0,
     &         E