c-----------------------------------------------------------
c     Application specific common block for communication 
c     with derivative evaluating routine 'fcn'.
c
c     ph0:    scalar field amplitude at r = 0 (related to star 
c                                               central density)
c      w:    sought eigenvalue
c
c     pty: choice of potential. See polareal usage.
c
c-----------------------------------------------------------

      integer     pty
      integer     pdim
      integer     tail_tp
      real*8   
     &            pvec(100),
     &            ph0,
     &            rmx,
     &            drout,
     &            tol,
     &            w,
     &            pie,
     &            domain_factor,
     &            phj,
     &            ppj
      common / com_fcn /
     &            pvec,
     &            ph0,
     &            rmx,
     &            drout,
     &            tol,
     &            w,
     &            pie,
     &            domain_factor,
     &            phj,
     &            ppj,
     &            pty,
     &            pdim,
     &            tail_tp