home *** CD-ROM | disk | FTP | other *** search
/ Photo CD Demo 1 / Demo.bin / hdf / unix / hdf3_2r2 / src / dfanff.f < prev    next >
Encoding:
Text File  |  1992-10-29  |  15.1 KB  |  419 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/dfanff.f,v 1.1 1992/08/25 21:40:44 koziol beta koziol $
  26. C
  27. C $Log: dfanff.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:     dfanFf.f
  34. C Purpose:    Fortran stub routines for annotations
  35. C Invokes:    dfanF.c
  36. C Contents: 
  37. C    dagllen      : get length of label of tag/ref
  38. C    daglab       : get label of tag/ref
  39. C    dagdlen      : get length of description of tag/ref
  40. C    dagdesc      : get description of tag/ref
  41. C    daplab       : put label of tag/ref
  42. C    dapdesc      : put description of tag/ref
  43. C    dallist      : get list of labels for a particular tag
  44. C    daafid       : add file ID to file
  45. C
  46. C    dfangetlablen: get length of label of tag/ref
  47. C    dfangetlabel : get label of tag/ref
  48. C    dfangetdesclen: get length of description of tag/ref
  49. C    dfangetdesc  : get description of tag/ref
  50. C    dfanputlabel : put label of tag/ref
  51. C    dfanputdesc  : put description of tag/ref
  52. C    dfanlablist  : get list of labels for a particular tag
  53. C    dfanaddfid   : add file ID to file 
  54.  
  55. C------------------------------------------------------------------------------
  56.  
  57.  
  58. C------------------------------------------------------------------------------
  59. C Name:    dagllen
  60. C Purpose: get length of label of tag/ref
  61. C Inputs:  filename: name of HDF file
  62. C          tag, ref: tag/ref of item of which we want label
  63. C Returns: length of label on success, -1 on failure with DFerror set
  64. C Users:   HDF HLL users, utilities, other routines
  65. C Invokes: daiganl
  66. C------------------------------------------------------------------------------
  67.  
  68.       integer function dagllen(filename, tag, ref)
  69.       character *(*) filename
  70.       integer tag, ref, daiganl
  71.  
  72. C 0 is DFAN_LABEL
  73.       dagllen = daiganl(filename, tag, ref, 0, len(filename))
  74.       return
  75.       end
  76.  
  77.  
  78. C------------------------------------------------------------------------------
  79. C Name:    daglab
  80. C Purpose: get label of tag/ref
  81. C Inputs:  filename: name of HDF file
  82. C          tag, ref: tag/ref of item of which we want label
  83. C          label: space to return label in
  84. C          maxlen: size of space to return label in
  85. C Returns: 0 on success, -1 on failure with DFerror set
  86. C Users:   HDF HLL users, utilities, other routines
  87. C Invokes: daigann
  88. C------------------------------------------------------------------------------
  89.  
  90.       integer function daglab(filename, tag, ref, label, maxlen)
  91.       character *(*) filename, label
  92.       integer tag, ref, maxlen, daigann
  93.  
  94. C 0 is DFAN_LABEL
  95.       daglab = daigann(filename, tag, ref, label, maxlen, 0,
  96.      +                                                  len(filename))
  97.       return
  98.       end
  99.  
  100.  
  101. C------------------------------------------------------------------------------
  102. C Name:    dagdlen
  103. C Purpose: get length of description of tag/ref
  104. C Inputs:  filename: name of HDF file
  105. C          tag, ref: tag/ref of item of which we want description
  106. C Returns: length of description on success, -1 on failure with DFerror set
  107. C Users:   HDF HLL users, utilities, other routines
  108. C Invokes: daiganl
  109. C------------------------------------------------------------------------------
  110.  
  111.       integer function dagdlen(filename, tag, ref)
  112.       character *(*) filename
  113.       integer tag, ref, daiganl
  114.  
  115. C 1 is DFAN_DESC
  116.       dagdlen = daiganl(filename, tag, ref, 1, len(filename))
  117.       return
  118.       end
  119.  
  120.  
  121. C------------------------------------------------------------------------------
  122. C Name:    dagdesc
  123. C Purpose: get description of tag/ref
  124. C Inputs:  filename: name of HDF file
  125. C          tag, ref: tag/ref of item of which we want description
  126. C          desc: space to return description in
  127. C          maxlen: size of space to return description in
  128. C Returns: 0 on success, -1 on failure with DFerror set
  129. C Users:   HDF HLL users, utilities, other routines
  130. C Invokes: daigann
  131. C------------------------------------------------------------------------------
  132.  
  133.       integer function dagdesc(filename, tag, ref, desc, maxlen)
  134.       character *(*) filename, desc
  135.       integer tag, ref, daigann, maxlen
  136.  
  137. C 1 is DFAN_DESC
  138.       dagdesc = daigann(filename, tag, ref, desc, maxlen, 1,
  139.      +                                                  len(filename))
  140.       return
  141.       end
  142.  
  143.  
  144. C------------------------------------------------------------------------------
  145. C Name:    daplab
  146. C Purpose: put label of tag/ref
  147. C Inputs:  filename: name of HDF file
  148. C          tag, ref: tag/ref of item of which this is the label
  149. C          label: label to write to file
  150. C Returns: 0 on success, -1 on failure with DFerror set
  151. C Users:   HDF HLL users, utilities, other routines
  152. C Invokes: daipann
  153. C------------------------------------------------------------------------------
  154.  
  155.       integer function daplab(filename, tag, ref, label)
  156.       character *(*) filename, label
  157.       integer tag, ref, daipann
  158.  
  159. C 0 is DFAN_LABEL
  160.       daplab = daipann(filename, tag, ref, label, len(label), 0,
  161.      +                                                   len(filename))
  162.       return
  163.       end
  164.  
  165.  
  166. C------------------------------------------------------------------------------
  167. C Name:    dapdesc
  168. C Purpose: put description of tag/ref
  169. C Inputs:  filename: name of HDF file
  170. C          tag, ref: tag/ref of item of which this is the description
  171. C          desc: description to write to file
  172. C          desclen: length of description
  173. C Returns: 0 on success, -1 on failure with DFerror set
  174. C Users:   HDF HLL users, utilities, other routines
  175. C Invokes: daipann
  176. C------------------------------------------------------------------------------
  177.  
  178.       integer function dapdesc(filename, tag, ref, desc, desclen)
  179.       character *(*) filename, desc
  180.       integer tag, ref, desclen, daipann
  181.  
  182. C 1 is DFAN_DESC
  183.       dapdesc = daipann(filename, tag, ref, desc, desclen, 1,
  184.      +                                               len(filename))
  185.       return
  186.       end
  187.  
  188.  
  189. C------------------------------------------------------------------------------
  190. C Name:    dallist
  191. C Purpose: Return list of refs and labels for a given tag
  192. C Inputs:  filename: name of HDF file
  193. C          tag: tag to get list of refs and labels for
  194. C          reflist: array to place refs in
  195. C          labellist: array of strings to place labels in
  196. C          listsize: size of ref and label lists
  197. C          maxlen: maximum length allowed for label
  198. C          startpos: beginning from the startpos'th entry, upto listsize
  199. C                entries will be returned.
  200. C Returns: number of entries on success, -1 on error with DFerror set
  201. C Users:   HDF users, utilities, other routines
  202. C Invokes: dailist
  203. C Method:  call dailist
  204. C Remarks: none
  205. C------------------------------------------------------------------------------
  206.  
  207.       integer function dallist(filename, tag, reflist, labellist,
  208.      +                                      listsize, maxlen, startpos)
  209.       character *(*) filename, labellist
  210.       integer tag, reflist(*), listsize, maxlen, startpos, dailist
  211.  
  212.       dallist = dailist(filename, tag, reflist, labellist,
  213.      +                     listsize, maxlen, startpos, len(filename))
  214.       return
  215.       end
  216.  
  217.  
  218. C------------------------------------------------------------------------------
  219. C Name:    daafid
  220. C Purpose: add file ID to file
  221. C Inputs:  dfile: pointer to HDF file
  222. C          id: id to write to file
  223. C Returns: 0 on success, -1 on failure with DFerror set
  224. C Users:   HDF HLL users, utilities, other routines
  225. C Invokes: daipann
  226. C------------------------------------------------------------------------------
  227.  
  228.       integer function daafid(file, id)
  229.       integer file, daiafid
  230.       character*(*) id
  231.  
  232.       daafid = daiafid(file, id, len(id) )
  233.       return
  234.       end
  235.  
  236.  
  237. CEND7MAX
  238.  
  239.  
  240. C------------------------------------------------------------------------------
  241. C Name:    dfangetlablen
  242. C Purpose: get length of label of tag/ref
  243. C Inputs:  filename: name of HDF file
  244. C          tag, ref: tag/ref of item of which we want label
  245. C Returns: length of label on success, -1 on failure with DFerror set
  246. C Users:   HDF HLL users, utilities, other routines
  247. C Invokes: daignal
  248. C------------------------------------------------------------------------------
  249.  
  250.       integer function dfangetlablen(filename, tag, ref)
  251.       character *(*) filename
  252.       integer tag, ref, daiganl
  253.  
  254. C 0 is DFAN_LABEL
  255.       dfangetlablen = daiganl(filename, tag, ref, 0, len(filename))
  256.       return
  257.       end
  258.  
  259.  
  260. C------------------------------------------------------------------------------
  261. C Name:    dfangetlabel
  262. C Purpose: get label of tag/ref
  263. C Inputs:  filename: name of HDF file
  264. C          tag, ref: tag/ref of item of which we want label
  265. C          label: space to return label in
  266. C          maxlen: size of space to return label in
  267. C Returns: 0 on success, -1 on failure with DFerror set
  268. C Users:   HDF HLL users, utilities, other routines
  269. C Invokes: daigann
  270. C------------------------------------------------------------------------------
  271.  
  272.       integer function dfangetlabel(filename, tag, ref, label, maxlen)
  273.       character *(*) filename, label
  274.       integer tag, ref, maxlen, daigann
  275.  
  276. C 0 is DFAN_LABEL
  277.       dfangetlabel = daigann(filename, tag, ref, label, maxlen, 0,
  278.      +                                                  len(filename))
  279.       return
  280.       end
  281.  
  282.  
  283. C------------------------------------------------------------------------------
  284. C Name:    dfangetdesclen
  285. C Purpose: get length of description of tag/ref
  286. C Inputs:  filename: name of HDF file
  287. C          tag, ref: tag/ref of item of which we want description
  288. C Returns: length of description on success, -1 on failure with DFerror set
  289. C Users:   HDF HLL users, utilities, other routines
  290. C Invokes: daiganl
  291. C------------------------------------------------------------------------------
  292.  
  293.       integer function dfangetdesclen(filename, tag, ref)
  294.       character *(*) filename
  295.       integer tag, ref, daiganl
  296.  
  297. C 1 is DFAN_DESC
  298.       dfangetdesclen = daiganl(filename, tag, ref, 1, len(filename))
  299.       return
  300.       end
  301.  
  302.  
  303. C------------------------------------------------------------------------------
  304. C Name:    dfangetdesc
  305. C Purpose: get description of tag/ref
  306. C Inputs:  filename: name of HDF file
  307. C          tag, ref: tag/ref of item of which we want description
  308. C          desc: space to return description in
  309. C          maxlen: size of space to return description in
  310. C Returns: 0 on success, -1 on failure with DFerror set
  311. C Users:   HDF HLL users, utilities, other routines
  312. C Invokes: daigann
  313. C------------------------------------------------------------------------------
  314.  
  315.       integer function dfangetdesc(filename, tag, ref, desc, maxlen)
  316.       character *(*) filename, desc
  317.       integer tag, ref, daigann, maxlen
  318.  
  319. C 1 is DFAN_DESC
  320.       dfangetdesc = daigann(filename, tag, ref, desc, maxlen, 1,
  321.      +                                                  len(filename))
  322.       return
  323.       end
  324.  
  325.  
  326. C------------------------------------------------------------------------------
  327. C Name:    dfanputlabel
  328. C Purpose: put label of tag/ref
  329. C Inputs:  filename: name of HDF file
  330. C          tag, ref: tag/ref of item of which this is the label
  331. C          label: label to write to file
  332. C Returns: 0 on success, -1 on failure with DFerror set
  333. C Users:   HDF HLL users, utilities, other routines
  334. C Invokes: daipann
  335. C------------------------------------------------------------------------------
  336.  
  337.       integer function dfanputlabel(filename, tag, ref, label)
  338.       character *(*) filename, label
  339.       integer tag, ref, daipann
  340.  
  341. C 0 is DFAN_LABEL
  342.       dfanputlabel = daipann(filename, tag, ref, label, len(label), 0,
  343.      +                                                   len(filename))
  344.       return
  345.       end
  346.  
  347.  
  348. C------------------------------------------------------------------------------
  349. C Name:    dfanputdesc
  350. C Purpose: put description of tag/ref
  351. C Inputs:  filename: name of HDF file
  352. C          tag, ref: tag/ref of item of which this is the description
  353. C          desc: description to write to file
  354. C          desclen: length of description
  355. C Returns: 0 on success, -1 on failure with DFerror set
  356. C Users:   HDF HLL users, utilities, other routines
  357. C Invokes: daipann
  358. C------------------------------------------------------------------------------
  359.  
  360.       integer function dfanputdesc(filename, tag, ref, desc, desclen)
  361.       character *(*) filename, desc
  362.       integer tag, ref, desclen, daipann
  363.  
  364. C 1 is DFAN_DESC
  365.       dfanputdesc = daipann(filename, tag, ref, desc, desclen, 1,
  366.      +                                               len(filename))
  367.       return
  368.       end
  369.  
  370.  
  371. C------------------------------------------------------------------------------
  372. C Name:    dfanlablist
  373. C Purpose: Return list of refs and labels for a given tag
  374. C Inputs:  filename: name of HDF file
  375. C          tag: tag to get list of refs and labels for
  376. C          reflist: array to place refs in
  377. C          labellist: array of strings to place labels in
  378. C          listsize: size of ref and label lists
  379. C          maxlen: maximum length allowed for label
  380. C          startpos: beginning from the startpos'th entry, upto listsize
  381. C                entries will be returned.
  382. C Returns: number of entries on success, -1 on error with DFerror set
  383. C Users:   HDF users, utilities, other routines
  384. C Invokes: dailist
  385. C Method:  call dailist
  386. C Remarks: none
  387. C------------------------------------------------------------------------------
  388.  
  389.       integer function dfanlablist(filename, tag, reflist, labellist,
  390.      +                                      listsize, maxlen, startpos)
  391.       character *(*) filename, labellist
  392.       integer tag, reflist(*), listsize, maxlen, startpos, dailist
  393.  
  394.       dfanlablist = dailist(filename, tag, reflist, labellist,
  395.      +                     listsize, maxlen, startpos, len(filename))
  396.       return
  397.       end
  398.  
  399.  
  400. C------------------------------------------------------------------------------
  401. C Name:    dfanaddfid
  402. C Purpose: add file ID to file
  403. C Inputs:  dfile: pointer to HDF file
  404. C          id: id to write to file
  405. C Returns: 0 on success, -1 on failure with DFerror set
  406. C Users:   HDF HLL users, utilities, other routines
  407. C Invokes: daipann
  408. C------------------------------------------------------------------------------
  409.  
  410.       integer function dfanaddfid(file, id)
  411.       integer file, daiafid
  412.       character*(*) id
  413.  
  414.       DFANaddfid = daiafid(file, id, len(id) )
  415.       return
  416.       end
  417.  
  418.  
  419.