Menu
▾
▴
[Plplot-cvs] SF.net SVN: plplot:[11625] trunk/bindings
|
From: <ai...@us...> - 2011-03-14 05:51:48
|
Revision: 11625
http://plplot.svn.sourceforge.net/plplot/?rev=11625&view=rev
Author: airwin
Date: 2011-03-14 05:51:42 +0000 (Mon, 14 Mar 2011)
Log Message:
-----------
Clean up const-related warnings for doubly dimensioned arrays in the
fortran 77 and 95 bindings. There is probably a better way to do this
since singly dimensioned arrays do not generate these (gcc) warnings.
Modified Paths:
--------------
trunk/bindings/f77/sc3d.c
trunk/bindings/f77/sccont.c
trunk/bindings/f77/scstubs.c
trunk/bindings/f95/sc3d.c
trunk/bindings/f95/sccont.c
Modified: trunk/bindings/f77/sc3d.c
===================================================================
--- trunk/bindings/f77/sc3d.c 2011-03-14 05:45:14 UTC (rev 11624)
+++ trunk/bindings/f77/sc3d.c 2011-03-14 05:51:42 UTC (rev 11625)
@@ -42,7 +42,7 @@
}
}
- c_plot3dc( x, y, a, *nx, *ny, *opt, clevel, *nlevel );
+ c_plot3dc( x, y, (const PLFLT **) a, *nx, *ny, *opt, clevel, *nlevel );
// Clean up memory allocated for a
plFree2dGrid( a, *nx, *ny );
@@ -93,7 +93,7 @@
for ( j = 0; j < *ny; j++ )
temp[i][j] = *( z + j * *lx + i );
- c_plsurf3d( x, y, temp, *nx, *ny, *opt, clevel, *nlevel );
+ c_plsurf3d( x, y, (const PLFLT **) temp, *nx, *ny, *opt, clevel, *nlevel );
for ( i = 0; i < *nx; i++ )
free( (void *) temp[i] );
Modified: trunk/bindings/f77/sccont.c
===================================================================
--- trunk/bindings/f77/sccont.c 2011-03-14 05:45:14 UTC (rev 11624)
+++ trunk/bindings/f77/sccont.c 2011-03-14 05:51:42 UTC (rev 11625)
@@ -565,7 +565,7 @@
}
}
- c_plimagefr( pidata, *nx, *ny,
+ c_plimagefr( (const PLFLT **) pidata, *nx, *ny,
*xmin, *xmax, *ymin, *ymax, *zmin, *zmax,
*valuemin, *valuemax, pltr0, NULL );
@@ -597,7 +597,7 @@
}
}
- c_plimagefr( pidata, *nx, *ny,
+ c_plimagefr( (const PLFLT **) pidata, *nx, *ny,
*xmin, *xmax, *ymin, *ymax, *zmin, *zmax,
*valuemin, *valuemax, pltr1, (void *) &cgrid );
@@ -637,7 +637,7 @@
}
}
- c_plimagefr( pidata, *nx, *ny,
+ c_plimagefr( (const PLFLT **) pidata, *nx, *ny,
*xmin, *xmax, *ymin, *ymax, *zmin, *zmax,
*valuemin, *valuemax, pltr2, (void *) &cgrid2 );
@@ -665,7 +665,7 @@
}
}
- c_plimagefr( pidata, *nx, *ny,
+ c_plimagefr( (const PLFLT **) pidata, *nx, *ny,
*xmin, *xmax, *ymin, *ymax, *zmin, *zmax,
*valuemin, *valuemax, pltr, (void *) ftr );
Modified: trunk/bindings/f77/scstubs.c
===================================================================
--- trunk/bindings/f77/scstubs.c 2011-03-14 05:45:14 UTC (rev 11624)
+++ trunk/bindings/f77/scstubs.c 2011-03-14 05:51:42 UTC (rev 11625)
@@ -479,7 +479,7 @@
}
}
- c_plimage( pidata, *nx, *ny,
+ c_plimage( (const PLFLT **) pidata, *nx, *ny,
*xmin, *xmax, *ymin, *ymax, *zmin, *zmax,
*Dxmin, *Dxmax, *Dymin, *Dymax );
Modified: trunk/bindings/f95/sc3d.c
===================================================================
--- trunk/bindings/f95/sc3d.c 2011-03-14 05:45:14 UTC (rev 11624)
+++ trunk/bindings/f95/sc3d.c 2011-03-14 05:51:42 UTC (rev 11625)
@@ -42,7 +42,7 @@
}
}
- c_plot3dc( x, y, a, *nx, *ny, *opt, clevel, *nlevel );
+ c_plot3dc( x, y, (const PLFLT **) a, *nx, *ny, *opt, clevel, *nlevel );
// Clean up memory allocated for a
plFree2dGrid( a, *nx, *ny );
@@ -93,7 +93,7 @@
for ( j = 0; j < *ny; j++ )
temp[i][j] = *( z + j * *lx + i );
- c_plsurf3d( x, y, temp, *nx, *ny, *opt, clevel, *nlevel );
+ c_plsurf3d( x, y, (const PLFLT **) temp, *nx, *ny, *opt, clevel, *nlevel );
for ( i = 0; i < *nx; i++ )
free( (void *) temp[i] );
Modified: trunk/bindings/f95/sccont.c
===================================================================
--- trunk/bindings/f95/sccont.c 2011-03-14 05:45:14 UTC (rev 11624)
+++ trunk/bindings/f95/sccont.c 2011-03-14 05:51:42 UTC (rev 11625)
@@ -287,7 +287,7 @@
}
}
- c_plshade( a, *nx, *ny, NULL,
+ c_plshade( (const PLFLT **) a, *nx, *ny, NULL,
*xmin, *xmax, *ymin, *ymax,
*shade_min, *shade_max,
*sh_cmap, *sh_color, *sh_width,
@@ -329,7 +329,7 @@
cgrid.ny = *ny;
cgrid.xg = xg1;
cgrid.yg = yg1;
- c_plshade( a, *nx, *ny, NULL,
+ c_plshade( (const PLFLT **) a, *nx, *ny, NULL,
*xmin, *xmax, *ymin, *ymax,
*shade_min, *shade_max,
*sh_cmap, *sh_color, *sh_width,
@@ -372,7 +372,7 @@
}
}
- c_plshade( a, *nx, *ny, NULL,
+ c_plshade( (const PLFLT **) a, *nx, *ny, NULL,
*xmin, *xmax, *ymin, *ymax,
*shade_min, *shade_max,
*sh_cmap, *sh_color, *sh_width,
@@ -407,7 +407,7 @@
}
}
- c_plshade( a, *nx, *ny, NULL,
+ c_plshade( (const PLFLT **) a, *nx, *ny, NULL,
*xmin, *xmax, *ymin, *ymax,
*shade_min, *shade_max,
*sh_cmap, *sh_color, *sh_width,
@@ -448,7 +448,7 @@
}
}
- c_plshades( a, *nx, *ny, NULL,
+ c_plshades( (const PLFLT **) a, *nx, *ny, NULL,
*xmin, *xmax, *ymin, *ymax,
clevel, *nlevel, *fill_width,
*cont_color, *cont_width,
@@ -485,7 +485,7 @@
cgrid.xg = xg1;
cgrid.yg = yg1;
- c_plshades( a, *nx, *ny, NULL,
+ c_plshades( (const PLFLT **) a, *nx, *ny, NULL,
*xmin, *xmax, *ymin, *ymax,
clevel, *nlevel, *fill_width,
*cont_color, *cont_width,
@@ -523,7 +523,7 @@
}
}
- c_plshades( a, *nx, *ny, NULL,
+ c_plshades( (const PLFLT **) a, *nx, *ny, NULL,
*xmin, *xmax, *ymin, *ymax,
clevel, *nlevel, *fill_width,
*cont_color, *cont_width,
@@ -555,7 +555,7 @@
}
}
- c_plshades( a, *nx, *ny, NULL,
+ c_plshades( (const PLFLT **) a, *nx, *ny, NULL,
*xmin, *xmax, *ymin, *ymax,
clevel, *nlevel, *fill_width,
*cont_color, *cont_width,
@@ -608,7 +608,7 @@
}
}
- c_plimagefr( pidata, *nx, *ny,
+ c_plimagefr( (const PLFLT **) pidata, *nx, *ny,
*xmin, *xmax, *ymin, *ymax, *zmin, *zmax,
*valuemin, *valuemax, pltr0, NULL );
@@ -640,7 +640,7 @@
}
}
- c_plimagefr( pidata, *nx, *ny,
+ c_plimagefr( (const PLFLT **) pidata, *nx, *ny,
*xmin, *xmax, *ymin, *ymax, *zmin, *zmax,
*valuemin, *valuemax, pltr1, (void *) &cgrid );
@@ -680,7 +680,7 @@
}
}
- c_plimagefr( pidata, *nx, *ny,
+ c_plimagefr( (const PLFLT **) pidata, *nx, *ny,
*xmin, *xmax, *ymin, *ymax, *zmin, *zmax,
*valuemin, *valuemax, pltr2, (void *) &cgrid2 );
@@ -708,7 +708,7 @@
}
}
- c_plimagefr( pidata, *nx, *ny,
+ c_plimagefr( (const PLFLT **) pidata, *nx, *ny,
*xmin, *xmax, *ymin, *ymax, *zmin, *zmax,
*valuemin, *valuemax, pltr, (void *) ftr );
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
