home *** CD-ROM | disk | FTP | other *** search
/ Photo CD Demo 1 / Demo.bin / hdf / unix / hdf3_2r2 / src / dfff.f < prev    next >
Encoding:
Text File  |  1992-10-29  |  3.4 KB  |  98 lines
  1. C***************************************************************************
  2. C
  3. C
  4. C                         NCSA HDF version 3.2r2
  5. C                            October 30, 1992
  6. C
  7. C NCSA HDF Version 3.2 source code and documentation are in the public
  8. C domain.  Specifically, we give to the public domain all rights for future
  9. C licensing of the source code, all resale rights, and all publishing rights.
  10. C
  11. C We ask, but do not require, that the following message be included in all
  12. C derived works:
  13. C
  14. C Portions developed at the National Center for Supercomputing Applications at
  15. C the University of Illinois at Urbana-Champaign, in collaboration with the
  16. C Information Technology Institute of Singapore.
  17. C
  18. C THE UNIVERSITY OF ILLINOIS GIVES NO WARRANTY, EXPRESSED OR IMPLIED, FOR THE
  19. C SOFTWARE AND/OR DOCUMENTATION PROVIDED, INCLUDING, WITHOUT LIMITATION,
  20. C WARRANTY OF MERCHANTABILITY AND WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE
  21. C
  22. C***************************************************************************
  23.  
  24. C
  25. C $Header: /hdf/hdf/v3.2r2/src/RCS/dfff.f,v 1.1 1992/08/25 21:40:44 koziol beta koziol $
  26. C
  27. C $Log: dfff.f,v $
  28. c Revision 1.1  1992/08/25  21:40:44  koziol
  29. c Initial revision
  30. c
  31. C
  32. C------------------------------------------------------------------------------
  33. C File:     dfFf.f
  34. C Purpose:  Fortran stubs for Fortran low level i/o routines
  35. C Invokes:  dfF.c dfkit.c
  36. C Contents: 
  37. C   dfopen:     call dfiopen to open HDF file
  38. C   dfishdf:    call dfiishdf to find is file is HDF
  39. C -----------------------------------------------------------------------------
  40.  
  41. C------------------------------------------------------------------------------
  42. C Name:     dfopen
  43. C Purpose:  call dfiopen to open HDF file
  44. C Inputs:   name: name of HDF file to open
  45. C           access: integer for access mode: DFACC_READ etc.
  46. C           defdds: default number of DDs per header block
  47. C Returns:  0 on success, -1 on failure with DFerror set
  48. C Users:    HDF Fortran programmers
  49. C Invokes:  dfiopen
  50. C------------------------------------------------------------------------------
  51.  
  52.  
  53.       integer function dfopen(name, access, defdds)
  54.       character*(*) name
  55.       integer access, defdds, dfiopen
  56.  
  57.       dfopen = dfiopen(name, access, defdds, len(name))
  58.       return
  59.       end
  60.  
  61. C------------------------------------------------------------------------------
  62. C Name:    dfaccess
  63. C Purpose: call dfiaccess to set up access to a data element
  64. C Inputs:  dfile: pointer to open HDF file
  65. C          tag: tag of element to access
  66. C          ref: ref of element to access
  67. C          access: access mode requested
  68. C Returns: 0 on success, -1 on failure with DFerror set
  69. C Users:   HDF FORTRAN programmers
  70. C Invokes: dfiaccess
  71. C------------------------------------------------------------------------------
  72.  
  73.       integer function dfaccess(dfile, tag, ref, access)
  74.       character*(*) access
  75.       integer dfile, tag, ref, dfiaccess
  76.  
  77.       dfaccess = dfiaccess(dfile, tag, ref, access, len(access))
  78.       return
  79.       end
  80.  
  81. C------------------------------------------------------------------------------
  82. C Name:     dfishdf
  83. C Purpose:  call dfiishdf to test file
  84. C Inputs:   name: name of file to test
  85. C Returns:  0 on success, -1 on failure with DFerror set
  86. C Users:    HDF Fortran programmers
  87. C Invokes:  dfiishdf
  88. C------------------------------------------------------------------------------
  89.  
  90.  
  91.       integer function dfishdf(name)
  92.       character*(*) name
  93.       integer dfiishdf
  94.  
  95.       dfishdf = dfiishdf(name, len(name))
  96.       return
  97.       end
  98.