NCEPLIBS-g2tmpl/sort__params__grib2__tbl_8F90_source.html

 program  sort_params_grib2_tbl

   use grib2_all_tables_module

   integer idisc,icatg,iparm,locflg

   character*255 fl_nametbl

   locflg=0

   idisc=0

   icatg=0

   iparm=0


   !    Opens and reads the GRIB2 Code Table 4.2 into an internal memory structure.

   !

   fl_nametbl='params_grib2_tbl_new'

   call open_and_read_4dot2( fl_nametbl, ierr )

   if ( ierr .ne. 0 ) then

      print*, 'Couldnt open table file - return code was ',ierr

   endif


   !    Sorts and writes the GRIB2 Code Table 4.2 to an output file.


   fl_nametbl='params_grib2_tbl_new'

   call sort_and_write_4dot2( fl_nametbl, ierr )

   print *, ""

   print *, " The output params_grib2_tbl_new file sorted."

   print *, ""

   if ( ierr .ne. 0 ) then

      print*, 'Couldnt open output file - return code was ',ierr

   endif

   stop

 end Program sort_params_grib2_tbl

grib2_all_tables_module
Define the variables in the derived data type discipline provided in Section 0.
Definition: grib2_all_tables_module.F90:25

open_and_read_4dot2
void open_and_read_4dot2(char *, f77int *)
Opens and reads the GRIB2 Code Table 4.2 into an internal memory structure.
Definition: process_4dot2.c:113

sort_and_write_4dot2
void sort_and_write_4dot2(char *, f77int *)
Sorts the contents of GRIB2 Code Table 4.2 within the internal memory structure and writes the output...
Definition: process_4dot2.c:199

sort_params_grib2_tbl
program sort_params_grib2_tbl
This program reads params_grib2_tbl_new.text and writes the output file will be sorted with a format ...
Definition: sort_params_grib2_tbl.F90:13