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

ECC-299: Fortran error messages in codes_ functions print message with grib_

This commit is contained in:
Shahram Najm 2016-07-19 15:02:08 +01:00
parent 7b7fa18649
commit 41fbedbc27
2 changed files with 114 additions and 117 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
fortran/eccodes_f90_tail.f90
View File

@ -948,7 +948,7 @@ subroutine codes_new_from_file (ifile, msgid , product_kind, status)
call codes_bufr_new_from_file ( ifile, msgid , status) call codes_bufr_new_from_file ( ifile, msgid , status)
else else
if (product_kind /= CODES_PRODUCT_ANY) then if (product_kind /= CODES_PRODUCT_ANY) then
call grib_check(CODES_INTERNAL_ERROR,'codes_new_from_file','invalid_product_kind') call grib_check(CODES_INTERNAL_ERROR,'new_from_file','invalid_product_kind')
end if end if
call codes_any_new_from_file ( ifile, msgid , status) call codes_any_new_from_file ( ifile, msgid , status)
end if end if
@ -1084,10 +1084,8 @@ end subroutine codes_grib_new_from_samples
!> exit with an error message.\n Otherwise the error message can be !> exit with an error message.\n Otherwise the error message can be
!> gathered with @ref codes_get_error_string. !> gathered with @ref codes_get_error_string.
!> !>
!>
!>
!> @param bufrid id of the BUFR loaded in memory !> @param bufrid id of the BUFR loaded in memory
!> @param samplename name of the sample to be used !> @param samplename name of the BUFR sample to be used
!> @param status CODES_SUCCESS if OK, integer value on error !> @param status CODES_SUCCESS if OK, integer value on error
subroutine codes_bufr_new_from_samples ( bufrid, samplename, status ) subroutine codes_bufr_new_from_samples ( bufrid, samplename, status )
integer(kind=kindOfInt), intent(out) :: bufrid integer(kind=kindOfInt), intent(out) :: bufrid
@ -1099,7 +1097,7 @@ subroutine codes_bufr_new_from_samples ( bufrid, samplename, status )
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'codes_bufr_new_from_samples','('//samplename//')') call grib_check(iret,'bufr_new_from_samples','('//samplename//')')
endif endif
end subroutine codes_bufr_new_from_samples end subroutine codes_bufr_new_from_samples
@ -1557,7 +1555,7 @@ subroutine codes_get_string_array ( msgid, key, value, status )
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'codes_get',key) call grib_check(iret,'get',key)
endif endif
end if end if
@ -1572,7 +1570,7 @@ subroutine codes_get_string_array ( msgid, key, value, status )
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'codes_get',key) call grib_check(iret,'get',key)
endif endif
end subroutine codes_get_string_array end subroutine codes_get_string_array
@ -1616,7 +1614,7 @@ subroutine codes_set_string_array ( gribid, key, value, status )
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'codes_set',key) call grib_check(iret,'set',key)
endif endif
end subroutine codes_set_string_array end subroutine codes_set_string_array
@ -1650,7 +1648,7 @@ subroutine codes_get_int_array ( msgid, key, value, status )
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'codes_get',key) call grib_check(iret,'get',key)
endif endif
return return
endif endif
@ -1670,7 +1668,7 @@ subroutine codes_get_int_array ( msgid, key, value, status )
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get',key) call grib_check(iret,'get',key)
endif endif
end subroutine codes_get_int_array end subroutine codes_get_int_array
@ -1703,7 +1701,7 @@ subroutine codes_get_long_array ( msgid, key, value, status )
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'codes_get',key) call grib_check(iret,'get',key)
endif endif
return return
endif endif
@ -1723,7 +1721,7 @@ subroutine codes_get_long_array ( msgid, key, value, status )
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'codes_get',key) call grib_check(iret,'get',key)
endif endif
end subroutine codes_get_long_array end subroutine codes_get_long_array
@ -1777,7 +1775,7 @@ subroutine codes_get_real4_array ( msgid, key, value, status)
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'codes_get',key) call grib_check(iret,'get',key)
endif endif
return return
endif endif
@ -1797,7 +1795,7 @@ subroutine codes_get_real4_array ( msgid, key, value, status)
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'codes_get',key) call grib_check(iret,'get',key)
endif endif
end subroutine codes_get_real4_array end subroutine codes_get_real4_array
@ -1829,7 +1827,7 @@ subroutine codes_get_real8_array ( msgid, key, value, status )
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get',key) call grib_check(iret,'get',key)
endif endif
return return
endif endif
@ -1849,7 +1847,7 @@ subroutine codes_get_real8_array ( msgid, key, value, status )
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get',key) call grib_check(iret,'get',key)
endif endif
end subroutine codes_get_real8_array end subroutine codes_get_real8_array

201
fortran/grib_f90_tail.f90
View File

@ -28,7 +28,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_set_missing','('//key//')') call grib_check(iret,'set_missing','('//key//')')
endif endif
end subroutine grib_set_missing end subroutine grib_set_missing
@ -56,7 +56,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_index_create','('//filename//')') call grib_check(iret,'index_create','('//filename//')')
endif endif
end subroutine grib_index_create end subroutine grib_index_create
@ -82,7 +82,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_index_add_file','('//filename//')') call grib_check(iret,'index_add_file','('//filename//')')
endif endif
end subroutine grib_index_add_file end subroutine grib_index_add_file
@ -110,7 +110,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_index_get_size','('//key//')') call grib_check(iret,'index_get_size','('//key//')')
endif endif
end subroutine grib_index_get_size_long end subroutine grib_index_get_size_long
@ -138,7 +138,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_index_get_size','('//key//')') call grib_check(iret,'index_get_size','('//key//')')
endif endif
end subroutine grib_index_get_size_int end subroutine grib_index_get_size_int
@ -168,7 +168,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_index_get','('//key//')') call grib_check(iret,'index_get','('//key//')')
endif endif
end subroutine grib_index_get_int end subroutine grib_index_get_int
@ -198,7 +198,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_index_get','('//key//')') call grib_check(iret,'index_get','('//key//')')
endif endif
end subroutine grib_index_get_long end subroutine grib_index_get_long
@ -228,7 +228,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_index_get','('//key//')') call grib_check(iret,'index_get','('//key//')')
endif endif
end subroutine grib_index_get_real8 end subroutine grib_index_get_real8
@ -261,7 +261,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_index_get','('//key//')') call grib_check(iret,'index_get','('//key//')')
endif endif
end subroutine grib_index_get_string end subroutine grib_index_get_string
@ -290,7 +290,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_index_select','('//key//')') call grib_check(iret,'index_select','('//key//')')
endif endif
end subroutine grib_index_select_string end subroutine grib_index_select_string
@ -318,7 +318,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_index_select','('//key//')') call grib_check(iret,'index_select','('//key//')')
endif endif
end subroutine grib_index_select_int end subroutine grib_index_select_int
@ -346,7 +346,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_index_select','('//key//')') call grib_check(iret,'index_select','('//key//')')
endif endif
end subroutine grib_index_select_long end subroutine grib_index_select_long
@ -374,7 +374,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_index_select','('//key//')') call grib_check(iret,'index_select','('//key//')')
endif endif
end subroutine grib_index_select_real8 end subroutine grib_index_select_real8
@ -400,7 +400,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_new_from_index','') call grib_check(iret,'new_from_index','')
endif endif
end subroutine grib_new_from_index end subroutine grib_new_from_index
@ -426,7 +426,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_index_read','('//filename//')') call grib_check(iret,'index_read','('//filename//')')
endif endif
end subroutine grib_index_read end subroutine grib_index_read
@ -454,7 +454,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_index_write','('//filename//')') call grib_check(iret,'index_write','('//filename//')')
endif endif
end subroutine grib_index_write end subroutine grib_index_write
@ -477,7 +477,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_index_release','') call grib_check(iret,'index_release','')
endif endif
end subroutine grib_index_release end subroutine grib_index_release
@ -505,7 +505,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_open_file','('//filename//')') call grib_check(iret,'open_file','('//filename//')')
endif endif
end subroutine grib_open_file end subroutine grib_open_file
@ -534,7 +534,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_read_bytes','') call grib_check(iret,'read_bytes','')
endif endif
end subroutine grib_read_bytes_char end subroutine grib_read_bytes_char
@ -561,7 +561,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_read_bytes','') call grib_check(iret,'read_bytes','')
endif endif
end subroutine grib_read_bytes_char_size_t end subroutine grib_read_bytes_char_size_t
@ -590,7 +590,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_read_bytes','') call grib_check(iret,'read_bytes','')
endif endif
end subroutine grib_read_bytes_int4 end subroutine grib_read_bytes_int4
@ -617,7 +617,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_read_bytes','') call grib_check(iret,'read_bytes','')
endif endif
end subroutine grib_read_bytes_int4_size_t end subroutine grib_read_bytes_int4_size_t
@ -646,7 +646,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_read_bytes','') call grib_check(iret,'read_bytes','')
endif endif
end subroutine grib_read_bytes_real4 end subroutine grib_read_bytes_real4
@ -673,7 +673,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_read_bytes','') call grib_check(iret,'read_bytes','')
endif endif
end subroutine grib_read_bytes_real4_size_t end subroutine grib_read_bytes_real4_size_t
@ -702,7 +702,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_read_bytes','') call grib_check(iret,'read_bytes','')
endif endif
end subroutine grib_read_bytes_real8 end subroutine grib_read_bytes_real8
@ -729,7 +729,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_read_bytes','') call grib_check(iret,'read_bytes','')
endif endif
end subroutine grib_read_bytes_real8_size_t end subroutine grib_read_bytes_real8_size_t
@ -762,7 +762,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_read_from_file','') call grib_check(iret,'read_from_file','')
endif endif
end subroutine grib_read_from_file_int4 end subroutine grib_read_from_file_int4
@ -789,7 +789,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_read_from_file','') call grib_check(iret,'read_from_file','')
endif endif
end subroutine grib_read_from_file_int4_size_t end subroutine grib_read_from_file_int4_size_t
@ -822,7 +822,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_read_from_file','') call grib_check(iret,'read_from_file','')
endif endif
end subroutine grib_read_from_file_real4 end subroutine grib_read_from_file_real4
@ -849,7 +849,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_read_from_file','') call grib_check(iret,'read_from_file','')
endif endif
end subroutine grib_read_from_file_real4_size_t end subroutine grib_read_from_file_real4_size_t
@ -882,7 +882,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_read_from_file','') call grib_check(iret,'read_from_file','')
endif endif
end subroutine grib_read_from_file_real8 end subroutine grib_read_from_file_real8
@ -909,7 +909,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_read_from_file','') call grib_check(iret,'read_from_file','')
endif endif
end subroutine grib_read_from_file_real8_size_t end subroutine grib_read_from_file_real8_size_t
@ -942,7 +942,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_read_from_file','') call grib_check(iret,'read_from_file','')
endif endif
end subroutine grib_read_from_file_char end subroutine grib_read_from_file_char
@ -969,7 +969,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_read_from_file','') call grib_check(iret,'read_from_file','')
endif endif
end subroutine grib_read_from_file_char_size_t end subroutine grib_read_from_file_char_size_t
@ -998,7 +998,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_write_bytes','') call grib_check(iret,'write_bytes','')
endif endif
end subroutine grib_write_bytes_char end subroutine grib_write_bytes_char
@ -1025,7 +1025,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_write_bytes','') call grib_check(iret,'write_bytes','')
endif endif
end subroutine grib_write_bytes_char_size_t end subroutine grib_write_bytes_char_size_t
@ -1054,7 +1054,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_write_bytes','') call grib_check(iret,'write_bytes','')
endif endif
end subroutine grib_write_bytes_int4 end subroutine grib_write_bytes_int4
@ -1081,7 +1081,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_write_bytes','') call grib_check(iret,'write_bytes','')
endif endif
end subroutine grib_write_bytes_int4_size_t end subroutine grib_write_bytes_int4_size_t
@ -1110,7 +1110,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_write_bytes','') call grib_check(iret,'write_bytes','')
endif endif
end subroutine grib_write_bytes_real4 end subroutine grib_write_bytes_real4
@ -1137,7 +1137,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_write_bytes','') call grib_check(iret,'write_bytes','')
endif endif
end subroutine grib_write_bytes_real4_size_t end subroutine grib_write_bytes_real4_size_t
@ -1166,7 +1166,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_write_bytes','') call grib_check(iret,'write_bytes','')
endif endif
end subroutine grib_write_bytes_real8 end subroutine grib_write_bytes_real8
@ -1193,7 +1193,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_write_bytes','') call grib_check(iret,'write_bytes','')
endif endif
end subroutine grib_write_bytes_real8_size_t end subroutine grib_write_bytes_real8_size_t
@ -1219,7 +1219,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_close_file','') call grib_check(iret,'close_file','')
endif endif
end subroutine grib_close_file end subroutine grib_close_file
@ -1240,7 +1240,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_count_in_file','') call grib_check(iret,'count_in_file','')
endif endif
end subroutine grib_count_in_file end subroutine grib_count_in_file
@ -1264,7 +1264,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_headers_only_new_from_file','') call grib_check(iret,'headers_only_new_from_file','')
endif endif
end subroutine grib_headers_only_new_from_file end subroutine grib_headers_only_new_from_file
@ -1349,14 +1349,13 @@
!> exit with an error message.\n Otherwise the error message can be !> exit with an error message.\n Otherwise the error message can be
!> gathered with @ref grib_get_error_string. !> gathered with @ref grib_get_error_string.
!> !>
!>
!> \b Examples: \ref copy_message.f90 "copy_message.f90" !> \b Examples: \ref copy_message.f90 "copy_message.f90"
!> !>
!> @param gribid id of the grib loaded in memory !> @param gribid id of the grib loaded in memory
!> @param message character array containing the coded message !> @param message character array containing the coded message
!> @param status GRIB_SUCCESS if OK, integer value on error !> @param status GRIB_SUCCESS if OK, integer value on error
subroutine grib_new_from_message_char( gribid, message, status ) subroutine grib_new_from_message_char( gribid, message, status )
integer(kind=kindOfInt),intent(out) :: gribid integer(kind=kindOfInt),intent(out) :: gribid
character(len=1), dimension(:),intent(in) :: message character(len=1), dimension(:),intent(in) :: message
integer(kind=kindOfInt),optional, intent(out) :: status integer(kind=kindOfInt),optional, intent(out) :: status
integer(kind=kindOfSize_t) :: size_bytes integer(kind=kindOfSize_t) :: size_bytes
@ -1367,7 +1366,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_new_from_message','') call grib_check(iret,'new_from_message','')
endif endif
end subroutine grib_new_from_message_char end subroutine grib_new_from_message_char
@ -1390,17 +1389,17 @@
!> @param status GRIB_SUCCESS if OK, integer value on error !> @param status GRIB_SUCCESS if OK, integer value on error
subroutine grib_new_from_message_int4 ( gribid, message, status ) subroutine grib_new_from_message_int4 ( gribid, message, status )
integer(kind=kindOfInt),intent(out) :: gribid integer(kind=kindOfInt),intent(out) :: gribid
integer(kind=4), dimension(:),intent(in) :: message integer(kind=4), dimension(:),intent(in) :: message
integer(kind=kindOfInt),optional, intent(out) :: status integer(kind=kindOfInt),optional, intent(out) :: status
integer(kind=kindOfSize_t) :: size_bytes integer(kind=kindOfSize_t) :: size_bytes
integer(kind=kindOfInt) :: iret integer(kind=kindOfInt) :: iret
size_bytes=size(message,dim=1)*sizeOfInteger4 size_bytes=size(message,dim=1)*sizeOfInteger4
iret = grib_f_new_from_message ( gribid, message, size_bytes ) iret = grib_f_new_from_message ( gribid, message, size_bytes )
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_new_from_message','') call grib_check(iret,'new_from_message','')
endif endif
end subroutine grib_new_from_message_int4 end subroutine grib_new_from_message_int4
@ -1456,7 +1455,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_release','') call grib_check(iret,'release','')
endif endif
end subroutine grib_release end subroutine grib_release
@ -1488,7 +1487,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_clone','') call grib_check(iret,'clone','')
endif endif
end subroutine grib_clone end subroutine grib_clone
@ -1662,7 +1661,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_keys_iterator_new',namespace) call grib_check(iret,'keys_iterator_new',namespace)
endif endif
end subroutine grib_keys_iterator_new end subroutine grib_keys_iterator_new
@ -1700,7 +1699,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_keys_iterator_delete','') call grib_check(iret,'keys_iterator_delete','')
endif endif
end subroutine grib_keys_iterator_delete end subroutine grib_keys_iterator_delete
@ -1722,7 +1721,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_keys_iterator_get_name',name) call grib_check(iret,'keys_iterator_get_name',name)
endif endif
end subroutine grib_keys_iterator_get_name end subroutine grib_keys_iterator_get_name
@ -1743,7 +1742,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_keys_iterator_rewind','') call grib_check(iret,'keys_iterator_rewind','')
endif endif
end subroutine grib_keys_iterator_rewind end subroutine grib_keys_iterator_rewind
@ -1764,7 +1763,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_dump','') call grib_check(iret,'dump','')
endif endif
end subroutine grib_dump end subroutine grib_dump
@ -1783,7 +1782,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get_error_string','') call grib_check(iret,'get_error_string','')
endif endif
end subroutine grib_get_error_string end subroutine grib_get_error_string
@ -1813,7 +1812,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get_size',key) call grib_check(iret,'get_size',key)
endif endif
end subroutine grib_get_size_int end subroutine grib_get_size_int
@ -1843,7 +1842,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get_size',key) call grib_check(iret,'get_size',key)
endif endif
end subroutine grib_get_size_long end subroutine grib_get_size_long
@ -1871,7 +1870,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get',key) call grib_check(iret,'get',key)
endif endif
end subroutine grib_get_int end subroutine grib_get_int
@ -1899,7 +1898,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get',key) call grib_check(iret,'get',key)
endif endif
end subroutine grib_get_long end subroutine grib_get_long
@ -1927,7 +1926,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_is_missing',key) call grib_check(iret,'is_missing',key)
endif endif
end subroutine grib_is_missing end subroutine grib_is_missing
@ -1955,7 +1954,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_is_defined',key) call grib_check(iret,'is_defined',key)
endif endif
end subroutine grib_is_defined end subroutine grib_is_defined
@ -1983,7 +1982,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get',key) call grib_check(iret,'get',key)
endif endif
end subroutine grib_get_real4 end subroutine grib_get_real4
@ -2011,7 +2010,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get',key) call grib_check(iret,'get',key)
endif endif
end subroutine grib_get_real8 end subroutine grib_get_real8
@ -2039,7 +2038,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get',key) call grib_check(iret,'get',key)
endif endif
end subroutine grib_get_string end subroutine grib_get_string
@ -2071,7 +2070,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get',key) call grib_check(iret,'get',key)
endif endif
end subroutine grib_get_int_array end subroutine grib_get_int_array
@ -2101,7 +2100,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get',key) call grib_check(iret,'get',key)
endif endif
end subroutine grib_get_long_array end subroutine grib_get_long_array
@ -2139,7 +2138,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get',key) call grib_check(iret,'get',key)
endif endif
end subroutine grib_get_byte_array end subroutine grib_get_byte_array
@ -2169,7 +2168,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get',key) call grib_check(iret,'get',key)
endif endif
end subroutine grib_get_real4_array end subroutine grib_get_real4_array
@ -2199,7 +2198,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get',key) call grib_check(iret,'get',key)
endif endif
end subroutine grib_get_real8_array end subroutine grib_get_real8_array
@ -2229,7 +2228,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get',key) call grib_check(iret,'get',key)
endif endif
end subroutine grib_get_real4_element end subroutine grib_get_real4_element
@ -2259,7 +2258,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get',key) call grib_check(iret,'get',key)
endif endif
end subroutine grib_get_real8_element end subroutine grib_get_real8_element
@ -2291,7 +2290,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get',key) call grib_check(iret,'get',key)
endif endif
end subroutine grib_get_real4_elements end subroutine grib_get_real4_elements
@ -2323,7 +2322,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get',key) call grib_check(iret,'get',key)
endif endif
end subroutine grib_get_real8_elements end subroutine grib_get_real8_elements
@ -2351,7 +2350,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_set',key) call grib_check(iret,'set',key)
endif endif
end subroutine grib_set_int end subroutine grib_set_int
@ -2379,7 +2378,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_set',key) call grib_check(iret,'set',key)
endif endif
end subroutine grib_set_long end subroutine grib_set_long
@ -2407,7 +2406,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_set',key) call grib_check(iret,'set',key)
endif endif
end subroutine grib_set_real4 end subroutine grib_set_real4
@ -2435,7 +2434,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_set',key) call grib_check(iret,'set',key)
endif endif
end subroutine grib_set_real8 end subroutine grib_set_real8
@ -2465,7 +2464,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_set',key) call grib_check(iret,'set',key)
endif endif
end subroutine grib_set_int_array end subroutine grib_set_int_array
@ -2495,7 +2494,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_set',key) call grib_check(iret,'set',key)
endif endif
end subroutine grib_set_long_array end subroutine grib_set_long_array
@ -2533,7 +2532,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_set',key) call grib_check(iret,'set',key)
endif endif
end subroutine grib_set_byte_array end subroutine grib_set_byte_array
@ -2563,7 +2562,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_set',key) call grib_check(iret,'set',key)
endif endif
end subroutine grib_set_real4_array end subroutine grib_set_real4_array
@ -2593,7 +2592,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_set',key) call grib_check(iret,'set',key)
endif endif
end subroutine grib_set_real8_array end subroutine grib_set_real8_array
@ -2624,7 +2623,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_set',key) call grib_check(iret,'set',key)
endif endif
end subroutine grib_set_force_real4_array end subroutine grib_set_force_real4_array
@ -2655,7 +2654,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_set',key) call grib_check(iret,'set',key)
endif endif
end subroutine grib_set_force_real8_array end subroutine grib_set_force_real8_array
@ -2683,7 +2682,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_set',key) call grib_check(iret,'set',key)
endif endif
end subroutine grib_set_string end subroutine grib_set_string
@ -2714,7 +2713,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get_message_size','') call grib_check(iret,'get_message_size','')
endif endif
end subroutine grib_get_message_size_int end subroutine grib_get_message_size_int
@ -2740,7 +2739,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_get_message_size','') call grib_check(iret,'get_message_size','')
endif endif
end subroutine grib_get_message_size_size_t end subroutine grib_get_message_size_size_t
@ -2768,7 +2767,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_copy_message','') call grib_check(iret,'copy_message','')
endif endif
end subroutine grib_copy_message end subroutine grib_copy_message
@ -2792,7 +2791,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_write','') call grib_check(iret,'write','')
endif endif
end subroutine grib_write end subroutine grib_write
@ -3079,7 +3078,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_skip_computed','') call grib_check(iret,'skip_computed','')
endif endif
end subroutine grib_skip_computed end subroutine grib_skip_computed
@ -3104,7 +3103,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_skip_coded','') call grib_check(iret,'skip_coded','')
endif endif
end subroutine grib_skip_coded end subroutine grib_skip_coded
@ -3128,7 +3127,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_skip_duplicates','') call grib_check(iret,'skip_duplicates','')
endif endif
end subroutine grib_skip_duplicates end subroutine grib_skip_duplicates
@ -3150,7 +3149,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_skip_read_only','') call grib_check(iret,'skip_read_only','')
endif endif
end subroutine grib_skip_read_only end subroutine grib_skip_read_only
@ -3171,7 +3170,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_set_definitions_path','('//path//')') call grib_check(iret,'set_definitions_path','('//path//')')
endif endif
end subroutine grib_set_definitions_path end subroutine grib_set_definitions_path
@ -3192,7 +3191,7 @@
if (present(status)) then if (present(status)) then
status = iret status = iret
else else
call grib_check(iret,'grib_set_samples_path','('//path//')') call grib_check(iret,'set_samples_path','('//path//')')
endif endif
end subroutine grib_set_samples_path end subroutine grib_set_samples_path