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

Fix parameter name

This commit is contained in:
Shahram Najm 2016-08-12 13:08:04 +01:00
parent 69c393b4b0
commit ddf8496876
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fortran/eccodes_f90_tail.f90
View File

@ -1585,18 +1585,18 @@ end subroutine codes_get_string_array
!> @param key key name
!> @param value string array value
!> @param status CODES_SUCCESS if OK, integer value on error
subroutine codes_set_string_array ( gribid, key, value, status )
integer(kind=kindOfInt), intent(in) :: gribid
subroutine codes_set_string_array ( msgid, key, value, status )
integer(kind=kindOfInt), intent(in) :: msgid
character(len=*), intent(in) :: key
character(len=*), dimension(:),allocatable, intent(in) :: value
integer(kind=kindOfInt),optional, intent(out) :: status
character :: cvalue(size(value)*len(value(0)))
character :: svalue(len(value(0)))
integer(kind=kindOfInt) :: iret
integer(kind=kindOfInt) :: nb_values
integer(kind=kindOfInt) :: slen
integer(kind=kindOfInt) :: i,j
integer(kind=kindOfInt) :: iret
integer(kind=kindOfInt) :: nb_values
integer(kind=kindOfInt) :: slen
integer(kind=kindOfInt) :: i,j
nb_values=size(value)
slen=len(value(0))
@ -1607,10 +1607,10 @@ subroutine codes_set_string_array ( gribid, key, value, status )
j=j+slen
enddo
iret=grib_f_set_string_array ( gribid, key, cvalue , nb_values, slen )
iret=grib_f_set_string_array ( msgid, key, cvalue , nb_values, slen )
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
call grib_f_write_on_fail(msgid)
endif
if (present(status)) then
status = iret