anchor.diff:  c...  subroutine arguments
   c
         integer nstr,nstate,nddmat
  -      double precision state(nstr,nstate),dmat(nddmat)
  +      double precision state(nstr,nstate),ee(nstr),dmat(nddmat)
   c
   c...  parameters
   c
  
positive.code:       integer ione
        parameter(zero=0.0d0,one=1.0d0,ione=1)
  c
        call dspmv("u",nstr,one,dmat,state(1,2),ione,zero,state(1,1),ione)
        return
        end
  
negative.code: c       
  
  c version
  c $Id: mat1.f,v 1.2 2004/05/20 21:13:21 willic3 Exp $
  
  c Generated automatically by Fortran77Mill on Tue May 18 14:18:50 2004
  
  