anchor.diff:        real(kind=plflt) clevel(nlevel)
         real(kind=plflt) z(nx, ny), xmin, xmax, ymin, ymax
         real(kind=plflt) tr(6)
  -      common /plplot/ tr
  +      common /plplot_tr_block/ tr
   
         include 'sfstubs.h'
   
  
positive.code:       real(kind=plflt) shade_min, shade_max, sh_color
        real(kind=plflt) z(nx, ny), xmin, xmax, ymin, ymax
        real(kind=plflt) tr(6)
        common /plplot/ tr
  
        include 'sfstubs.h'
  
  
negative.code:       integer nx, ny
        real(kind=plflt) u(nx, ny), v(nx,ny), scale
        real(kind=plflt) tr(6)
        common /plplot_tr_block/ tr
  
        call plvect7(u,v,nx,ny,scale,tr)
  
  