source: trunk/WRF.COMMON/WRFV2/external/io_grib1/MEL_grib1/init_enc_struct.c

Last change on this file was 11, checked in by aslmd, 14 years ago

spiga@svn-planeto:ajoute le modele meso-echelle martien

File size: 1.6 KB
Line 
1/* FILENAME:     init_enc_struct.c
2   DATE:         15 FEB 1996
3   PROGRAMMER:   STEVE LOWE, SAIC
4   REVISED BY:   ALICE NAKAJIMA, SAIC
5 */
6#include <stdio.h>
7#include <stdlib.h>
8#include "dprints.h"            /* for dprints */
9#include "gribfuncs.h"          /* prototypes */
10/*
11*
12************************************************************************
13* A. FUNCTION:  init_enc_struct
14*       initializes structures DATA_INPUT and GEOM_IN
15*
16*    INTERFACE:
17*       void init_enc_struct (data_input, geom_in, user_input)
18*
19*    ARGUMENTS (I=input, O=output, I&O=input and output):
20*      (O) DATA_INPUT *data_input;    encoder struct to be initialized
21*      (O) GEOM_IN  *geom_in;         encoder struct to be initialized
22*      (O) USER_INPUT *user_input;    encoder struct to be initialized
23*
24*      RETURN CODE:   none
25************************************************************************
26*/
27#if PROTOTYPE_NEEDED
28void init_enc_struct ( DATA_INPUT *data_input, GEOM_IN  *geom_in,
29                        USER_INPUT *user_input)
30#else
31void init_enc_struct ( data_input, geom_in, user_input)
32                        DATA_INPUT *data_input; 
33                        GEOM_IN  *geom_in;
34                        USER_INPUT *user_input;
35#endif
36{
37  DPRINT0 ("Entering init_enc_struct()\n");
38/*
39*
40* A.1       CLEAR elements of DATA_INPUT Structure
41*
42* A.2       CLEAR elements of GEOM_IN Structure
43*
44* A.3       CLEAR elements of USER_INPUT Structure
45*/
46  memset ((void *)data_input, '\0', sizeof (DATA_INPUT));
47  memset ((void *)geom_in, '\0', sizeof (GEOM_IN));
48  memset ((void *)user_input, '\0', sizeof (USER_INPUT));
49
50  DPRINT0 ("Exiting init_enc_struct()\n");
51/*
52*
53* A.4        RETURN
54*/
55  return;
56
57/*
58* END OF FUNCTION
59*
60*/ 
61}
Note: See TracBrowser for help on using the repository browser.