core
/
eccodes
mirror of https://github.com/ecmwf/eccodes.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Examples: compiler warning -Wmaybe-uninitialized

This commit is contained in:
Shahram Najm 2021-02-24 22:29:23 +00:00
parent 944a4cfacb
commit da7e8b3341
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
examples/F90/grib_precision.f90
View File

@ -16,13 +16,13 @@ program precision
use eccodes
implicit none
integer(kind=4) :: size1
integer :: infile, outfile
integer :: igrib
integer :: infile, outfile
integer :: igrib
real(kind=8), dimension(:), allocatable :: values1
real(kind=8), dimension(:), allocatable :: values2
real(kind=8) :: maxa, a, maxv, minv, maxr, r
integer(kind=4) :: decimalPrecision, bitsPerValue1, bitsPerValue2
integer :: i, iret
real(kind=8) :: maxa, a, maxv, minv, maxr, r=0
integer(kind=4) :: decimalPrecision, bitsPerValue1, bitsPerValue2
integer :: i, iret
call codes_open_file(infile, &
'../../data/regular_latlon_surface_constant.grib1', 'r')