source: trunk/WRF.COMMON/WRFV2/external/io_grib1/MEL_grib1/test_set_bytes.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: 395 bytes
Line 
1#include <stdio.h>
2
3main()
4{
5  int i;
6  long longint = -10342;
7  char charstring[sizeof(long)];
8  char charstring_orig[sizeof(long)];
9
10  memcpy(charstring_orig,(void *)&longint,8);
11  set_bytes(longint,3,charstring);
12  for (i=0; i < sizeof(long); i++) 
13    {
14      fprintf(stderr,"new:  %d: %d\n",i,charstring[i]);
15      /*      fprintf(stderr,"orig: %d: %d\n",i,charstring_orig[i]); */
16    }
17}
18
Note: See TracBrowser for help on using the repository browser.