*...:....1....:....2....:....3....:....4....:....5....:....6....:....7....:....8
*    
*     confun.f
*
*     Copyright (C) 1991.
*
*     Marie Davidian and A. Ronald Gallant 
*     P.O. Box 5513, Raleigh NC 27650-5513, USA   
*
*     Permission to use, copy, modify, and distribute this
*     software and its documentation for any purpose and
*     without fee is hereby granted, provided that the
*     above copyright notice appear in all copies and that
*     both that copyright notice and this permission notice
*     appear in supporting documentation.
*
*     This software is provided "as is" without any
*     expressed or implied warranty.
*
*...:....1....:....2....:....3....:....4....:....5....:....6....:....7....:....8
      subroutine confun(mode,ncnln,n,nrowj,needc,x,c,cjac,nstate)   
      implicit real*8 (a-h,o-z)
      implicit integer*4 (i-n)
      save
      integer*4 mode,ncnln,n,nrowj,needc,nstate
      real*8    x,c,cjac
      dimension needc(*)
      dimension x(n),c(*),cjac(nrowj,*)
      return
      end 
