home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / hdf / unix / hdf3_2r2.lha / HDF3.2r2 / src / hfileff.f < prev    next >
Encoding:
Text File  |  1992-10-28  |  2.3 KB  |  64 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/hfileff.f,v 1.1 1992/08/25 21:40:44 koziol beta koziol $
  26. C
  27. C $Log: hfileff.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------------------------------------------------------------------------------
  34. C File:     hfileFf.f
  35. C Purpose:  Fortran stubs for Palette Fortran routines
  36. C Invokes:  hfileF.c 
  37. C Contents: 
  38. C   hopen:          Call hiopen to open file
  39. C Remarks: none
  40. C----------------------------------------------------------------------------*/
  41.  
  42.  
  43. C------------------------------------------------------------------------------
  44. C Name: hopen
  45. C Purpose:  call hiopen, open file
  46. C Inputs:   path: Name of file to be opened
  47. C           access: DFACC_READ, DFACC_WRITE, DFACC_CREATE,
  48. C                      or any bitwise-or of the above.
  49. C           ndds: Number of dds in header block if file needs to be created.
  50. C Returns: 0 on success, FAIL on failure with error set
  51. C Users:    Fortran stub routine
  52. C Invokes: hiopen
  53. C----------------------------------------------------------------------------*/
  54.  
  55.       integer function hopen(filename, access, defdds)
  56.  
  57.       character*(*) filename
  58.       integer       access, defdds, hiopen
  59.  
  60.       hopen = hiopen(filename, access, defdds, len(filename))
  61.       return
  62.       end
  63.  
  64.