anchor.diff:  c
         if(idout.gt.izero) then
           open(kw,file=ofile,status="old",access="append")
  -        write(kw,700) elmlbl,numel,intorder(intord),ipstrs,ipauto,tpois,
  +        write(kw,700) elmlbl,numelv,intorder(intord),ipstrs,ipauto,tpois,
        &   tyoungs
           close(kw)
         end if
  
positive.code: c
  c...  subroutine arguments
  c
        integer numel,intord,ipstrs,ipauto,kw,idout
        double precision tpois,tyoungs
        character ofile*(*)
  c
  
negative.code: 700   format(1x,///,
       &' e l e m e n t    s y s t e m   d a t a',///,5x,
       &' element type:  ',a40,//,5x,
       &' number of volume elements. . . . . . . . . (numelv) =',i7,//,5x,
       &' integration order . . . . . . . . . . . = ',a17,//,5x,
       &' prestress option. . . . . . . . . . . . . .(ipstrs) =',i5,/ ,5x,
       &'    eq.0, prestresses are read from the input file    ', / ,5x,
  