anchor.diff:  c
   700   format(///' l i n e a r   s o l u t i o n   ',
        & 'i n f o r m a t i o n'//,5x,
  -     & ' PCG solution method  . . . . . . . . . . . (nsol)  =',i5,//,5x,
  -     & '    eq.1,  diagonal preconditioner,                  ',/,5x,
  -     & '           use zero initial guess                    ',/,5x,
  -     & '    eq.2,  diagonal preconditioner,                  ',/,5x,
  -     & '           use displacements from previous step      ',/,5x,
  -     & '    eq.3,  symmetrized Gauss-Seidel preconditioner   ',/,5x,
  -     & '           use zero initial guess                    ',/,5x,
  -     & '    eq.4,  symmetrized Gauss-Seidel preconditioner   ',/,5x,
  -     & '           use displacements from previous step      ',//,5x,
  -     & ' maximum number of PCG iterations . . . . . (maxcg) =',i5,//,5x,
  -     & ' accuracy multiplier for displacement . . . (rmult1)=',1pe15.8,
  -     & /,5x,
  -     & ' accuracy multiplier for force. . . . . . . (rmult2)=',1pe15.8,
  -     & /,5x,
  -     & ' accuracy multiplier for energy . . . . . . (rmult3)=',1pe15.8,
  -     & /,5x,
  -     & ' minimum displacement accuracy. . . . . . . (rmin1) =',1pe15.8,
  -     & /,5x,
  -     & ' minimum force accuracy . . . . . . . . . . (rmin2) =',1pe15.8,
  -     & /,5x,
  -     & ' minimum energy accuracy. . . . . . . . . . (rmin3) =',1pe15.8)
  +     & ' initial solution flag  . . . . . . . .(nprevdflag) =',i5,//,5x,
  +     & '    eq.0,  use zero initial guess                    ',/,5x,
  +     & '    eq.1,  use displacements from previous step      ')
         end
  
positive.code: c
  c                             Charles A. Williams
  c                       Rensselaer Polytechnic Institute
  c                        (C) 2004  All Rights Reserved
  c
  c  Copyright 2004 Rensselaer Polytechnic Institute.
  c  All worldwide rights reserved.  A license to use, copy, modify and
  c  distribute this software for non-commercial research purposes only
  c  is hereby granted, provided that this copyright notice and
  
negative.code: c
  c...  subroutine arguments
  c
        integer nprevdflag,kw,idout
        character ofile*(*)
  c
  c...  local variables
  c
        if(idout.gt.0) then
          open(kw,file=ofile,status="old",access="append")
          write(kw,700) nprevdflag
          close(kw)
        end if
  c
  