source: trunk/WRF.COMMON/WRFV3/external/io_grib1/MEL_grib1/init_struct.c @ 2759

Last change on this file since 2759 was 2759, checked in by aslmd, 2 years ago

adding unmodified code from WRFV3.0.1.1, expurged from useless data +1M size

File size: 1.2 KB
Line 
1/* FILENAME:     init_struct.c
2   DATE:         15 FEB 1997
3   PROGRAMMER:   STEVE LOWE, SAIC
4
5   27aug97 Alice Nakajima (ATN):  changed 'size_t size' to 'int' (gcc complains)
6*/ 
7#include <stdio.h>
8#include <stdlib.h>
9#include "dprints.h"    /* for dprints */
10#include "gribfuncs.h"          /* prototypes */
11
12/*
13*
14************************************************************************
15* A. FUNCTION:   init_struct
16*       initializes structures DATA_INPUT and GEOM_IN
17*
18*    INTERFACE:
19*       void init_struct (generic, size)
20*
21*    ARGUMENTS (I=input, O=output, I&O=input and output):
22*      (O)  void    *generic;   address of block to be cleared out
23*      (I)  int     size;       size of block in bytes
24*
25*    RETURN CODE:   none
26************************************************************************
27*
28*/
29#if PROTOTYPE_NEEDED
30void  init_struct ( void *generic, int size)
31#else
32void  init_struct ( generic, size)
33                void *generic; int size;
34#endif
35{
36
37  DPRINT0 ("Entering init_struct()\n");
38/*
39*
40* A.1       CLEAR elements of Structure
41*/
42  memset ((void *)generic, '\0', size);
43
44  DPRINT0 ("Exiting init_struct()\n");
45/*
46*
47* A.2        RETURN
48*/
49  return;
50
51/*
52* END OF FUNCTION
53*
54*/ 
55}
Note: See TracBrowser for help on using the repository browser.