anchor.diff:        end
   c
   c version
  -c $Id: viscos.f,v 1.2 2004/07/13 17:39:36 willic3 Exp $
  +c $Id: viscos.f,v 1.3 2004/07/21 19:38:05 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code: c
  clater              if(ierr.ne.izero) return
  c
  clater            else if(lgdefp.eq.ione.and.ibbarp.eq.ione) then
  clater              if(reform) call matinit_drv(
  clater     &         alnz,ja,nnz,neq,                                         ! sparse
  clater     &         x,d,iwink,wink,numnp,nwink,                              ! global
  
negative.code: c
                if(ierr.ne.izero) return
  c
              else if(lgdefp.eq.izero.and.intord.eq.ithree) then
                if(reform) call matinit_drv(
       &         alnz,ja,nnz,neq,                                         ! sparse
       &         x,d,iwink,wink,numnp,nwink,                              ! global
  