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

SUP-861: Problem with grib_find_nearest when grib_api is compiled with g95

This commit is contained in:
Shahram Najm 2014-07-08 13:32:22 +01:00
parent f2005d0bc6
commit 69e713d4cb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fortran/grib_fortran.c
View File

@ -2415,7 +2415,7 @@ int grib_f_find_nearest_four_single__(int* gid,int* is_lsm,
double* values,double* distances, double* values,double* distances,
int* indexes) { int* indexes) {
return grib_f_find_nearest_single_(gid,is_lsm, return grib_f_find_nearest_four_single_(gid,is_lsm,
inlats,inlons,outlats,outlons,values, inlats,inlons,outlats,outlons,values,
distances,indexes); distances,indexes);
} }
@ -2425,7 +2425,7 @@ int grib_f_find_nearest_four_single(int* gid,int* is_lsm,
double* values,double* distances, double* values,double* distances,
int* indexes) { int* indexes) {
return grib_f_find_nearest_single_(gid,is_lsm, return grib_f_find_nearest_four_single_(gid,is_lsm,
inlats,inlons,outlats,outlons,values, inlats,inlons,outlats,outlons,values,
distances,indexes); distances,indexes);
} }