anchor.diff:  end subroutine writeout
   
   
  -
  -
  +!---------------------------------------------------------------------------
  +!     Subroutine gam
  +!---------------------------------------------------------------------------
   subroutine gamv(nd, x, y, z, bhid, nv, vr, &                           ! data array and coordinares
                   tmin, tmax, nlag, xlag, xltol,  &                ! lag definition
                   ndir, azm, atol, bandwh, dip, dtol, bandwd,  &   ! directions and parameters
  
positive.code: 
   end subroutine gamv    
  
  
negative.code: end subroutine addcoord
  
  
  
  
  
  
  !*********************************************************************************
  ! 
  ! 
  !     Subroutines for GSLIB gam/gamv (variograms)
  ! 
  ! 
  !*********************************************************************************
  
  !---------------------------------------------------------------------------
  !     Subroutine writeout for gamv
  !---------------------------------------------------------------------------
  subroutine writeout(nvarg, ndir, nlag, np, dis, gam, hm, tm, hv, tv, &
                      pdis, pgam, phm, ptm, phv, ptv, pnump)  
  
  