[Plplot-cvs] SF.net SVN: plplot:[10280] trunk

[<and...@us...>]

Revision: 10280
          http://plplot.svn.sourceforge.net/plplot/?rev=10280&view=rev
Author:   andrewross
Date:     2009-08-18 09:53:03 +0000 (Tue, 18 Aug 2009)

Log Message:
-----------
Small tidy-ups for f77 bindings and examples.

Modified Paths:
--------------
    trunk/bindings/f77/scstubs.c
    trunk/examples/f77/x29f.fm4

Modified: trunk/bindings/f77/scstubs.c
===================================================================
--- trunk/bindings/f77/scstubs.c	2009-08-18 09:52:30 UTC (rev 10279)
+++ trunk/bindings/f77/scstubs.c	2009-08-18 09:53:03 UTC (rev 10280)
@@ -62,7 +62,7 @@
 }
 
 void
-PLABORT7(char *text)
+PLABORT7(const char *text)
 {
     plabort(text);
 }

Modified: trunk/examples/f77/x29f.fm4
===================================================================
--- trunk/examples/f77/x29f.fm4	2009-08-18 09:52:30 UTC (rev 10279)
+++ trunk/examples/f77/x29f.fm4	2009-08-18 09:53:03 UTC (rev 10280)
@@ -270,7 +270,7 @@
       offset1 = -678940.0d0
       offset2 = -0.3641639d0
       call plconfigtime(scale, offset1, offset2, z'0', 0, 0, 0, 0, 0, 
-     1     0, 0.)
+     1     0, 0.d0)
 
       do kind = 0,6
          if (kind .eq. 0) then
@@ -358,10 +358,10 @@
          call plcol0(1)
          if (if_TAI_time_format) then
             call plconfigtime(scale, offset1, offset2, z'0', 0, 0, 0, 
-     1           0, 0, 0, 0.)
+     1           0, 0, 0, 0.d0)
          else
             call plconfigtime(scale, offset1, offset2, z'2', 0, 0, 0, 
-     1           0, 0, 0, 0.)
+     1           0, 0, 0, 0.d0)
          endif
          call pltimefmt(time_format)
          call plbox("bcnstd", xlabel_step, 0, "bcnstv", 0.d0, 0)


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