mfsdff.f

Go to the documentation of this file.

C****************************************************************************
C* NCSA HDF                                                                 *
C* Software Development Group                                               *
C* National Center for Supercomputing Applications                          *
C* University of Illinois at Urbana-Champaign                               *
C* 605 E. Springfield, Champaign IL 61820                                   *
C*                                                                          *
C* For conditions of distribution and use, see the accompanying             *
C* hdf/COPYING file.                                                        *
C*                                                                          *
C****************************************************************************
C
C mfsdff.f,v 1.6 1996/06/04 21:25:25 koziol Exp
C
 
C----------------------------------------------------------------------
C     Name: sdfstart
C     Purpose:  call scstart, open file
C     Inputs:   path: Name of file to be opened
C               access: DFACC_READ, DFACC_WRITE, DFACC_CREATE,
C               or any bitwise-or of the above.
C     Returns: 0 on success, FAIL on failure with error set
C     Users:    Fortran stub routine
C----------------------------------------------------------------------
 
      integer function sfstart(filename, access)
 
      character*(*) filename
      integer       access, scstart
 
      sfstart = scstart(filename, access, len(filename))
      return
      end
 
 
C----------------------------------------------------------------------
C     Name: sdfn2index
C     Purpose:  call scn2index to return an index
C     Inputs:   id: file
C               name: name of data set
C     Returns: 0 on success, FAIL on failure with error set
C     Users:    Fortran stub routine
C----------------------------------------------------------------------
 
      integer function sfn2index(id, name)
 
      character*(*) name
      integer       id, scn2index
 
      sfn2index = scn2index(id, name, len(name))
      return
      end
 
 
C----------------------------------------------------------------------
C     Name: sfcreate
C     Purpose:  call sccreate to create a new dataset
C     Inputs:   id: file
C               name: name of data set
C               nt: number type
C               rank: rank
C               dims: sizes of dimensions
C     Returns: 0 on success, FAIL on failure with error set
C     Users:    Fortran stub routine
C----------------------------------------------------------------------
 
      integer function sfcreate(id, name, nt, rank, dims)
 
      character*(*) name
      integer       id, nt, rank, sccreate
      integer       dims(*)
 
      sfcreate = sccreate(id, name, nt, rank, dims, len(name))
      return
      end
 
 
C----------------------------------------------------------------------
C Name:     sfsdmstr
C Purpose:  set strings for this dimension
C Inputs:   id: dimension id
C           label,unit,format: strings to be set
C Returns:  0 on success, -1 on failure with DFerror set
C Users:    HDF Fortran programmers
C----------------------------------------------------------------------
 
      integer function  sfsdmstr(id, label, unit, format)
 
      character*(*) label, unit, format
      integer len, id
      integer scsdimstr
 
      sfsdmstr = scsdimstr(id, label, unit, format,
     +     len(label), len(unit), len(format))
      
      return
      end
 
C----------------------------------------------------------------------
C Name:     sfsdmname
C Purpose:  set name of this dimension
C Inputs:   id: dimension id
C           name: the name 
C Returns:  0 on success, -1 on failure with DFerror set
C Users:    HDF Fortran programmers
C----------------------------------------------------------------------
 
      integer function  sfsdmname(id, name)
 
      character*(*) name
      integer len, id
      integer scsdimname
 
      sfsdmname = scsdimname(id, name, len(name))
      
      return
      end
        
 
C----------------------------------------------------------------------
C Name:     sfsdtstr
C Purpose:  set strings for this data set
C Inputs:   id: dimension id
C           label,unit,format,coordsys: strings to be set
C Returns:  0 on success, -1 on failure with DFerror set
C Users:    HDF Fortran programmers
C----------------------------------------------------------------------
 
      integer function sfsdtstr(id, l, u, f, c)
 
      character*(*) l, u, f, c
      integer len, id
      integer scsdatstr
 
      sfsdtstr = scsdatstr(id, l, u, f, c,
     +     len(l), len(u), len(f), len(c))
     
      return
      end
   
 
C----------------------------------------------------------------------
C Name:     sfgdtstr
C Purpose:  get strings for this data set
C Inputs:   id: dimension id
C Outputs:  label,unit,format,coordsys: strings to be gotten
C Returns:  0 on success, -1 on failure with DFerror set
C Users:    HDF Fortran programmers
C----------------------------------------------------------------------
 
      integer function sfgdtstr(id, label, unit, format, coord, mlen)
 
      character*(*) label, unit, format, coord
      integer len, id, mlen
      integer scgdatstrs
 
      sfgdtstr = scgdatstrs(id, label, unit, format, coord,
     +     len(label), len(unit), len(format), len(coord), mlen)
      
      return
      end
   
C----------------------------------------------------------------------
C Name:     sfgdmstr
C Purpose:  get strings for this dimension
C Inputs:   id: dimension id
C Outputs:  label,unit,format: strings to be gotten
C Returns:  0 on success, -1 on failure with DFerror set
C Users:    HDF Fortran programmers
C----------------------------------------------------------------------
 
      integer function  sfgdmstr(id, label, unit, format, mlen)
 
      character*(*) label, unit, format
      integer len, id
      integer scgdimstrs
 
      sfgdmstr = scgdimstrs(id, label, unit, format,
     +     len(label), len(unit), len(format), mlen)
      
      return
      end
   
C----------------------------------------------------------------------
C Name:     sfginfo
C Purpose:  get basic info about this data set
C Inputs:   id: dataset id
C Outputs:  name, rank, nt, dims, nattrs
C Returns:  0 on success, -1 on failure with DFerror set
C Users:    HDF Fortran programmers
C----------------------------------------------------------------------
 
      integer function  sfginfo(id, name, rank, dims, nt, nattr)
 
      character*(*) name
      integer rank, nt, nattr
      integer dims(*)
      integer scginfo, len
 
      sfginfo = scginfo(id, name, rank, dims, nt, nattr, len(name))
      
      return
      end
   
C----------------------------------------------------------------------
C Name:     sfgainfo
C Purpose:  get basic info about an attribute
C Inputs:   id: dataset id
C           number: attribute number
C Outputs:  name, nt, count
C Returns:  0 on success, -1 on failure with DFerror set
C Users:    HDF Fortran programmers
C----------------------------------------------------------------------
 
      integer function  sfgainfo(id, number, name, nt, count)
 
      character*(*) name
      integer nt, number
      integer scgainfo, len
 
      sfgainfo = scgainfo(id, number, name, nt, count, len(name))
      
      return
      end
   
 
C----------------------------------------------------------------------
C Name:     sfgdinfo
C Purpose:  get basic info about a dimension
C Inputs:   id: dim id
C Outputs:  name, nt, sz, nattr
C Returns:  0 on success, -1 on failure with DFerror set
C Users:    HDF Fortran programmers
C----------------------------------------------------------------------
 
      integer function  sfgdinfo(id, name, sz, nt, nattr)
 
      character*(*) name
      integer sz, nt, nattr
      integer scgdinfo, len
 
      sfgdinfo = scgdinfo(id, name, sz, nt, nattr, len(name))
      
      return
      end
 
C----------------------------------------------------------------------
C Name:     sfscatt
C Purpose:  create (or modify an existing) char attribute
C Inputs:   id: id of object to attribute-ize
C Outputs:  name, nt, count, data
C Returns:  0 on success, -1 on failure with DFerror set
C Users:    HDF Fortran programmers
C----------------------------------------------------------------------
 
      integer function  sfscatt(id,name,nt,count,data)
 
      character*(*) name, data
      integer nt
      integer scscatt, len
 
      sfscatt = scscatt(id,name,nt,count,data,len(name))
      
      return
      end
 
C----------------------------------------------------------------------
C Name:     sfsnatt
C Purpose:  create (or modify an existing) numeric attribute
C Inputs:   id: id of object to attribute-ize
C Outputs:  name, nt, count, data
C Returns:  0 on success, -1 on failure with DFerror set
C Users:    HDF Fortran programmers
C----------------------------------------------------------------------
 
      integer function  sfsnatt(id, name, nt, count, data)
 
      character*(*) name
      integer nt, data
      integer scsnatt, len
 
      sfsnatt = scsnatt(id, name, nt, count, data, len(name))
      
      return
      end
 
C----------------------------------------------------------------------
C Name:     sfsattr
C Purpose:  for backward compatability. Calls scsattr to 
C           create (or modify an existing) attribute
C Inputs:   id: id of object to attribute-ize
C Outputs:  name, nt, count, data
C Returns:  0 on success, -1 on failure with DFerror set
C Users:    HDF Fortran programmers
C Remarks:  This function should be phased out in the future.
C----------------------------------------------------------------------
 
      integer function  sfsattr(id, name, nt, count, data)
 
      character*(*) name, data
      integer nt
      integer scsattr, len
 
      sfsattr = scsattr(id, name, nt, count, data, len(name))
      
      return
      end
 
C----------------------------------------------------------------------
C     Name: sdffattr
C     Purpose:  call scfattr, find an attribute
C     Inputs:   id: Object to look at
C               name: name of attribute
C     Returns: attribute number on success, FAIL on failure with error set
C     Users:    Fortran stub routine
C----------------------------------------------------------------------
 
      integer function sffattr(id, name)
 
      character*(*) name
      integer       id, scfattr
 
      sffattr = scfattr(id, name, len(name))
      return
      end
 
 
C----------------------------------------------------------------------
C     Name: sfsextf
C     Purpose:  call scsextf to store data in an external file
C     Inputs:   id: sds id
C               fname: name of external file
C               offset: Number of bytes from the beginning of the
C                       external file to where the data starts
C     Returns: 0 on success, FAIL on failure with error set
C     Users:    Fortran stub routine
C----------------------------------------------------------------------
 
      integer function sfsextf(id, fname, offset)
 
      character*(*) fname
      integer       id, offset, scsextf
 
      sfsextf = scsextf(id, fname, offset, len(fname))
      return
      end