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

[<ai...@us...>]

Revision: 11505
          http://plplot.svn.sourceforge.net/plplot/?rev=11505&view=rev
Author:   airwin
Date:     2011-01-26 23:10:23 +0000 (Wed, 26 Jan 2011)

Log Message:
-----------
Finish implementing plstring3 in the f77 bindings, and use plstring3
in f77 example 18 to give the same results as the corresponding C
example. 

Modified Paths:
--------------
    trunk/bindings/f77/sfstubs.fm4
    trunk/examples/f77/x18f.fm4

Modified: trunk/bindings/f77/sfstubs.fm4
===================================================================
--- trunk/bindings/f77/sfstubs.fm4	2011-01-26 22:56:42 UTC (rev 11504)
+++ trunk/bindings/f77/sfstubs.fm4	2011-01-26 23:10:23 UTC (rev 11505)
@@ -823,7 +823,6 @@
 
       end
 
-
 c***********************************************************************
 
       subroutine plmeridians_none(dlong,dlat,minlong,maxlong,
@@ -839,7 +838,6 @@
 
       end
 
-
 c***********************************************************************
 
       subroutine plstring(n,x,y,string)
@@ -856,7 +854,22 @@
 
       end
 
+c***********************************************************************
 
+      subroutine plstring3(n,x,y,z,string)
+
+      implicit none
+      integer n
+      real*8 x(n), y(n), z(n)
+      character*(*) string
+
+      include 'sfstubs.h'
+
+      call plstrf2c(string,s1,maxlen)
+      call plstring37(n,x,y,z,s1)
+
+      end
+
 c***********************************************************************
 
       subroutine plstripc(id, xspec, yspec, xmin, xmax, xjump,

Modified: trunk/examples/f77/x18f.fm4
===================================================================
--- trunk/examples/f77/x18f.fm4	2011-01-26 22:56:42 UTC (rev 11504)
+++ trunk/examples/f77/x18f.fm4	2011-01-26 23:10:23 UTC (rev 11505)
@@ -86,7 +86,8 @@
         if ( opt(k).gt. 0 ) then
           call plline3( NPTS, x, y, z )
         else
-          call plpoin3( NPTS, x, y, z, 1 )
+c U+22C5 DOT OPERATOR.
+          call plstring3( NPTS, x, y, z, "⋅" )
         endif
 
         call plcol0(3)


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