OB.DAAC Logo
NASA Logo
Ocean Color Science Software

ocssw V2022
get_number_of_attached_Vdatas.c
Go to the documentation of this file.
1 #include "L1A_prototype.h"
2 #include "hdfi.h"
3 #include "VU_vdata_utility.h"
4 
5 
7 
8 /*
9 !C************************************************************************
10 
11 !Description: This function is part of the Vdata Utility Package. It returns
12  the number of Vdatas currently attached to the HDF file.
13  As an internal consistency check it is useful to check that
14  there are no attached Vdatas prior to closing the HDF file
15  (since detaching Vdatas is required by HDF and one may forget
16  to do it).
17 
18 !Input Parameters:
19  None
20 
21 !Output Parameters:
22  None
23 
24 !Input/Output Parameters:
25  None
26 
27 Return Values:
28  int16 result ** the number of attached Vdatas **
29  ** (a non-negative integer) **
30 
31 Externally Defined:
32  int16 (hdfi.h)
33  VU_REPORT (VU_vdata_utility.h)
34 
35 Routines Called:
36  None
37 
38 !Revision History:
39  Revision 2.0 1997/10/02 10:45 EDT
40  Timi Adelekan/SAIC/GSC (adelekan@ltpmail.gsfc.nasa.gov)
41  Originated Code.
42 
43  Revision 1.0 1997/07/14 15:58 EDT
44  David Catozzi/SAIC/GSC (cato@ltpmail.gsfc.nasa.gov)
45  Original design.
46 
47 !Team-unique Header:
48  This software is developed by the MODIS Science
49  Data Support Team (SDST) for the National Aeronautics
50  and Space Administration (NASA), Goddard Space Flight
51  Center (GSFC), under contract NAS5-32373.
52 
53 !References and Credits:
54  None
55 
56 !Design Notes:
57  None
58 
59 !END************************************************************************
60 */
61 
62  {
63  /**************************************************************************/
64  /* */
65  /* Declare the local variables and initialize them. */
66  /* */
67  /**************************************************************************/
68 
69  int16 result;
70 
71 
72 
73  /**************************************************************************/
74  /* */
75  /* return attached_Vdata_counter( VU_REPORT ) */
76  /* */
77  /**************************************************************************/
78 
80 
81  return result;
82 
83  } /* End of routine get_number_of_attached_Vdatas */
integer, parameter int16
Definition: cubeio.f90:3
#define VU_REPORT
int16 attached_Vdata_counter(int16 action)
int16 get_number_of_attached_Vdatas(void)