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

Fortran compiler warnings

This commit is contained in:
Shahram Najm 2016-10-19 17:29:45 +01:00
parent 4ef4fba3d3
commit a98b130e45
3 changed files with 104 additions and 104 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fortran/grib_api_externals.h
View File

@ -33,7 +33,7 @@ integer, external :: grib_f_get_int, grib_f_get_long,grib_f_get_int_array, &
grib_f_get_real8, grib_f_get_real8_array, &
grib_f_get_real4_element, grib_f_get_real8_element, &
grib_f_get_real4_elements, grib_f_get_real8_elements, &
grib_f_get_string,grib_f_get_string_array, &
grib_f_get_string,grib_f_get_string_array, &
codes_f_bufr_copy_data, &
grib_f_is_missing,grib_f_is_defined
integer, external :: grib_f_new_from_index, &
@ -46,7 +46,7 @@ integer, external :: grib_f_new_from_index, &
grib_f_index_get_size_int, &
grib_f_index_get_int, &
grib_f_index_get_long, &
grib_f_index_get_string, &
grib_f_index_get_string, &
grib_f_index_get_real8, &
grib_f_index_select_real8, &
grib_f_index_select_string, &

4
fortran/grib_api_visibility.h
View File

@ -12,7 +12,7 @@ public :: grib_keys_iterator_get_name, &
grib_keys_iterator_rewind
public :: grib_new_from_message, &
grib_new_from_samples, grib_new_from_file, &
grib_read_from_file,grib_headers_only_new_from_file
grib_read_from_file,grib_headers_only_new_from_file
public :: grib_release
public :: grib_dump
public :: grib_get_error_string
@ -23,4 +23,4 @@ public :: grib_check
public :: grib_clone, grib_copy_namespace
public :: grib_index_get,grib_index_select,&
grib_index_create,grib_index_get_size,grib_index_release,&
grib_util_sections_copy
grib_util_sections_copy

200
fortran/grib_f90_tail.f90
View File

@ -1449,9 +1449,9 @@
integer(kind=kindOfInt) :: iret
iret=grib_f_release ( gribid )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -1481,9 +1481,9 @@
integer(kind=kindOfInt) :: iret
iret=grib_f_clone(gribid_src,gribid_dest)
if (iret /= 0) then
call grib_f_write_on_fail(gribid_src)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid_src)
endif
if (present(status)) then
status = iret
else
@ -1495,14 +1495,14 @@
integer(kind=kindOfInt), intent(in) :: gribid_from
integer(kind=kindOfInt), intent(in) :: gribid_to
integer(kind=kindOfInt), intent(out) :: gribid_out
integer(kind=kindOfInt), intent(in) :: what
integer(kind=kindOfInt), intent(in) :: what
integer(kind=kindOfInt),optional, intent(out) :: status
integer(kind=kindOfInt) :: iret
iret=grib_f_util_sections_copy(gribid_from,gribid_to,what,gribid_out)
if (iret /= 0) then
call grib_f_write_on_fail(gribid_from)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid_from)
endif
if (present(status)) then
status = iret
else
@ -1582,9 +1582,9 @@
npoints=size(lats)
iret = grib_f_get_data_real4 ( gribid, lats, lons, values,npoints )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -1618,9 +1618,9 @@
npoints=size(lats)
iret = grib_f_get_data_real8 ( gribid, lats, lons, values,npoints )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -1806,9 +1806,9 @@
integer(kind=kindOfInt) :: iret
iret=grib_f_get_size_int ( gribid, key, size )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -1864,9 +1864,9 @@
integer(kind=kindOfInt) :: iret
iret=grib_f_get_int ( gribid, key, value )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -1892,9 +1892,9 @@
integer(kind=kindOfInt) :: iret
iret=grib_f_get_long ( gribid, key, value )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -1920,9 +1920,9 @@
integer(kind=kindOfInt) :: iret
iret=grib_f_is_missing ( gribid, key, is_missing )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -1948,9 +1948,9 @@
integer(kind=kindOfInt) :: iret
iret=grib_f_is_defined( gribid, key, is_defined )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -1976,9 +1976,9 @@
integer(kind=kindOfInt) :: iret
iret=grib_f_get_real4 ( gribid, key, value )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2004,9 +2004,9 @@
integer(kind=kindOfInt) :: iret
iret=grib_f_get_real8 ( gribid, key, value )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2032,9 +2032,9 @@
integer(kind=kindOfInt) :: iret
iret=grib_f_get_string ( gribid, key, value )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2064,9 +2064,9 @@
nb_values = size(value)
iret=grib_f_get_int_array ( gribid, key, value , nb_values )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2094,9 +2094,9 @@
nb_values = size(value)
iret=grib_f_get_long_array ( gribid, key, value , nb_values )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2162,9 +2162,9 @@
nb_values = size(value)
iret=grib_f_get_real4_array ( gribid, key, value , nb_values )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2192,9 +2192,9 @@
nb_values = size(value)
iret=grib_f_get_real8_array ( gribid, key, value, nb_values )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2222,9 +2222,9 @@
integer(kind=kindOfInt) :: iret
iret=grib_f_get_real4_element ( gribid, key, index,value )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2252,9 +2252,9 @@
integer(kind=kindOfInt) :: iret
iret=grib_f_get_real8_element ( gribid, key, index,value )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2284,9 +2284,9 @@
npoints=size(value)
iret=grib_f_get_real4_elements ( gribid, key, index,value,npoints )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2316,9 +2316,9 @@
npoints=size(value)
iret=grib_f_get_real8_elements ( gribid, key, index,value,npoints )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2344,9 +2344,9 @@
integer(kind=kindOfInt) :: iret
iret=grib_f_set_int ( gribid, key, value )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2400,9 +2400,9 @@
integer(kind=kindOfInt) :: iret
iret=grib_f_set_real4 ( gribid, key, value )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2428,9 +2428,9 @@
integer(kind=kindOfInt) :: iret
iret=grib_f_set_real8 ( gribid, key, value )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2458,9 +2458,9 @@
nb_values = size(value)
iret=grib_f_set_int_array ( gribid, key, value, nb_values )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2488,9 +2488,9 @@
nb_values = size(value)
iret=grib_f_set_long_array ( gribid, key, value, nb_values )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2556,9 +2556,9 @@
nb_values = size(value)
iret=grib_f_set_real4_array ( gribid, key, value, nb_values )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2586,9 +2586,9 @@
nb_values = size(value)
iret=grib_f_set_real8_array ( gribid, key, value, nb_values )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2617,9 +2617,9 @@
nb_values = size(value)
iret=grib_f_set_force_real4_array ( gribid, key, value, nb_values )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2648,9 +2648,9 @@
nb_values = size(value)
iret=grib_f_set_force_real8_array ( gribid, key, value, nb_values )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2676,9 +2676,9 @@
integer(kind=kindOfInt) :: iret
iret=grib_f_set_string ( gribid, key, value )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2707,9 +2707,9 @@
iret = GRIB_MESSAGE_TOO_LARGE
endif
nbytes = ibytes
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else
@ -2733,9 +2733,9 @@
integer(kind=kindOfInt) :: iret
iret=grib_f_get_message_size ( gribid, nbytes )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
endif
if (present(status)) then
status = iret
else