c-----------------------------------------------------------------------
c
c     FORTRAN-77 version of some of the constants defined in the 
c     <hdf.h> header file from NCSA HDF and declarations for functions
c     used from HDF and NETCDF packages in development of GF3 interface 
c     to HDF.
c
c----------------------------------------------------------------------
c     Author:       Matthew W. Choptuik
c     Institution:  The University of Texas at Austin
c     Date:         June 1994
c----------------------------------------------------------------------

c-----------------------------------------------------------------------
c     P A R A M E T E R S   . . . 
c-----------------------------------------------------------------------

c-----------------------------------------------------------------------
c     internal file access codes 
c-----------------------------------------------------------------------

      integer      dfacc_read
      parameter  ( dfacc_read = 1 )
      
      integer      dfacc_write
      parameter  ( dfacc_write = 2 )
      
      integer      dfacc_create
      parameter  ( dfacc_create = 4 )
      
      integer      dfacc_all
      parameter  ( dfacc_all = 7 )
      
      integer      dfacc_rdonly
      parameter  ( dfacc_rdonly = 1 )
      
      integer      dfacc_rdwr
      parameter  ( dfacc_rdwr = 3 )
      
      integer      dfacc_clobber
      parameter  ( dfacc_clobber = 4 )

c-----------------------------------------------------------------------
c     return codes
c-----------------------------------------------------------------------

      integer      succeed
      parameter  ( succeed = 0 )

      integer      fail
      parameter  ( fail = -1 )

c-----------------------------------------------------------------------
c     type info codes */
c-----------------------------------------------------------------------

      integer      dfnt_none
      parameter  ( dfnt_none = 0 )

      integer      dfnt_query
      parameter  ( dfnt_query = 0 )

      integer      dfnt_version
      parameter  ( dfnt_version = 1 )

      integer      dfnt_float32
      parameter  ( dfnt_float32 = 5 )

      integer      dfnt_float64
      parameter  ( dfnt_float64 = 6 )

      integer      dfnt_float128
      parameter  ( dfnt_float128 = 7 )

      integer      dfnt_int8
      parameter  ( dfnt_int8 = 20 )

      integer      dfnt_int16
      parameter  ( dfnt_int16 = 22 )

      integer      dfnt_int32
      parameter  ( dfnt_int32 = 24 )

      integer      dfnt_int64
      parameter  ( dfnt_int64 = 26 )

      integer      dfnt_int128
      parameter  ( dfnt_int128 = 28 )

c-----------------------------------------------------------------------
c     DFSD F U N C T I O N S . . .
c-----------------------------------------------------------------------

      integer      dsadata,      dsclear,      dseslab,     dselc,
     &             dsgcal,       dsgdata,      dsgdlan,     dsgast,
     &             dsgdiln,      dsgdims,      dsgdisc,     dsgdist,
     &             dsgfill,      dsgnt,        dsgrang,     dsgslc, 
     &             dslref,       dsnum,        dsp32sd,     dspdata, 
     &             dspslc,       dsrref,       dsrslab,     dsfirst,
     &             dsscal,       dssdast,      dssdims,     dssdisc,
     &             dssdist,      dssfill,      dsslens,     dssnt,
     &             dssrang,      dssslab,      dssslc,      dswref
     &             dswslab
c-----------------------------------------------------------------------
c     SD F U N C T I O N S . . .
c-----------------------------------------------------------------------

      integer      sfgainfo,     sfcreate,     sfgdinfo,    sfend,
     &             sfendacc,     sffinfo,      sffattr,     sfgcal,
     &             sfgdstr,      sfdimid,      sfgdscale,   sfgdmstr,
     &             sfgill,       sfginfo,      sfgrange,    sfid2ref,
     &             sfiscvar,     sfn2index,    sfrattr,     sfrdata,
     &             sref2index,   sfselect,     sfsattr,     sfscal,
     &             sfsdtstr,     sfsdmname,    sfsdscale,   sfsdmstr,
     &             sfsfill,      sfsrange,     sfstart,     sfwdata