C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
C                                                                      %
C Copyright (C) 1996, The Board of Trustees of the Leland Stanford     %
C Junior University.  All rights reserved.                             %
C                                                                      %
C The programs in GSLIB are distributed in the hope that they will be  %
C useful, but WITHOUT ANY WARRANTY.  No author or distributor accepts  %
C responsibility to anyone for the consequences of using them or for   %
C whether they serve any particular purpose or work at all, unless he  %
C says so in writing.  Everyone is granted permission to copy, modify  %
C and redistribute the programs in GSLIB, but only under the condition %
C that this notice and the above copyright notice remain intact.       %
C                                                                      %
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
c-----------------------------------------------------------------------
c
c                 Variogram Map/Volume Calculation
c                 ********************************
c
c The following Parameters control static dimensioning within varmap:
c
c   MXVARG    maximum number of variograms possible at one time
c
c   MXLAGX    maximum number of lags in the X direction
c   MXLAGY    maximum number of lags in the Y direction
c   MXLAGZ    maximum number of lags in the Z direction
c
c-----------------------------------------------------------------------
c
c User Adjustable Parameters:
c
      parameter(MXLAGX=50, MXLAGY=50, MXLAGZ=25, MXVARG=1)
c
c Fixed Parameters:
c
      parameter(EPSLON=1.0e-20,VERSION=2.901)
c
c Variable Declaration:
c
      real    xsiz,ysiz,zsiz,tmin,tmax,dxlag,dylag,dzlag,
     +        np (-MXLAGX:MXLAGX,-MXLAGY:MXLAGY,-MXLAGZ:MXLAGZ,MXVARG),
     +        gam(-MXLAGX:MXLAGX,-MXLAGY:MXLAGY,-MXLAGZ:MXLAGZ,MXVARG),
     +        hm (-MXLAGX:MXLAGX,-MXLAGY:MXLAGY,-MXLAGZ:MXLAGZ,MXVARG),
     +        tm (-MXLAGX:MXLAGX,-MXLAGY:MXLAGY,-MXLAGZ:MXLAGZ,MXVARG),
     +        hv (-MXLAGX:MXLAGX,-MXLAGY:MXLAGY,-MXLAGZ:MXLAGZ,MXVARG),
     +        tv (-MXLAGX:MXLAGX,-MXLAGY:MXLAGY,-MXLAGZ:MXLAGZ,MXVARG)
      integer igrid,nx,ny,nz,nxlag,nylag,nzlag,nd,isill,nvarg,minnp,
     +        ivtail(MXVARG),ivhead(MXVARG),ivtype(MXVARG),test
      character outfl*40
c
c Common Blocks:
c
      common /datagv/ xsiz,ysiz,zsiz,tmin,tmax,dxlag,dylag,dzlag,
     +                igrid,nx,ny,nz,isill,nvarg,minnp,test,
     +                nxlag,nylag,nzlag,ivtail,ivhead,ivtype

      common /parmdp/ gam,hm,tm,hv,tv,np

      common /databl/ nd

      common /chargv/ outfl
