Thanks for helping keep SourceForge clean.

Click URL instructions:
Right-click on ad, choose "Copy Link", then paste here →
(This may not be possible with some types of ads)

More information about our ad policies

PLplot

Cross-platform, scientific graphics plotting library

Brought to you by: airwin, andrewross, furnish, hbabcock

[Plplot-cvs] SF.net SVN: plplot:[8559] trunk/bindings/f77/scstubs.c

[Plplot-cvs] SF.net SVN: plplot:[8559] trunk/bindings/f77/scstubs.c

From: <andrewross@us...> - 2008-07-23 02:28:44

Revision: 8559
          http://plplot.svn.sourceforge.net/plplot/?rev=8559&view=rev
Author:   andrewross
Date:     2008-07-23 02:28:54 +0000 (Wed, 23 Jul 2008)

Log Message:
-----------
Fix f77 bindings so plgriddata works correctly. Code to copy data back from C to fortran 
arrays was missing.

Modified Paths:
--------------
    trunk/bindings/f77/scstubs.c

Modified: trunk/bindings/f77/scstubs.c
===================================================================
--- trunk/bindings/f77/scstubs.c	2008-07-22 17:15:26 UTC (rev 8558)
+++ trunk/bindings/f77/scstubs.c	2008-07-23 02:28:54 UTC (rev 8559)
@@ -322,11 +322,26 @@
 void
 PLGRIDDATA(PLFLT *x, PLFLT *y, PLFLT *z, PLINT *npts,
 	   PLFLT *xg, PLINT *nptsx, PLFLT *yg,  PLINT *nptsy,
-	   PLFLT **zg, PLINT *type, PLFLT *data)
+	   PLFLT *zg, PLINT *type, PLFLT *data, PLINT *lx)
 {
+    PLFLT **a;
+    int i,j;
+
+    plAlloc2dGrid(&a, *nptsx, *nptsy);
+
     c_plgriddata(x, y, z, *npts,
 		 xg, *nptsx, yg, *nptsy,
-		 zg, *type, *data);
+		 a, *type, *data);
+
+    for (i = 0; i < *nptsx; i++) {
+       for (j = 0; j < *nptsy; j++) {
+           zg[i +j * *lx] = a[i][j];
+       }
+    }
+
+/* Clean up memory allocated for a */
+   plFree2dGrid(a, *nptsx, *nptsy);
+
 }
 
 void


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

Thread view

[Plplot-cvs] SF.net SVN: plplot:[8559] trunk/bindings/f77/scstubs.c

From: <andrewross@us...> - 2008-07-23 02:28:44

Revision: 8559
          http://plplot.svn.sourceforge.net/plplot/?rev=8559&view=rev
Author:   andrewross
Date:     2008-07-23 02:28:54 +0000 (Wed, 23 Jul 2008)

Log Message:
-----------
Fix f77 bindings so plgriddata works correctly. Code to copy data back from C to fortran 
arrays was missing.

Modified Paths:
--------------
    trunk/bindings/f77/scstubs.c

Modified: trunk/bindings/f77/scstubs.c
===================================================================
--- trunk/bindings/f77/scstubs.c	2008-07-22 17:15:26 UTC (rev 8558)
+++ trunk/bindings/f77/scstubs.c	2008-07-23 02:28:54 UTC (rev 8559)
@@ -322,11 +322,26 @@
 void
 PLGRIDDATA(PLFLT *x, PLFLT *y, PLFLT *z, PLINT *npts,
 	   PLFLT *xg, PLINT *nptsx, PLFLT *yg,  PLINT *nptsy,
-	   PLFLT **zg, PLINT *type, PLFLT *data)
+	   PLFLT *zg, PLINT *type, PLFLT *data, PLINT *lx)
 {
+    PLFLT **a;
+    int i,j;
+
+    plAlloc2dGrid(&a, *nptsx, *nptsy);
+
     c_plgriddata(x, y, z, *npts,
 		 xg, *nptsx, yg, *nptsy,
-		 zg, *type, *data);
+		 a, *type, *data);
+
+    for (i = 0; i < *nptsx; i++) {
+       for (j = 0; j < *nptsy; j++) {
+           zg[i +j * *lx] = a[i][j];
+       }
+    }
+
+/* Clean up memory allocated for a */
+   plFree2dGrid(a, *nptsx, *nptsy);
+
 }
 
 void


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Plplot-cvs] SF.net SVN: plplot:[8567] trunk/bindings/f77/scstubs.c

From: <andrewross@us...> - 2008-07-23 19:13:20

Revision: 8567
          http://plplot.svn.sourceforge.net/plplot/?rev=8567&view=rev
Author:   andrewross
Date:     2008-07-23 19:13:28 +0000 (Wed, 23 Jul 2008)

Log Message:
-----------

Remove plrandi.

Modified Paths:
--------------
    trunk/bindings/f77/scstubs.c

Modified: trunk/bindings/f77/scstubs.c
===================================================================
--- trunk/bindings/f77/scstubs.c	2008-07-23 18:44:22 UTC (rev 8566)
+++ trunk/bindings/f77/scstubs.c	2008-07-23 19:13:28 UTC (rev 8567)
@@ -593,12 +593,6 @@
     return c_plrandd();
 }
 
-unsigned long
-PLRANDI()
-{
-    return c_plrandi();
-}
-
 void
 PLREPLOT(void)
 {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Plplot-cvs] SF.net SVN: plplot:[11636] trunk/bindings/f77/scstubs.c

From: <airwin@us...> - 2011-03-17 17:05:06

Revision: 11636
          http://plplot.svn.sourceforge.net/plplot/?rev=11636&view=rev
Author:   airwin
Date:     2011-03-17 17:05:00 +0000 (Thu, 17 Mar 2011)

Log Message:
-----------
Restore explicit cast for the first argument of c_plimage that was removed
by mistake by the last commit.  This cast is necessary to quiet
compiler warning messages as recently discussed on list.

Modified Paths:
--------------
    trunk/bindings/f77/scstubs.c

Modified: trunk/bindings/f77/scstubs.c
===================================================================
--- trunk/bindings/f77/scstubs.c	2011-03-17 07:53:24 UTC (rev 11635)
+++ trunk/bindings/f77/scstubs.c	2011-03-17 17:05:00 UTC (rev 11636)
@@ -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 );
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Plplot-cvs] SF.net SVN: plplot:[11715] trunk/bindings/f77/scstubs.c

From: <airwin@us...> - 2011-04-20 22:55:34

Revision: 11715
          http://plplot.svn.sourceforge.net/plplot/?rev=11715&view=rev
Author:   airwin
Date:     2011-04-20 22:55:26 +0000 (Wed, 20 Apr 2011)

Log Message:
-----------
Comment out plcolorbar that got into f77 bindings by mistake.  This
change fixes PLplot f77 bindings build issues caused by recent plcolorbar
API change.  More of those changes are likely to happen for the
experimental plcolorbar API which is why plcolorbar should not be
propagated at the present time from C to any other language.

Modified Paths:
--------------
    trunk/bindings/f77/scstubs.c

Modified: trunk/bindings/f77/scstubs.c
===================================================================
--- trunk/bindings/f77/scstubs.c	2011-04-18 03:58:36 UTC (rev 11714)
+++ trunk/bindings/f77/scstubs.c	2011-04-20 22:55:26 UTC (rev 11715)
@@ -167,14 +167,14 @@
     c_plcol1( *col );
 }
 
-void
-PLCOLORBAR( PLINT *position, PLINT *opt, PLFLT *x, PLFLT *y, PLFLT *length, PLFLT *width,
-            PLINT *cont_color, PLINT *cont_width, PLFLT *ticks, PLINT *sub_ticks,
-            char *axis_opts, char *label, PLINT *n_colors, PLFLT *colors, PLFLT *values )
-{
-    c_plcolorbar( *position, *opt, *x, *y, *length, *width, *cont_color, *cont_width, *ticks, *sub_ticks,
-        axis_opts, label, *n_colors, colors, values );
-}
+//void
+//PLCOLORBAR( PLINT *position, PLINT *opt, PLFLT *x, PLFLT *y, PLFLT *length, PLFLT *width,
+//            PLINT *cont_color, PLINT *cont_width, PLFLT *ticks, PLINT *sub_ticks,
+//            char *axis_opts, char *label, PLINT *n_colors, PLFLT *colors, PLFLT *values )
+//{
+//    c_plcolorbar( *position, *opt, *x, *y, *length, *width, *cont_color, *cont_width, *ticks, *sub_ticks,
+//        axis_opts, label, *n_colors, colors, values );
+//}
 
 void
 PLCONFIGTIME( PLFLT *scale, PLFLT *offset1, PLFLT *offset2, PLINT *ccontrol, PLBOOL *ifbtime_offset, PLINT *year, PLINT *month, PLINT *day, PLINT *hour, PLINT *min, PLFLT *sec )


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.