anchor.diff:  c author;  nelson h.f. beebe, quantum theory project, university of
   c          florida, gainesville
   c.......................................................................
  -C$Id: output.f,v 1.7 1997-07-25 18:01:12 d3g681 Exp $
  +C$Id: output.f,v 1.8 2000-06-09 00:42:08 d3g681 Exp $
         implicit none
         integer rowlow,rowhi,collow,colhi,rowdim,coldim,begin,kcol
         integer nctl, i, j, last, k
  
positive.code:  1000 format (/1h ,8x,7('   ',i3,3x),('   ',i3))
   2000 format (a1,i4,1x,1p,8d9.2)
        end
  
negative.code: c author;  nelson h.f. beebe, quantum theory project, university of
  c          florida, gainesville
  c.......................................................................
  C$Id: output.f,v 1.8 2000-06-09 00:42:08 d3g681 Exp $
        implicit none
        integer rowlow,rowhi,collow,colhi,rowdim,coldim,begin,kcol
        integer nctl, i, j, last, k
  