summaryrefslogtreecommitdiffstats
path: root/hl/fortran/src/H5IMfc.c
diff options
context:
space:
mode:
Diffstat (limited to 'hl/fortran/src/H5IMfc.c')
-rwxr-xr-xhl/fortran/src/H5IMfc.c58
1 files changed, 29 insertions, 29 deletions
diff --git a/hl/fortran/src/H5IMfc.c b/hl/fortran/src/H5IMfc.c
index 7a54437..818096e 100755
--- a/hl/fortran/src/H5IMfc.c
+++ b/hl/fortran/src/H5IMfc.c
@@ -59,7 +59,7 @@ nh5immake_image_8bit_c (hid_t_f *loc_id,
*/
c_namelen = (int)*namelen;
c_name = (char *)HD5f2cstring(name, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
/*
@@ -68,15 +68,15 @@ nh5immake_image_8bit_c (hid_t_f *loc_id,
c_loc_id = (hid_t)*loc_id;
ret = H5IMmake_image_8bitf(c_loc_id,c_name,w,h,buf);
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
-
+
done:
if(c_name!=NULL)
free(c_name);
-
+
return ret_value;
@@ -118,7 +118,7 @@ nh5imread_image_c (hid_t_f *loc_id,
*/
c_namelen = (int)*namelen;
c_name = (char *)HD5f2cstring(name, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
/*
@@ -128,7 +128,7 @@ nh5imread_image_c (hid_t_f *loc_id,
ret = H5IMread_imagef(c_loc_id,c_name,buf);
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
@@ -184,12 +184,12 @@ nh5immake_image_24bit_c (hid_t_f *loc_id,
*/
c_namelen = *namelen;
c_name = (char *)HD5f2cstring(name, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
c_ilen = *ilen;
c_il = (char *)HD5f2cstring(il, c_ilen);
- if (c_il == NULL)
+ if (c_il == NULL)
goto done;
/*
@@ -199,7 +199,7 @@ nh5immake_image_24bit_c (hid_t_f *loc_id,
ret = H5IMmake_image_24bitf(c_loc_id,c_name,w,h,c_il,buf);
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
@@ -259,7 +259,7 @@ nh5imget_image_info_c(hid_t_f *loc_id,
*/
c_namelen = *namelen;
c_name = (char *)HD5f2cstring(name, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
/*
@@ -275,7 +275,7 @@ nh5imget_image_info_c(hid_t_f *loc_id,
ret = H5IMget_image_info(c_loc_id,c_name,&c_width,&c_height,&c_planes,c_buf,&c_npals);
- if (ret < 0)
+ if (ret < 0)
goto done;
*width = (hsize_t_f) c_width;
@@ -287,13 +287,13 @@ nh5imget_image_info_c(hid_t_f *loc_id,
* convert C name to FORTRAN and place it in the given buffer
*/
HD5packFstring(c_buf, _fcdtocp(interlace), (size_t)*ilen);
-
+
ret_value = 0;
done:
if(c_name!=NULL)
free(c_name);
- if(c_buf!=NULL)
+ if(c_buf!=NULL)
free(c_buf);
return ret_value;
@@ -389,13 +389,13 @@ nh5immake_palette_c (hid_t_f *loc_id,
if(NULL == (c_name = (char *)HD5f2cstring(name, (int)*namelen)))
HGOTO_DONE(FAIL)
- for(i = 0; i < rank ; i++)
+ for(i = 0; i < rank ; i++)
c_dims[i] = dims[i];
/*
* call H5IMmake_palette function.
*/
- if(H5IMmake_palettef((hid_t)*loc_id, c_name, c_dims, buf) < 0)
+ if(H5IMmake_palettef((hid_t)*loc_id, c_name, c_dims, buf) < 0)
HGOTO_DONE(FAIL)
done:
@@ -445,12 +445,12 @@ nh5imlink_palette_c (hid_t_f *loc_id,
*/
c_namelen = *namelen;
c_name = (char *)HD5f2cstring(name, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
c_namelenpal = *ilen;
c_namepal = (char *)HD5f2cstring(pal_name, c_namelenpal);
- if (c_namepal == NULL)
+ if (c_namepal == NULL)
goto done;
/*
@@ -460,7 +460,7 @@ nh5imlink_palette_c (hid_t_f *loc_id,
ret = H5IMlink_palette(c_loc_id,c_name,c_namepal);
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
@@ -515,12 +515,12 @@ nh5imunlink_palette_c (hid_t_f *loc_id,
*/
c_namelen = *namelen;
c_name = (char *)HD5f2cstring(name, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
c_namelenpal = *ilen;
c_namepal = (char *)HD5f2cstring(pal_name, c_namelenpal);
- if (c_namepal == NULL)
+ if (c_namepal == NULL)
goto done;
/*
@@ -530,7 +530,7 @@ nh5imunlink_palette_c (hid_t_f *loc_id,
ret = H5IMunlink_palette(c_loc_id,c_name,c_namepal);
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
@@ -583,7 +583,7 @@ nh5imget_npalettes_c(hid_t_f *loc_id,
*/
c_namelen = *namelen;
c_name = (char *)HD5f2cstring(name, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
/*
@@ -595,7 +595,7 @@ nh5imget_npalettes_c(hid_t_f *loc_id,
*npals = (hsize_t_f) c_npals;
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
@@ -649,7 +649,7 @@ nh5imget_palette_info_c(hid_t_f *loc_id,
*/
c_namelen = *namelen;
c_name = (char *)HD5f2cstring(name, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
/*
@@ -658,11 +658,11 @@ nh5imget_palette_info_c(hid_t_f *loc_id,
c_loc_id = (hid_t)*loc_id;
ret = H5IMget_palette_info(c_loc_id,c_name,*pal_number,c_dims);
-
- if (ret < 0)
+
+ if (ret < 0)
goto done;
- for (i = 0; i < 2 ; i++)
+ for (i = 0; i < 2 ; i++)
{
dims[i] = (hsize_t_f) c_dims[i];
}
@@ -716,7 +716,7 @@ nh5imget_palette_c(hid_t_f *loc_id,
*/
c_namelen = *namelen;
c_name = (char *)HD5f2cstring(name, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
/*
@@ -726,7 +726,7 @@ nh5imget_palette_c(hid_t_f *loc_id,
ret = H5IMget_palettef(c_loc_id,c_name,*pal_number,buf);
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;