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

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

Revision: 11510
          http://plplot.svn.sourceforge.net/plplot/?rev=11510&view=rev
Author:   airwin
Date:     2011-01-27 06:54:28 +0000 (Thu, 27 Jan 2011)

Log Message:
-----------
Move parameters from sfstubsf95.f90 to new file, plplot_parameters.h.

Modified Paths:
--------------
    trunk/bindings/f95/sfstubsf95.f90

Added Paths:
-----------
    trunk/bindings/f95/plplot_parameters.h

Added: trunk/bindings/f95/plplot_parameters.h
===================================================================
--- trunk/bindings/f95/plplot_parameters.h	                        (rev 0)
+++ trunk/bindings/f95/plplot_parameters.h	2011-01-27 06:54:28 UTC (rev 11510)
@@ -0,0 +1,40 @@
+      !
+      ! Parameters connecting a mnemonic name to the
+      ! constants used by various routines
+      !
+      integer, parameter :: PL_PARSE_FULL = 1
+
+      integer, parameter :: PL_GRID_CSA    = 1
+      integer, parameter :: PL_GRID_DTLI   = 2
+      integer, parameter :: PL_GRID_NNI    = 3
+      integer, parameter :: PL_GRID_NNIDW  = 4
+      integer, parameter :: PL_GRID_NNLI   = 5
+      integer, parameter :: PL_GRID_NNAIDW = 6
+
+      integer, parameter :: PL_JUST_NONE      = -1
+      integer, parameter :: PL_JUST_OPTIMAL   =  0
+      integer, parameter :: PL_JUST_SAME      =  1
+      integer, parameter :: PL_JUST_ISOMETRIC =  2
+
+      integer, parameter :: PL_AXIS_NOTHING    = -2
+      integer, parameter :: PL_AXIS_BOX_ONLY   = -1
+      integer, parameter :: PL_AXIS_NORMAL     =  0
+      integer, parameter :: PL_AXIS_ATZERO     =  1
+      integer, parameter :: PL_AXIS_MAJORGRID  =  2
+      integer, parameter :: PL_AXIS_MINORGRID  =  3
+      integer, parameter :: PL_AXIS_LOGX       = 10
+      integer, parameter :: PL_AXIS_LOGY       = 20
+      integer, parameter :: PL_AXIS_LOGXY      = 30
+
+      integer, parameter :: PL_FONT_STANDARD   =  0
+      integer, parameter :: PL_FONT_EXTENDED   =  1
+
+      real(kind=plflt), parameter :: PL_NOTSET = -42.0_plflt
+
+      !
+      ! TODO:
+      ! Parameters for fill patterns and symbols
+      !
+
+      real(kind=plflt), parameter :: PL_PI = 3.1415926535897932384_plflt
+


Property changes on: trunk/bindings/f95/plplot_parameters.h
___________________________________________________________________
Added: svn:keywords
   + Author Date Id Revision
Added: svn:eol-style
   + native

Modified: trunk/bindings/f95/sfstubsf95.f90
===================================================================
--- trunk/bindings/f95/sfstubsf95.f90	2011-01-27 03:42:04 UTC (rev 11509)
+++ trunk/bindings/f95/sfstubsf95.f90	2011-01-27 06:54:28 UTC (rev 11510)
@@ -137,48 +137,9 @@
       !
 
       implicit none
+      include 'plplot_parameters.h'
 
       !
-      ! Parameters connecting a mnemonic name to the
-      ! constants used by various routines
-      !
-      integer, parameter :: PL_PARSE_FULL = 1
-
-      integer, parameter :: PL_GRID_CSA    = 1
-      integer, parameter :: PL_GRID_DTLI   = 2
-      integer, parameter :: PL_GRID_NNI    = 3
-      integer, parameter :: PL_GRID_NNIDW  = 4
-      integer, parameter :: PL_GRID_NNLI   = 5
-      integer, parameter :: PL_GRID_NNAIDW = 6
-
-      integer, parameter :: PL_JUST_NONE      = -1
-      integer, parameter :: PL_JUST_OPTIMAL   =  0
-      integer, parameter :: PL_JUST_SAME      =  1
-      integer, parameter :: PL_JUST_ISOMETRIC =  2
-
-      integer, parameter :: PL_AXIS_NOTHING    = -2
-      integer, parameter :: PL_AXIS_BOX_ONLY   = -1
-      integer, parameter :: PL_AXIS_NORMAL     =  0
-      integer, parameter :: PL_AXIS_ATZERO     =  1
-      integer, parameter :: PL_AXIS_MAJORGRID  =  2
-      integer, parameter :: PL_AXIS_MINORGRID  =  3
-      integer, parameter :: PL_AXIS_LOGX       = 10
-      integer, parameter :: PL_AXIS_LOGY       = 20
-      integer, parameter :: PL_AXIS_LOGXY      = 30
-
-      integer, parameter :: PL_FONT_STANDARD   =  0
-      integer, parameter :: PL_FONT_EXTENDED   =  1
-
-      real(kind=plflt), parameter :: PL_NOTSET = -42.0_plflt
-
-      !
-      ! TODO:
-      ! Parameters for fill patterns and symbols
-      !
-
-      real(kind=plflt), parameter :: PL_PI = 3.1415926535897932384_plflt
-
-      !
       ! To be added: alternative interfaces
       !
       interface


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