[Plplot-cvs] SF.net SVN: plplot:[12657] trunk/bindings/f95

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

Revision: 12657
          http://sourceforge.net/p/plplot/code/12657
Author:   andrewross
Date:     2013-11-05 14:27:16 +0000 (Tue, 05 Nov 2013)
Log Message:
-----------
Add plpath to f95 bindings.

Modified Paths:
--------------
    trunk/bindings/f95/plstubs.h
    trunk/bindings/f95/scstubs.c
    trunk/bindings/f95/sfstubsf95.f90

Modified: trunk/bindings/f95/plstubs.h
===================================================================
--- trunk/bindings/f95/plstubs.h	2013-11-05 14:23:03 UTC (rev 12656)
+++ trunk/bindings/f95/plstubs.h	2013-11-05 14:27:16 UTC (rev 12657)
@@ -272,6 +272,7 @@
 
 #define    PLPARSEOPTS7              FNAME( PLPARSEOPTS7, plparseopts7 )
 #define    PLPAT                     FNAME( PLPAT, plpat )
+#define    PLPATH                    FNAME( PLPATH, plpath )
 #define    PLPOIN                    FNAME( PLPOINF77, plpoinf77 )
 #define    PLPOIN3                   FNAME( PLPOIN3F77, plpoin3f77 )
 #define    PLPOLY3                   FNAME( PLPOLY3F77, plpoly3f77 )

Modified: trunk/bindings/f95/scstubs.c
===================================================================
--- trunk/bindings/f95/scstubs.c	2013-11-05 14:23:03 UTC (rev 12656)
+++ trunk/bindings/f95/scstubs.c	2013-11-05 14:27:16 UTC (rev 12657)
@@ -1019,6 +1019,12 @@
 }
 
 void
+PLPATH( PLINT *n, PLFLT *x1, PLFLT *y1, PLFLT *x2, PLFLT *y2  )
+{
+    c_plpath( *n, *x1, *y1, *x2, *y2 );
+}
+
+void
 PLPOIN( PLINT *n, PLFLT *x, PLFLT *y, PLINT *code )
 {
     c_plpoin( *n, x, y, *code );

Modified: trunk/bindings/f95/sfstubsf95.f90
===================================================================
--- trunk/bindings/f95/sfstubsf95.f90	2013-11-05 14:23:03 UTC (rev 12656)
+++ trunk/bindings/f95/sfstubsf95.f90	2013-11-05 14:27:16 UTC (rev 12657)
@@ -524,6 +524,14 @@
         end subroutine plpat
     end interface
 
+    interface
+        subroutine plpath( n, x1, y1, x2, y2 )
+            use plplot_flt
+            integer :: n
+            real(kind=plflt) :: x1, y1, x2, y2
+        end subroutine plpath
+    end interface
+
     interface plot3d
         module procedure plot3d
     end interface

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