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

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

Revision: 11602
          http://plplot.svn.sourceforge.net/plplot/?rev=11602&view=rev
Author:   airwin
Date:     2011-03-06 02:17:21 +0000 (Sun, 06 Mar 2011)

Log Message:
-----------
Finish plstring3 bindings for f95 and use that in example 18 to get
consistency with the C result.

Modified Paths:
--------------
    trunk/bindings/f95/sfstubs.f90
    trunk/examples/f95/x18f.f90

Modified: trunk/bindings/f95/sfstubs.f90
===================================================================
--- trunk/bindings/f95/sfstubs.f90	2011-03-06 00:59:27 UTC (rev 11601)
+++ trunk/bindings/f95/sfstubs.f90	2011-03-06 02:17:21 UTC (rev 11602)
@@ -346,6 +346,26 @@
 
 !***********************************************************************
 
+      subroutine plstring3(x,y,z,string)
+
+      implicit none
+      real(kind=plflt) x(:), y(:), z(:)
+      character(len=*) string
+
+      include 'sfstubs.h'
+
+      integer n
+
+      n = size(x)
+
+      call plstrf2c(string, string1, maxlen)
+      s1 = transfer( string1, s1 )
+      call plstring37(n,x,y,z,s1)
+
+      end subroutine
+
+!***********************************************************************
+
       subroutine plvectors_0(u, v, scale)
 
       implicit none

Modified: trunk/examples/f95/x18f.f90
===================================================================
--- trunk/examples/f95/x18f.f90	2011-03-06 00:59:27 UTC (rev 11601)
+++ trunk/examples/f95/x18f.f90	2011-03-06 02:17:21 UTC (rev 11602)
@@ -87,7 +87,8 @@
         if ( opt(k).gt. 0 ) then
           call plline3(x, y, z)
         else
-          call plpoin3(x, y, z, 1)
+          !U+22C5 DOT OPERATOR.
+          call plstring3( 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.