| 1 | #include <stdio.h> |
|---|
| 2 | #include "grib.h" /* all gribs structs */ |
|---|
| 3 | #include "input.h" /* GEOM+IN, DATA+INPUT, USER_INPUT */ |
|---|
| 4 | |
|---|
| 5 | /* check Compiler, prototypes needed for ANSI-C */ |
|---|
| 6 | |
|---|
| 7 | /*#if defined( __cplusplus ) || defined( __STDC__ ) || defined( __GNUC__ )*/ |
|---|
| 8 | /* Changed by Todd Hutchinson to force the need for PROTOTYPE */ |
|---|
| 9 | #if 1 |
|---|
| 10 | |
|---|
| 11 | #define PROTOTYPE_NEEDED 1 |
|---|
| 12 | |
|---|
| 13 | int Expand_gribhdr (GRIB_HDR *, long, char *); |
|---|
| 14 | int prt_badmsg (GRIB_HDR *gh, char *errmsg); |
|---|
| 15 | int make_grib_log (char *,char *,unsigned long,long,PDS_INPUT, |
|---|
| 16 | grid_desc_sec,BDS_HEAD_INPUT,BMS_INPUT,float *,char *); |
|---|
| 17 | int FTP_getfile (char *,char *,char *); |
|---|
| 18 | int apply_bitmap (BMS_INPUT *,float **,float,BDS_HEAD_INPUT *,char *); |
|---|
| 19 | int create_inpLambert (GEOM_IN,void **,char *); |
|---|
| 20 | int create_inpLatlon (GEOM_IN,void **,char *); |
|---|
| 21 | void create_inpPDS (DATA_INPUT,USER_INPUT,PDS_INPUT *); |
|---|
| 22 | int create_inpPolar (GEOM_IN,void **,char *); |
|---|
| 23 | void display_gribhdr (GRIB_HDR *hdr); |
|---|
| 24 | void free_gribhdr (GRIB_HDR **); |
|---|
| 25 | void gbyte (char *,unsigned long *,unsigned long *,unsigned long); |
|---|
| 26 | void gbyte_quiet (char *,unsigned long *,unsigned long *,unsigned long); |
|---|
| 27 | int grib_dec (char *,PDS_INPUT *,grid_desc_sec *,BDS_HEAD_INPUT *, |
|---|
| 28 | BMS_INPUT *,float **,char *); |
|---|
| 29 | int grib_enc (DATA_INPUT,USER_INPUT,GEOM_IN,float *,GRIB_HDR *,char *); |
|---|
| 30 | float grib_ibm_local(unsigned long ibm_float); |
|---|
| 31 | int grib_seek (char *,long *,int,GRIB_HDR *,char *); |
|---|
| 32 | int gribgetbds (char *,short,BMS_INPUT *,grid_desc_sec *,float **, |
|---|
| 33 | BDS_HEAD_INPUT *, char *); |
|---|
| 34 | int gribgetbms (char *,BMS_INPUT *,int,unsigned long,char *); |
|---|
| 35 | int gribgetgds (char *,grid_desc_sec *,char *); |
|---|
| 36 | int gribgetpds (char *,PDS_INPUT *,char *); |
|---|
| 37 | int gribhdr2file (GRIB_HDR *,FILE *,char *); |
|---|
| 38 | int gribputbds (USER_INPUT,long,short,float *,BDS_HEAD_INPUT *, |
|---|
| 39 | GRIB_HDR **,char *); |
|---|
| 40 | int gribputgds (GEOM_IN,GDS_HEAD_INPUT *,void **,GRIB_HDR **,char *); |
|---|
| 41 | int gribputpds(DATA_INPUT,USER_INPUT,PDS_INPUT *,GRIB_HDR**,char *); |
|---|
| 42 | void hdr_print (char *,unsigned char *,int ); |
|---|
| 43 | void init_dec_struct (PDS_INPUT *,grid_desc_sec *,BMS_INPUT *,BDS_HEAD_INPUT *); |
|---|
| 44 | void init_enc_struct (DATA_INPUT *,GEOM_IN *,USER_INPUT *); |
|---|
| 45 | int init_gribhdr (GRIB_HDR **,char *); |
|---|
| 46 | void init_struct (void *, int); |
|---|
| 47 | int inp2Grib_Lambert (void **,LAMBERT *,long *,char *); |
|---|
| 48 | int inp2grib_Latlon (void **,LATLON *,long *,char *); |
|---|
| 49 | int inp2grib_PDS (PDS_INPUT *,PDS_GRIB **,char *); |
|---|
| 50 | int inp2grib_PolarSt (void **,POLAR *,long *,char *); |
|---|
| 51 | int ld_dec_lookup (char *,char *); |
|---|
| 52 | int ld_enc_config (char *,USER_INPUT *,char *); |
|---|
| 53 | int ld_enc_ffinfo (char *, DATA_INPUT *,char *); |
|---|
| 54 | int ld_enc_geomfile (char *,GEOM_IN *,char *); |
|---|
| 55 | int ld_enc_ieeeff (char *,float *,int,char *); |
|---|
| 56 | int ld_enc_lookup (char *,char *); |
|---|
| 57 | int ld_grib_origctrs (char *,char *,char *); |
|---|
| 58 | unsigned long grib_local_ibm (double local_float); |
|---|
| 59 | void make_default_grbfn (DATA_INPUT,USER_INPUT,char *); |
|---|
| 60 | int map_lvl (char *,DATA_INPUT *,float *,float *,char *); |
|---|
| 61 | int map_parm (char *,DATA_INPUT *,float *,float *,char *); |
|---|
| 62 | int pack_spatial (long *,unsigned short *,float *,float *, |
|---|
| 63 | unsigned long **,short,long *,char *); |
|---|
| 64 | void prt_inp_struct (PDS_INPUT *,grid_desc_sec *, BMS_INPUT *, |
|---|
| 65 | struct BDS_HEAD_INPUT *,float **); |
|---|
| 66 | void upd_child_errmsg (char *,char *); |
|---|
| 67 | void w3ft33_(float *ain,float **out, int *nsflag); |
|---|
| 68 | #else |
|---|
| 69 | #define PROTOTYPE_NEEDED 0 |
|---|
| 70 | |
|---|
| 71 | int Expand_gribhdr (); |
|---|
| 72 | int prt_badmsg (); |
|---|
| 73 | int make_grib_log (); |
|---|
| 74 | int FTP_getfile (); |
|---|
| 75 | int apply_bitmap (); |
|---|
| 76 | int create_inpLambert (); |
|---|
| 77 | int create_inpLatlon (); |
|---|
| 78 | void create_inpPDS (); |
|---|
| 79 | int create_inpPolar (); |
|---|
| 80 | void display_gribhdr (); |
|---|
| 81 | void free_gribhdr (); |
|---|
| 82 | void gbyte (); |
|---|
| 83 | void gbyte_quiet (); |
|---|
| 84 | int grib_dec (); |
|---|
| 85 | int grib_enc (); |
|---|
| 86 | float grib_ibm_local(); |
|---|
| 87 | int grib_seek (); |
|---|
| 88 | int gribgetbds (); |
|---|
| 89 | int gribgetbms (); |
|---|
| 90 | int gribgetgds (); |
|---|
| 91 | int gribgetpds (); |
|---|
| 92 | int gribhdr2file (); |
|---|
| 93 | int gribputbds ( ); |
|---|
| 94 | int gribputgds (); |
|---|
| 95 | int gribputpds(); |
|---|
| 96 | void hdr_print (); |
|---|
| 97 | void init_dec_struct (); |
|---|
| 98 | void init_enc_struct (); |
|---|
| 99 | int init_gribhdr (); |
|---|
| 100 | void init_struct (); |
|---|
| 101 | int inp2Grib_Lambert (); |
|---|
| 102 | int inp2grib_Latlon (); |
|---|
| 103 | int inp2grib_PDS (); |
|---|
| 104 | int inp2grib_PolarSt (); |
|---|
| 105 | int ld_dec_lookup (); |
|---|
| 106 | int ld_enc_config (); |
|---|
| 107 | int ld_enc_ffinfo (); |
|---|
| 108 | int ld_enc_geomfile (); |
|---|
| 109 | int ld_enc_ieeeff (); |
|---|
| 110 | int ld_enc_lookup (); |
|---|
| 111 | int ld_grib_origctrs (); |
|---|
| 112 | unsigned long grib_local_ibm (); |
|---|
| 113 | void make_default_grbfn (); |
|---|
| 114 | int map_lvl (); |
|---|
| 115 | int map_parm (); |
|---|
| 116 | int pack_spatial (); |
|---|
| 117 | void prt_inp_struct (); |
|---|
| 118 | void upd_child_errmsg (); |
|---|
| 119 | #endif |
|---|
