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

Put correct function names in error message

This commit is contained in:
Shahram Najm 2014-12-23 15:35:41 +00:00
parent 3b8416ca43
commit 9300cea24e
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fortran/grib_f90_tail.f90
View File

@ -57,7 +57,7 @@
if (present(status)) then
status = iret
else
call grib_check(iret,'grib_create_index','('//filename//')')
call grib_check(iret,'grib_index_create','('//filename//')')
endif
end subroutine grib_index_create
@ -1266,7 +1266,7 @@
if (present(status)) then
status = iret
else
call grib_check(iret,'grib_new_from_file','')
call grib_check(iret,'grib_headers_only_new_from_file','')
endif
end subroutine grib_headers_only_new_from_file
@ -2855,7 +2855,7 @@
if (present(status)) then
status = iret
else
call grib_check(iret,'grib_find_nearest','')
call grib_check(iret,'grib_find_nearest_multiple','')
endif
end subroutine grib_find_nearest_multiple
@ -2899,7 +2899,7 @@
if (present(status)) then
status = iret
else
call grib_check(iret,'grib_find_nearest','')
call grib_check(iret,'grib_find_nearest_single','')
endif
end subroutine grib_find_nearest_single
@ -2943,7 +2943,7 @@
if (present(status)) then
status = iret
else
call grib_check(iret,'grib_find_nearest','')
call grib_check(iret,'grib_find_nearest_four_single','')
endif
end subroutine grib_find_nearest_four_single