OB.DAAC Logo
NASA Logo
Ocean Color Science Software

ocssw V2022
equal_strings.c
Go to the documentation of this file.
1 #include "L1A_prototype.h"
2 #include "hdf.h"
3 #include "hdfi.h"
4 
5 
6 int16 equal_strings ( char *a,
7  char *b )
8 
9 /*
10 !C************************************************************************
11 
12 !Description: This functions takes two strings up to 79 characters long and
13  determines if they are equal.
14 
15 !Input Parameters:
16  char *a ** the first of the two strings **
17  ** to compare **
18 
19  char *b ** the second of the two strings **
20  ** to compare **
21 
22 !Output Parameters:
23  None
24 
25 Return Values:
26  TRUE (1) (hdf.h)
27  FALSE (0) (hdf.h)
28 
29 Externally Defined:
30  int16 (hdfi.h)
31 
32 Called By:
33  assign_data_type
34  get_index
35  recall_id
36 
37 Routines Called:
38  None
39 
40 !Revision History:
41  Revision 2.0 1997/10/01 17:25 EDT
42  Timi Adelekan/SAIC/GSC (adelekan@ltpmail.gsfc.nasa.gov)
43  Originated Code.
44 
45  Revision 1.0 1997/07/14 15:58 EDT
46  David Catozzi/SAIC/GSC (cato@ltpmail.gsfc.nasa.gov)
47  Original design.
48 
49 !Team-unique Header:
50  This software is developed by the MODIS Science
51  Data Support Team (SDST) for the National Aeronautics
52  and Space Administration (NASA), Goddard Space Flight
53  Center (GSFC), under contract NAS5-32373.
54 
55 !References and Credits:
56  None
57 
58 !Design Notes:
59  None
60 
61 !END************************************************************************
62 */
63 
64  {
65  /**************************************************************************/
66  /* */
67  /* Declare the local variables and initialize them. */
68  /* */
69  /**************************************************************************/
70  /* */
71  /* Set value to FALSE */
72  /* */
73  /**************************************************************************/
74 
75  int16 value = FALSE;
76 
77 
78 
79  /**************************************************************************/
80  /* */
81  /* IF string a is equal to string b (for up to 79 characters) */
82  /* THEN */
83  /* Set value to TRUE */
84  /* ENDIF */
85  /* */
86  /* return value */
87  /* */
88  /**************************************************************************/
89 
90  if ((a && b) != FALSE) /* if both a and b is non-NULL then */
91  value = (!strncmp(a, b, 79));
92 
93  return value;
94 
95  } /* End of routine equal_strings */
integer, parameter int16
Definition: cubeio.f90:3
int32 value
Definition: Granule.c:1235
int16 equal_strings(char *a, char *b)
Definition: equal_strings.c:6
#define FALSE
Definition: rice.h:164
data_t b[NROOTS+1]
Definition: decode_rs.h:77
PGE01 indicating that PGE02 PGE01 V6 for and PGE01 V2 for MOD03 were used to produce the granule By convention adopted in all MODIS Terra PGE02 code versions are The fourth digit of the PGE02 version denotes the LUT version used to produce the granule The source of the metadata environment variable ProcessingCenter was changed from a QA LUT value to the Process Configuration A sign used in error in the second order term was changed to a
Definition: HISTORY.txt:424